第一部份:
''窗口代码
Private Declare Function InitCommonControls Lib "comctl32.dll" () As Long
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
Private Const VK_0 As Long = 48
Private Const VK_1 As Long = 49
Private Const VK_2 As Long = 50
Private Const VK_3 As Long = 51
Private Const VK_4 As Long = 52
Private Const VK_5 As Long = 53
Private Const VK_6 As Long = 54
Private Const VK_7 As Long = 55
Private Const VK_8 As Long = 56
Private Const VK_9 As Long = 57
Private Const VK_F1 As Long = &H70
Private Const VK_F2 As Long = &H71
Private Const VK_F3 As Long = &H72
Private Const VK_F4 As Long = &H73
Private Const VK_F5 As Long = &H74
Private Const VK_F6 As Long = &H75
Private Const VK_F7 As Long = &H76
Private Const VK_F8 As Long = &H77
Private Const VK_F9 As Long = &H78
Private Const VK_F10 As Long = &H79
Private Const VK_F11 As Long = &H7A
Private Const VK_F12 As Long = &H7B
Private Hwndfw As Long
Private pHandle As Long
Private Wtxt As String * 50
Private Dz As Long
Private Gdz As Long
Private Mdz As Long
Private Rjz As Long
Private Rpy As Long
Private Gjz As Long
Private Wz As String * 20
Private Na As String * 20
Private H1 As Long
Private H2 As Long
Private L1 As Long
Private L2 As Long
Private J1 As Long
Private J2 As Long
Private Rx As Long
Private Ry As Long
Private GNa As String * 20
Private GH1 As Long
Private GH2 As Long
Private GzbX As Long
Private GzbY As Long
Private Dq As ComboBox
Dim Hm1 As Long
Dim Fm1 As Long
Dim Hm2 As Long
Dim Fm2 As Long
Dim Hm3 As Long
Dim Fm3 As Long
Dim Hm4 As Long
Dim Fm4 As Long
Dim Hm5 As Long
Dim Fm5 As Long
Dim Hm6 As Long
Dim Fm6 As Long
Function GetFromINI(AppName As String, KeyName As String, FileName As String) As String
Dim RetStr As String
RetStr = String(255, Chr(0))
GetFromINI = Left(RetStr, GetPrivateProfileString(AppName, ByVal KeyName, "", RetStr, Len(RetStr), FileName))
End Function
Private Sub Chiyao() ''吃药
AppActivate Wtxt ''激活游戏窗口
Select Case Dq.Text
Case "0"
Call keybd_event(VK_0, 0, 0, 0)
Sleep 300
Call keybd_event(VK_0, 0, KEYEVENTF_KEYUP, 0)
Case "1"
Call keybd_event(VK_1, 0, 0, 0)
Sleep 300
Call keybd_event(VK_1, 0, KEYEVENTF_KEYUP, 0)
Case "2"
Call keybd_event(VK_2, 0, 0, 0)
Sleep 300
Call keybd_event(VK_2, 0, KEYEVENTF_KEYUP, 0)
Case "3"
Call keybd_event(VK_3, 0, 0, 0)
Sleep 300
Call keybd_event(VK_3, 0, KEYEVENTF_KEYUP, 0)
Case "4"
Call keybd_event(VK_4, 0, 0, 0)
Sleep 300
Call keybd_event(VK_4, 0, KEYEVENTF_KEYUP, 0)
Case "5"
Call keybd_event(VK_5, 0, 0, 0)
Sleep 300
Call keybd_event(VK_5, 0, KEYEVENTF_KEYUP, 0)
Case "6"
Call