LaoDan 的博客

.NET Reactor 6.9.0 PJ版本

软件可针对于.NET程序进行混淆处理，实行代码的虚拟化，资源压缩、代码混淆等。注意的是，最好在关键代码处插入虚拟化指令。这样可以大大提高反混淆的强度，防止软件的破解。原始代码：插入虚拟化：<System.Reflection.ObfuscationAttribute(Feature:="Virtualization", Exclude:=False)> DnSpy未混淆查看结果：混淆之后的结果(勾选Code Virtualization)：软件下载：https://400.lanzout.com/inmMQ1ufu90b

转载软件 · 2024-04-09 · 1546 人浏览

微信消息消息自动发送工具

功能如下：1、输入内容，点击“新增”，将自动保存数据，下次打开软件，自动读取。2、右键增加“删除此行”功能，删除自保存数据以及当前行。3、双击内容自动发送微信消息。文件下载：微信消息发送工具.rar

原创软件 · 2024-04-08 · 1567 人浏览

微信消息消息自动发送工具

解决DataGridView1组件不能完全居中的问题

Me.DataGridView1.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter For i As Integer = 0 To DataGridView1.Columns.Count - 1 Me.DataGridView1.Columns(i).SortMode = DataGridViewColumnSortMode.NotSortable Next

VB.NET · 2024-04-04 · 1085 人浏览

文件监测移动工具

主要功能，可自定义检测间隔时间。判定检测的文件夹内是否有txt文本，如果存在的话，将文本移动到移动文件夹内。下载地址：文件成品.rar源码：自动迁移数据工具_源码.rar

原创软件 · 2024-03-21 · 1091 人浏览

VB.NET 调用纯真IP库进行IP查询

类文件[IPHelper.vb]: Imports System Imports System.Collections.Generic Imports System.IO Imports System.Linq Imports System.Net Imports System.Text Imports System.Threading.Tasks Namespace IPLibrary ''' <summary> ''' IP归属地查询 ''' qqwry.dat文件的结构原理参考：[qqwry.dat的数据结构图文解释](https://www.jb51.net/article/17197_all.htm) ''' </summary> Public Class IPHelper ' IP库文件地址 Private ReadOnly mLibraryFilePath As String ' 第一条索引的绝对地址 Private ReadOnly m

VB.NET · 2023-12-15 · 1312 人浏览

文件数量查询删除工具

客户定制的软件。功能如下：1、文件夹可拖动或按钮选择目录的形式。2、输入文件数量值，比如输入30,那么则列出所有的此文件夹下的所有子目录内的文件数量。如果低于30，那么将此文件夹删除。软件下载：文件数量查询.rar

原创软件 · 2023-11-18 · 1250 人浏览

别人定制的全局热键进程快速结束工具

别人定制的软件工具，有以下的功能：可以拖动组件移动到窗体上，然后软件自动获取PID。可以在软件中设置快捷键。可以一键结束进程。注：软件最小化之后将会在后台隐藏。可以双击任务栏，呼出软件窗体。软件下载地址：https://www.123pan.com/s/AHC0Vv-NYwc.html

原创软件 · 2023-11-17 · 1411 人浏览

别人定制的全局热键进程快速结束工具

VB.NET 操作EXCEL数据操作ExcelDataReader库

代码测试可用，使用这个库的操作还是不错的。Dim filePath As String = "E:\1.xlsx" ' 创建一个文件流来打开Excel文件 Using stream As FileStream = File.Open(filePath, FileMode.Open, FileAccess.Read) ' 使用ExcelDataReader打开Excel文件 Using reader As IExcelDataReader = ExcelReaderFactory.CreateReader(stream) ' 选择要读取的工作表，默认为第一个工作表 reader.Read() ' 循环读取每一行的第二列的值 While reader.Read() Dim value As Object = reader.GetValue(1) ' 第二列的索引为1 Console.WriteLine(value.ToString())

转载软件 · 2023-11-08 · 1357 人浏览

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

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