LaoDan 的博客

VB.NET 中配置文件调用模块

留存下模块代码，下次写代码就不用翻之前的代码了。模块代码： 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 Strin

VB.NET · 2024-05-07 · 1090 人浏览

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

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

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

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

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

解决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 · 1128 人浏览

文件监测移动工具

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

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

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

文件数量查询删除工具

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

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

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

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

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

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

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

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