ztu.txt

实现基本功能的征途的VB外挂源码

   Set Dq = Form1.Combo1
   Chiyao
End If
If H1 < Val(Text7.Text) And Check3.value = 1 Then        '吃红判断2
   Set Dq = Form1.Combo9
   Chiyao
End If

[b]ReadProcessMemory[/b] pHandle, Dz + Rpy + &H4CA, VarPtr(H2), 4, 0& '读取最大血量

[b]ReadProcessMemory[/b] pHandle, Dz + Rpy + &H4D2, VarPtr(L1), 4, 0& '读取当前魔法
If L1 < Val(Text11.Text) And Check2.value = 1 Then        '吃蓝判断
   Set Dq = Form1.Combo2
   Chiyao
End If
If L1 < Val(Text8.Text) And Check6.value = 1 Then        '吃蓝判断
   Set Dq = Form1.Combo10
   Chiyao
End If


[b]ReadProcessMemory[/b] pHandle, Dz + Rpy + &H4D6, VarPtr(L2), 4, 0& '读取最大魔法

[b]ReadProcessMemory[/b] pHandle, Dz + Rpy + &H502, VarPtr(J1), 4, 0& '读取当前经验

[b]ReadProcessMemory[/b] pHandle, Dz + Rpy + &H50A, VarPtr(J2), 4, 0& '读取最大经验
   
[b]ReadProcessMemory[/b] pHandle, Dz + Rpy + &H248, VarPtr(Rx), 4, 0&  '读取X坐标

[b]ReadProcessMemory[/b] pHandle, Dz + Rpy + &H24C, VarPtr(Ry), 4, 0&  '读取Y坐标


[b]ReadProcessMemory[/b] pHandle, Gjz, VarPtr(Gdz), 4, 0&  '读取怪物基址

If [b]ReadProcessMemory[/b](pHandle, Gdz + &H4, GNa, 20, 0&) = 0 Then GNa = "没有目标"  '怪名称"

If [b]ReadProcessMemory[/b](pHandle, Gdz + &H40, VarPtr(GH1), 4, 0&) = 0 Then GH1 = 0   '怪当前血

If [b]ReadProcessMemory[/b](pHandle, Gdz + &H44, VarPtr(GH2), 4, 0&) = 0 Then GH2 = 0   '怪最大血

If [b]ReadProcessMemory[/b](pHandle, Gdz + &H2C, VarPtr(GzbX), 4, 0&) = 0 Then GzbX = 0   '怪当X坐标

If [b]ReadProcessMemory[/b](pHandle, Gdz + &H30, VarPtr(GzbY), 4, 0&) = 0 Then GzbY = 0   '怪最Y坐标

Label10.Caption = Trim(Na)
Label9.Caption = J1 & " / " & J2
Label6.Caption = H1 & " / " & H2
Label7.Caption = L1 & " / " & L2
Label19.Caption = Rx & "：" & Ry
Label15.Caption = Trim(Wz)

Label11.Caption = Trim(GNa)
Label13.Caption = GH1 & " / " & GH2
Label17.Caption = GzbX & "：" & GzbY

End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
[b]ReleaseCapture[/b]
[b]SendMessage[/b] Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub

Private Sub Form_Unload(Cancel As Integer)
[b]CloseHandle[/b] pHandle '关闭进程句柄
Unload Me
End
End Sub
Private Sub Timer11_Timer()
Hm1 = Val(Text1.Text)
Fm1 = Val(Hm1) * Val(1000)
Hm2 = Val(Text2.Text)
Fm2 = Val(Hm2) * Val(1000)
Hm3 = Val(Text3.Text)
Fm3 = Val(Hm3) * Val(1000)
Hm4 = Val(Text4.Text)
Fm4 = Val(Hm4) * Val(1000)
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()
[b]SetCursorPos[/b] 200, 530
[b]mouse_event[/b] MOUSEEVENTF_ABSOLUTE Or _
MOUSEEVENTF_LEFTDOWN, X, Y, 0, 0
Timer13.Enabled = True
Timer12Enabled = False
End Sub
Private Sub Timer13_Timer()
[b]mouse_event[/b] 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 [b]SetCursorPos[/b] Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Declare Function [b]FindWindow[/b] Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function [b]GetWindowThreadProcessId[/b] Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Declare Function [b]OpenProcess[/b] Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Declare Function [b]ReadProcessMemory[/b] 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 [b]CloseHandle[/b] Lib "kernel32" (ByVal hObject As Long) As Long
Declare Function [b]GetCurrentProcess[/b] 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 Long
End Type

'目标窗口操作API
Declare Function SetWindowPos Lib "user32.dll" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

'模拟键盘按键操作API
Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

'暂停毫秒API
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

'写内存API
Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByVal lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

'为当前的应用程序释放鼠标捕获API
Declare Function ReleaseCapture Lib "user32" () As Long

'易动窗口API
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

'获得目标窗口矩形大小API
Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

'获得目标窗口位置API
Declare Function ClientToScreen Lib "user32.dll" (ByVal hwnd As Long, ByRef lpPoint As POINTAPI) As Long

Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, lpKeyName As Any, ByVal lpDefault As String, ByVal lpRetunedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lplFileName As String) As Long

Public Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Public Const HTCAPTION = 2
Public Const WM_NCLBUTTONDOWN = &HA1
Public Const PROCESS_QUERY_INFORMATION As Long = (&H400)

Public Const KEYEVENTF_KEYUP As Long = &H2

Public Const SWP_HIDEWINDOW As Long = &H80
Public Const SWP_SHOWWINDOW As Long = &H40
Public Const HWND_NOTOPMOST As Long = -2
Public Const SWP_NOMOVE As Long = &H2
Public Const SWP_NOSIZE As Long = &H1