分类 VB.NET 下的文章 - LaoDan 的博客

DataGridView组件自动递增代码

取自程序的一段代码，放到博客，省得下次再找了。Dim rowIndex As Integer = DataGridView1.Rows.Add() With DataGridView1.Rows(rowIndex) .Cells(0).Value = rowIndex + 1 .Cells(1).Value = nickname .Cells(2).Value = unique_id .Cells(3).Value = following_count .Cells(6).Value = 待监控的粉丝数量 .Cells(8).Value = "基础数据已获取" .Cells(9).Value = id_str 'sec_uid End With DataGridView1.Refresh()

VB.NET · 2023-11-01 · 881 人浏览

通过抖音分享链接转换为抖音用户链接(MS开头)的实现方式

转换方式如下图：直接GET请求下抖音分享链接即可。注意：需要禁止重定向。在返回的内容处，可以获取用户的sec_uid（MS开头）VB.NET 实现代码：Imports System.Net Imports System.Text.RegularExpressions Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim request As HttpWebRequest = DirectCast(WebRequest.Create(TextBox1.Text), HttpWebRequest) request.AllowAutoRedirect = False Dim response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse) Dim responseStrea

VB.NET · 2023-10-20 · 1674 人浏览

VB.NET FTP文件上传源码

水一篇文章啦，今天给别人写程序遇到的一个。感觉下面的代码挺不错的，能实现向远程服务器上传文件。Dim ftpServer As String = "ftp://1.1.1.1:21/" Dim ftpUsername As String = 账号 Dim ftpPassword As String = 密码 Dim localFilePath As String = "1.jpg" '本地目录 Dim remoteFilePath As String = TextBox7.Text & "合成_" & 全局变量_当前命名 & ".jpg" ' 需要上传的目录 Dim request As FtpWebRequest = DirectCast(WebRequest.Create(ftpServer + remoteFilePath), FtpWebRequest) request.Metho

VB.NET · 2023-10-19 · 847 人浏览

VB.NET 定义F4全局热键

Imports System.Runtime.InteropServices Public Class Form1 <DllImport("user32.dll")> Private Shared Function RegisterHotKey(ByVal hWnd As IntPtr, ByVal id As Integer, ByVal fsModifiers As Integer, ByVal vk As Integer) As Boolean End Function <DllImport("user32.dll")> Private Shared Function UnregisterHotKey(ByVal hWnd As IntPtr, ByVal id As Integer) As Boolean End Function ' 窗体句柄 Private hwnd As IntPtr ' 热键标识符 Private

VB.NET · 2023-07-01 · 822 人浏览

无阻塞延迟不卡死窗体代码2

Public Sub 延时秒(ByVal 延时 As Integer, Optional ByVal 单位 As String = "毫秒") Dim 延时时间 As Int64 '因为时间是以100纳秒为单位。 If 单位 = "毫秒" Then 延时时间 = 延时 * 10000 If 单位 = "秒" Then 延时时间 = 延时 * 10000 * 1000 If 单位 = "分" Then 延时时间 = 延时 * 10000 * 1000 * 60 If 单位 = "时" Then 延时时间 = 延时 * 10000 * 1000 * 60 * 60 If 单位 = "天" Then 延时时间 = 延时 * 10000 * 1000 * 60 * 60 * 24 Dim 临时时间 As DateTime = DateTime.Now Whil

VB.NET · 2023-06-29 · 858 人浏览

VB.NET 寻找微信窗体所有的按钮组件

Imports System.Windows.AutomationImports System.Runtime.InteropServicesPublic Class Form1<DllImport("user32.dll", SetLastError:=True)> Private Shared Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr End Function Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click GetChatWndElements() End Sub Public Sub GetChatWndElements() ' 根据快速窗口类名查找窗口 Dim text As String Dim condition As Condition = New Proper

VB.NET · 2023-06-24 · 782 人浏览

VB.NET 窗体中插入子窗体

Imports System.Runtime.InteropServices Public Class Form1' 导入 SetParent 函数 <DllImport("user32.dll", SetLastError:=True)> Private Shared Function SetParent(ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As IntPtr End Function ' 导入 MoveWindow 函数 <DllImport("user32.dll", SetLastError:=True)> Private Shared Function MoveWindow(ByVal hwnd As IntPtr, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal bRepaint As

VB.NET · 2023-06-23 · 840 人浏览

几句话实现任务栏加载小图标样式

运行图代码记得在工具栏中加载NotifyIcon1组件！Imports System.ComponentModel Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load NotifyIcon1.Icon = Me.Icon '将 NotifyIcon 的图标设置为窗体的图标 NotifyIcon1.ContextMenuStrip = ContextMenuStrip1 '将 ContextMenuStrip 关联到 NotifyIcon NotifyIcon1.Visible = True '显示 NotifyIcon End Sub End Class

VB.NET · 2023-06-18 · 761 人浏览

VB.NET 使用API调用默认浏览器打开网页

头部API写：Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Int32, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Int32) As Long 响应过程写：Dim lngReturn As Long lngReturn = ShellExecute(0, "open", "https://lxjc.com", "", "", 0)

VB.NET · 2023-05-27 · 717 人浏览

VB.NET 与 PHP互通进行的AES网络验证

本来很早就想搞个这玩意了，就是校验软件是否可用性，当然也可以进行请求数据的加密！软件远程请求PHP文件，PHP进行AES的加密。加密内带入时间戳。软件接收到了PHP的加密值，然后在软件内进行解密。解密之后校验时间戳，判断当前的时间戳是否在返回的时间戳六十秒之内（提高安全性）。判断无误的话，则提取解密数据的|之前的字符，进行校验。校验成功，进软件。校验失败，弹出服务器返回的失败内容。软件生成之后记得使用VMP加壳软件加壳，不然被破解还是轻轻松松，加上壳之后破解难度就飙升了。代码如下：PHP代码：<?php function EncryptAES($key, $data) { $ivLength = 16; $iv = openssl_random_pseudo_bytes($ivLength); $encryptedText = openssl_encrypt($data, 'AES-128-CBC', $key, OPENSSL_RAW_DATA, $iv); $combinedData = $iv . $encryptedText; $e

VB.NET · 2023-05-27 · 891 人浏览