LaoDan 的博客

LaoDan 的博客

The Coding Way

VB.NET 使用JSON获取数据

首先在Nuget中搜索JSON。然后下载Newtonsoft.Json.Linq然后使用下面的代码进行解析： ' 解析JSON数据 Dim jsonObject As JObject = JObject.Parse(responseContent) Dim code As String = jsonObject("code").ToString() If code = "1000" Then 全局变量_ip = jsonObject.SelectToken("data[0].ip").ToString() 全局变量_port = jsonObject.SelectToken("data[0].port").ToString() End If

VB.NET · 2023-11-03 · 428 人浏览

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

LaoDan 2023-10-25

目前在用的ChatGPT网站

点击访问：Forefront Chat

注意：使用之前，请检测自己是否具有以下的条件：
1、Ti子
2、谷歌账号或自行使用手机号注册账号。

LaoDan 2023-10-24

此版主题感觉很符合审美。
而且此版主题增加了文章浏览量的显示。
采用了Jasmine主题。

通过抖音分享链接转换为抖音用户链接(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 · 570 人浏览

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

OCR本地验证码识别库 VB.NET调用识别

前段时间发现易语言调用的一个DLL文件，参与了某个网站的登陆，发现有这样的一个功能。研究了下DLL的参数，改为了可以使用VB.NET来进行参与的代码。效果感觉不错，识别率还是挺高的。软件源码下载：https://www.123pan.com/s/AHC0Vv-vsMc.html软件在Visual Studio2019 编译通过。

原创软件 · 2023-09-23 · 406 人浏览

VB.NET 读取ini文件模块采用UTF8编码

Module ini读写模块 Private Declare Unicode Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntW" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal nDefault As Integer, ByVal lpFileName As String) As Integer Private Declare Unicode Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringW" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVa

转载软件 · 2023-09-19 · 273 人浏览

NET Reactor混淆处理工具 .NET Reactor版本 6.9

说明最近一直在寻找一款比较好用的.NET混淆工具。先后尝试了Obfuscar、VMP、还有这一款，目前的话感觉这一款使用还是非常不错的。所以根本.NET Reactor的第三方写出来这样的一个小工具，因为.NET Reactor他的程序是英文版，按照软件默认的设置，可以防止很大一部分的工具党。注：关键代码必须使用虚拟化做处理，不然的话，使用GITHUB的NETReactorSlayer工具，秒解混淆，加入虚拟化之后，NETReactorSlayer工具针对虚拟化的代码，还是无法还原。软件图使用说明将.NET软件拖动到程序窗体，然后点击“开始处理”按钮即可开始进行混淆。混淆结束之后，可以点击打开目录来查看已经混淆处理之后的程序目录。当前的使用NETReactor的功能如下：1、程序默认混淆功能2、字符串加密3、方法调用混淆4、压缩及加密程序资源5、代码执行虚拟化6、控制流模糊等级默认为9最后再说明一点，NET程序内的关键代码过程务必添加虚拟化的指令，具体可以参考软件内的说明。软件下载https://www.123pan.com/s/AHC0Vv-DEMc.html提取码:3aad

原创软件 · 2023-08-31 · 482 人浏览

NET Reactor混淆处理工具 .NET Reactor版本 6.9

LaoDan 2023-08-26

欢乐斗地主内置记牌器停止更新

今天上线看了下游戏，改版挺厉害。直接改为了64位的程序。
而且将原来的2D给改为了3D。整个程序的框架全都变动了。
之前一直使用的基址已经无法使用，再次更新难度太大。