LaoDan 发布的文章 - LaoDan 的博客

VB.NET 操作Excel库MiniExcel

最近一直在找可快速读取与写入的Excel库，发现MiniExcel库非常不错。速度也挺快。读取：Dim currentDirectory As String = AppDomain.CurrentDomain.BaseDirectory Dim filePath As String = IO.Path.Combine(currentDirectory, "222.xlsx") Dim rows As IEnumerable(Of Object) = MiniExcel.Query(filePath) For Each row As IDictionary(Of String, Object) In rows If row.ContainsKey("B") Then Console.WriteLine($"B: {row("B")}") End If Next Console.WriteLine("读取完成") 写入（不带标头）： Dim curren

VB.NET · 2024-07-03 · 1207 人浏览

使用Newtonsoft.Json进行的配置保存代码

Imports System.IO Imports Newtonsoft.Json Module ini读写模块 Public Sub SaveConfig(config As Config, filePath As String) Dim json As String = JsonConvert.SerializeObject(config, Formatting.Indented) File.WriteAllText(filePath, json) End Sub Public Function LoadConfig(filePath As String) As Config If Not File.Exists(filePath) Then Return New Config() End If Dim json As String = File.ReadAllText(filePath) Return JsonConvert.Des

VB.NET · 2024-06-08 · 1227 人浏览

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

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

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

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

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

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

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

文件监测移动工具

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

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

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

文件数量查询删除工具

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

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

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

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

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

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