¡°×Ô¶¯µã»÷°´Å¥¡±Ð¡¹¤¾ß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