LaoDan 发布的文章 - LaoDan 的博客

GifCam_4.5（录屏）录制为GIF图片的工具

文件下载：GifCam_4.5（录屏）.rar没有什么好说的，下载软件，选择区域，录制即可保存为GIF图片格式。

转载软件 · 2023-05-01 · 825 人浏览

LaoDan 2023-05-01

标题：
1、通过代码注入实现的PC微信消息撤回提醒
2、修改DLL文件实现消息禁止撤回

我懒得挪图片了，图片太多了，有需要了解的这个帖子还是去吾爱破解了解吧。

地址：https://www.52pojie.cn/thread-1776768-1-1.html

迅雷不限速下载 V3.3版本

通过此软件可以使用IDM到达下载速度的极限，而且支持离线提交，视频在线播放功能。注：软件使用的合租迅雷会员模式，不支持个人账号的使用。因为使用了腾讯云函数、还有服务器等其它附加玩意。无法保证任何人使用自己的账号使用。下载地址：https://www.123pan.com/s/AHC0Vv-16Jc.html提取码:x0n6

原创软件 · 2023-05-01 · 1965 人浏览

迅雷不限速下载 V3.3版本

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

启动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 · 688 人浏览

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

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

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

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

LaoDan 2023-05-01

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