LaoDan 发布的文章 - LaoDan 的博客

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

抖音直播源实时解析工具，支持分享链接(已废，重新更新)

新版已更新。此版做废，界面真的是太丑了。重置了UI，代码也一并重构了。另外新增分享地址自解析。如：4 06/08 S@y.TL 【商丘雷震子工艺品的直播间】点击打开👉https://v.douyin.com/iAjQpBh8/ 或长按复制此条消息，打开抖音，看TA直播新地址：https://lxjc.com/index.php/archives/193/

原创软件 · 2023-05-02 · 26811 人浏览

抖音直播源实时解析工具，支持分享链接(已废，重新更新)

感叹号辅助工具

软件上实际只有一个功能，就是快速将上游供应商的产品发布到自己的店铺内。在感叹号中将上游产品在加入销售列表中，加入一个，就无法跳转到供应商页面，加入销售列表一个两个还好说，如果多的话，就非常麻烦了。使用方式：·第一步：点击软件内的按钮[打开后台]，将会使用默认浏览器打开感叹号的后台界面。·第二步：输入自己的用户名和密码进行登陆。·第三步：获取供应商并选择要打开的供应商。·第四步：在下方产品栏右键，选择[获取供应商产品]，将拉出供应商的产品。·第五步：选择想要发布的商品，右键，选择[打开产品]，直接通过浏览器进行发布即可。下载地址：https://www.123pan.com/s/AHC0Vv-Q6Jc.html

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

欢乐斗地主内置记牌器 2.25.0.6版

首次打开游戏，可能会有呼不出来的现象，请关闭QQ游戏，关闭斗地主。重新打开重试。这种情况只会出现首次下载QQ游戏，首次打开斗地主时。功能：重置地址：勾选之后，将会重置地址，重新获取地址，这个适用于内存地址出错的情况下。锁定值，将记牌器一直处于锁定状态，不用每局点击呼出记牌器功能。下地地址：https://www.123pan.com/s/AHC0Vv-A6Jc.html

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

欢乐斗地主内置记牌器 2.25.0.6版

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

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

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

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

迅雷不限速下载 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 · 2919 人浏览

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

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