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

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 · 1080 人浏览

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 · 1380 人浏览

VB.NET 字符串转Unicode十进制编码源码

运行图源码Sub Main(args As String()) 跳过: Console.Clear() Dim inputString As String Console.WriteLine("请输入字符串：") inputString = Console.ReadLine() Dim unicodeArray(inputString.Length - 1) As Integer For i As Integer = 0 To inputString.Length - 1 unicodeArray(i) = Char.ConvertToUtf32(inputString, i) Next Console.Write("输出的十进制Unicode编码为：" & Environment.NewLine) For Each code As Integer In unicodeArray Console.Write("&#" & code.To

VB.NET · 2023-05-26 · 1144 人浏览

.NET 平台下使用Sunny UI库美化窗体

首先，点击项目-右键-点击管理 nuget程序包再点击浏览，输入sunnyui，搜索到之后选择安装最新版本。在右侧，选择form1-form1，点击Dispose(Boolean)修改下面的代码：修改为：导入Sunny.UI命名空间：Imports Sunny.UIForm1类继承UIForm类：Inherits UIForm然后打开窗体设计页面，这个时候发现窗体已生效。

VB.NET · 2023-05-08 · 1543 人浏览

VB.NET 解决GET或POST请求时，提示“未能创建 SSL/TLS 安全通道。”的问题

给别人定制软件时遇到的一个问题，使用HttpWebRequest请求类时，提示错误。这个应该是HTTPS证书的问题。以下是解决方法。代码如下：'使用TLS12安全协议连接 ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12 '创建HTTP请求对象，并指定URL地址 Dim request As HttpWebRequest = WebRequest.Create(TextBox2.Text) '设置HTTP请求方法为POST request.Method = "POST" '设置HTTP User-Agent头信息 request.UserAgent = "Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/109.0.0.0 Safari/537.36 Edg/109.0.1518.100" '不保持连接状态 request.KeepAl

VB.NET · 2023-05-08 · 1564 人浏览

VB.NET MD5加密模块

Function GetMD5Hash(ByVal strToHash As String) As String Dim md5Obj As New MD5CryptoServiceProvider() Dim bytesToHash() As Byte = Encoding.ASCII.GetBytes(strToHash) bytesToHash = md5Obj.ComputeHash(bytesToHash) Dim strResult As New StringBuilder() For Each b As Byte In bytesToHash strResult.Append(b.ToString("x2")) Next Return strResult.ToString() End Function 使用方式：GetMD5Hash("需要加密的字符串")

VB.NET · 2023-05-08 · 1089 人浏览

VB.NET 解析JSON数据过程

' 定义一个名为“解析JSON”的子过程，并传递一个字符串类型参数 str Sub 解析JSON(ByVal str As String) ' 创建一个对象 ScriptObj 并将其设置为“MSScriptControl.ScriptControl”类的实例 Dim ScriptObj As Object ScriptObj = CreateObject("MSScriptControl.ScriptControl") ' 允许 UI 操作 ScriptObj.AllowUI = True ' 将脚本语言设置为 JavaScript ScriptObj.Language = "JavaScript" ' 向 ScriptObj 对象添加代码，该代码将变量 data 设置为传入的 JSON 字符串 str ScriptObj.AddCode("var data = " & str & ";

VB.NET · 2023-05-02 · 1083 人浏览

onedrive直链解析源码及成品

Imports System.Text.RegularExpressions ' 导入正则表达式命名空间 Imports System.Net ' 导入网络请求命名空间 Public Class Form1 ' 定义窗体类 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click ' 按钮1的点击事件处理程序 Dim url As String = TextBox1.Text ' 从文本框1获取输入的链接 Dim regex_domain As New Regex("^https:\/\/([\.\w-]+)\/.*$") ' 定义匹配域名的正则表达式对象 Dim regex_name As New Regex("\/g\/personal\/(\w+)\/") ' 定义匹配用户名的正则表达式对象 Dim regex_link As New Regex("\/

VB.NET · 2023-05-01 · 3738 人浏览

启动N个线程

以下是 VB.NET 中使用 System.Threading 命名空间启动 10 个线程并调用函数的示例代码：Imports System.Threading Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click ' 创建一个包含 10 个线程的 Thread 数组 Dim threads(9) As Thread For i As Integer = 0 To 9 threads(i) = New Thread(AddressOf DoWork) threads(i).Start(i) Next End Sub Private Sub DoWork(ByVal data As Object) Dim id As Integer = CType(data, Integer)

VB.NET · 2023-05-01 · 1023 人浏览

VB.NET延迟函数不卡死窗体

其实还有其它的方法来延迟过程，并不卡死窗体。' 导入 Threading 命名空间 Imports System.Threading Public Class Form1 ' 创建延迟函数 Public Async Function Delay(ByVal milliseconds As Integer) As Task Await Task.Delay(milliseconds) End Function ' 使用示例 Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click For i = 0 To 10 ListBox1.Items.Add(i) Await Delay(3000) ' 延迟 3 秒 Next End Sub End Class

VB.NET · 2023-05-01 · 1254 人浏览