“自动点击按钮”小工具VB源码

“自动点击按钮”小工具VB源码
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Private Sub Form_Load()
On Error Resume Next '遇错处理
Me.Hide
Dim AppPath$
AppPath = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") '程序路径
ChDrive Left(AppPath, 2) '切换磁盘
ChDir AppPath '切换路径
iniFileName = AppPath & "AutoClick.ini" '配置文件
If Dir(iniFileName) = "" Then
MsgBox "请在AutoClick.ini中配置信息！"
Unload Me
End If
Dim WinTitle As String
Dim ButTitle As String
Dim WinClass As String
Dim ButClass As String
Dim GameRuns As String
Dim WaitTime%
Dim WinHwnd As Long
Dim ButHwnd As Long
WinTitle = GetIniS("Config", "WinTitle", "")
ButTitle = GetIniS("Config", "ButTitle", "")
WinClass = GetIniS("Config", "WinClass", "")
ButClass = GetIniS("Config", "ButClass", "")
GameRuns = GetIniS("Config", "GameRuns", "")
WaitTime = Val(GetIniS("Config", "WaitTime", "10"))
If WinTitle = "" Then Unload Me
If ButTitle = "" Then Unload Me
If WinClass = "" Then WinClass = vbNullString
If ButClass = "" Then ButClass = vbNullString
If GameRuns <> "" Then Shell "cmd /c Start """" """ & GameRuns & """", 0
If WaitTime < 1 Then WaitTime = 10
Dim YanShi%
DoEvents