LaoDan 的博客

VB.NET 定义F4全局热键

Imports System.Runtime.InteropServices Public Class Form1 <DllImport("user32.dll")> Private Shared Function RegisterHotKey(ByVal hWnd As IntPtr, ByVal id As Integer, ByVal fsModifiers As Integer, ByVal vk As Integer) As Boolean End Function <DllImport("user32.dll")> Private Shared Function UnregisterHotKey(ByVal hWnd As IntPtr, ByVal id As Integer) As Boolean End Function ' 窗体句柄 Private hwnd As IntPtr ' 热键标识符 Private

VB.NET · 2023-07-01 · 787 人浏览

无阻塞延迟不卡死窗体代码2

Public Sub 延时秒(ByVal 延时 As Integer, Optional ByVal 单位 As String = "毫秒") Dim 延时时间 As Int64 '因为时间是以100纳秒为单位。 If 单位 = "毫秒" Then 延时时间 = 延时 * 10000 If 单位 = "秒" Then 延时时间 = 延时 * 10000 * 1000 If 单位 = "分" Then 延时时间 = 延时 * 10000 * 1000 * 60 If 单位 = "时" Then 延时时间 = 延时 * 10000 * 1000 * 60 * 60 If 单位 = "天" Then 延时时间 = 延时 * 10000 * 1000 * 60 * 60 * 24 Dim 临时时间 As DateTime = DateTime.Now Whil

VB.NET · 2023-06-29 · 828 人浏览

VB.NET 寻找微信窗体所有的按钮组件

Imports System.Windows.AutomationImports System.Runtime.InteropServicesPublic Class Form1<DllImport("user32.dll", SetLastError:=True)> Private Shared Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr End Function Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click GetChatWndElements() End Sub Public Sub GetChatWndElements() ' 根据快速窗口类名查找窗口 Dim text As String Dim condition As Condition = New Proper

VB.NET · 2023-06-24 · 750 人浏览

VB.NET 窗体中插入子窗体

Imports System.Runtime.InteropServices Public Class Form1' 导入 SetParent 函数 <DllImport("user32.dll", SetLastError:=True)> Private Shared Function SetParent(ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As IntPtr End Function ' 导入 MoveWindow 函数 <DllImport("user32.dll", SetLastError:=True)> Private Shared Function MoveWindow(ByVal hwnd As IntPtr, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal bRepaint As

VB.NET · 2023-06-23 · 800 人浏览

几句话实现任务栏加载小图标样式

运行图代码记得在工具栏中加载NotifyIcon1组件！Imports System.ComponentModel Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load NotifyIcon1.Icon = Me.Icon '将 NotifyIcon 的图标设置为窗体的图标 NotifyIcon1.ContextMenuStrip = ContextMenuStrip1 '将 ContextMenuStrip 关联到 NotifyIcon NotifyIcon1.Visible = True '显示 NotifyIcon End Sub End Class

VB.NET · 2023-06-18 · 730 人浏览

PPOCR1.0 平平OCR离线识别工具

昨天使用PaddleOCRSharp库搞了一个离线OCR的工具，我一直感觉OCR工具使用挺方便，昨天想写一个，上论坛看到有现成的还写个毛。软件自测使用挺方便，调用的应该也是PaddleOCRSharp离线OCR的库。使用说明打开软件，在右下角会显示图标，将图标双击，拉取范围即可实现离线的OCR识别软件图软件下载https://400.lanzout.com/isoQK0zge3od

转载软件 · 2023-06-18 · 1047 人浏览

原创破解两款解除win10自动更新工具 QuickFix、Wub

QuickFix是老版联想的取消WIN10更新的工具，我今天看了一下，发现有一个最新版校验，拖到OD干掉了，目前自用挺不错。发出来各位耍耍。Wub朋友发的，两个都放出来，肯定可以干掉WIN10的自动更新。软件下载：QuickFix：https://400.lanzout.com/iTMpA0zc9dwhWub：https://400.lanzout.com/ikdrt0zc9mla

原创软件 · 2023-06-17 · 1603 人浏览

地址状态码检测工具

今天朋友让写的，他有一个业务需求。发出来，有需要自取。功能：在程序目录下TXT文本中自定义需要检测的地址，可以使用|分隔备注和地址。软件可以设定域名间隔时间、检测完一轮间隔时间等。然后循环判断所有地址中的状态码，如果状态码为200、301、302，则为正常。如果为其它的状态码。则向指定的邮箱发送邮件。注：使用之前，请将所有的配置项全都填写。包括SMTP配置信息，也可以将自己填写的信息写配置，然后下次软件打开时将会自行读取。软件运行图：软件下载：地址状态检测.rar

原创软件 · 2023-06-10 · 1132 人浏览

地址状态码检测工具

LaoDan 2023-06-10

最近博客没啥更新，最近比较忙。
今天终于回家了。

上午收麦子，下午撸软件，现在业务范围跨度挺大。

图片_20230610230137.jpg

VB.NET 使用API调用默认浏览器打开网页

头部API写：Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Int32, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Int32) As Long 响应过程写：Dim lngReturn As Long lngReturn = ShellExecute(0, "open", "https://lxjc.com", "", "", 0)

VB.NET · 2023-05-27 · 689 人浏览