LaoDan 的博客

易语言解决“调试输出”不可用

.版本 2 .支持库 spec 调试输出 ()

协议分析 · 2024-07-19 · 853 人浏览

VB.NET 使用Nuget安装LiteDB轻量化数据库

如果对数据写入要求不高，需要轻量级的数据管理的话，推荐LiteDb数据库。安装之后只有一个DLL文件来做调用。相关代码片段：Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click ' 获取应用程序的目录 Dim appDirectory As String = AppDomain.CurrentDomain.BaseDirectory ' 数据库文件路径 Dim dbPath As String = Path.Combine(appDirectory, "example.db") ' 打开或创建数据库文件 Using db As New LiteDatabase(dbPath) ' 获取Users集合 Dim users = db.GetCollection(Of User)("Users")

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

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

使用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 · 773 人浏览

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

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

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

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

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

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

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

文件监测移动工具

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

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

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