LaoDan 的博客

VB.NET HOOK示例

Imports System.Runtime.InteropServices Imports System.Text Module Module1 '定义HOOKPROC委托 Private Delegate Function HookProc(ByVal nCode As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Integer '定义Win32 API函数 <DllImport("User32.dll", SetLastError:=True)> Private Function SetWindowsHookEx(ByVal idHook As Integer, ByVal lpfn As HookProc, ByVal hInstance As IntPtr, ByVal threadId As UInteger) As IntPtr End Function <DllImport("User3

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

HttpClient请求发送代码示例

下面是 VB.NET 中使用 HttpClient 类进行 GET 请求的示例代码：Imports System.Net.Http Public Class Form1 Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click ' 创建一个 HttpClient 对象实例 Using client As New HttpClient() ' 向指定 URL 发送 GET 请求，并等待响应 Dim response As HttpResponseMessage = Await client.GetAsync("https://example.com") ' 检查是否成功，如果成功则读取响应内容 If response.IsSuccessStatusCode Then Dim c

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

HttpClient请求并定义UTF-8编码

在 VB.NET 的 HttpClient 类中，您可以通过设置 HTTP 请求的 Content-Type 标头来指定请求正文的编码方式。下面是一个例子：Imports System.Net.Http Imports System.Text Public Class Form1 Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Using client As New HttpClient() ' 创建一个 StringContent 对象，并将其编码方式设置为 UTF-8 Dim content As New StringContent("Hello, world!", Encoding.UTF8, "text/plain") Dim response As HttpResponseMessage = Await cl

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

LaoDan 2023-05-01

正好在五一劳动节搭建，以后发布一些自己收藏的软件还有分享一些源码。