vb征途外挂源代码

)
Hm5 = Val(Text5.Text)
Fm5 = Val(Hm5) * Val(1000)
Hm6 = Val(Text6.Text)
Fm6 = Val(Hm6) * Val(1000)
If Check11.Value = 1 Then
Timer2.Interval = Val(Fm1)
Timer2.Enabled = True
Else
Timer2.Enabled = False
End If
If Check10.Value = 1 Then
Timer3.Interval = Val(Fm2)
Timer3.Enabled = True
Else
Timer3.Enabled = False
End If
If Check9.Value = 1 Then
Timer4.Interval = Val(Fm3)
Timer4.Enabled = True
Else
Timer4.Enabled = False
End If
If Check4.Value = 1 Then
Timer5.Interval = Val(Fm4)
Timer5.Enabled = True
Else
Timer5.Enabled = False
End If
If Check7.Value = 1 Then
Timer6.Interval = Val(Fm5)
Timer6.Enabled = True
Else
Timer6.Enabled = False
End If
If Check8.Value = 1 Then
Timer7.Interval = Val(Fm6)
Timer7.Enabled = True
Else
Timer7.Enabled = False
End If
If Check5.Value = 1 Then
Timer12.Enabled = True
Else
Timer12.Enabled = False
End If
If Check12.Value = 1 Then
Timer14.Enabled = True
Else
Timer14.Enabled = False
End If
End Sub
Private Sub Timer2_Timer()
Set Dq = Form1.Combo3
Chiyao ''你想做的事
End Sub
Private Sub Timer3_Timer()
Set Dq = Form1.Combo4
Chiyao
End Sub
Private Sub Timer4_Timer()
Set Dq = Form1.Combo5
Chiyao
End Sub
Private Sub Timer5_Timer()
Set Dq = Form1.Combo6
Chiyao
End Sub
Private Sub Timer6_Timer()
Set Dq = Form1.Combo7
Chiyao
End Sub
Private Sub Timer7_Timer()
Set Dq = Form1.Combo8
Chiyao
End Sub
Private Sub Timer12_Timer()
SetCursorPos 200, 530
mouse_event MOUSEEVENTF_ABSOLUTE Or _
MOUSEEVENTF_LEFTDOWN, X, Y, 0, 0
Timer13.Enabled = True
Timer12Enabled = False
End Sub
Private Sub Timer13_Timer()
mouse_event MOUSEEVENTF_ABSOLUTE Or _
MOUSEEVENTF_LEFTUP, X, Y, 0, 0
Timer12.Enabled = True
Timer13.Enabled = False
End Sub
Private Sub Timer14_Timer()
AppActivate Wtxt ''激活游戏窗口
SendKeys "`"
End Sub

模块部分

Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByVal lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Declare Function GetCurrentProcess Lib "kernel32" () As Long
Public Const STANDARD_RIGHTS_REQUIRED = &HF0000
Public Const SYNCHRONIZE = &H100000
Public Const STANDARD_RIGHTS_ALL = &H1F0000
Public Const PROCESS_ALL_ACCESS = STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &HFFF
Public Const PROCESS_VM_OPERATION = &H8&
Public Const PROCESS_VM_READ = &H10&
Public Const PROCESS_VM_WRITE = &H20&

Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Public Type POINTAPI
X As Long
Y As Lo