ztu.txt

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

窗体代码

Private Declare Function [b]InitCommonControls[/b] Lib "comctl32.dll" () As Long
Private Declare Sub [b]mouse_event[/b] 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, [b]GetPrivateProfileString[/b](AppName, ByVal KeyName, "", RetStr, Len(RetStr), FileName))
End Function

Private Sub Chiyao() '吃药
      AppActivate Wtxt   '激活游戏窗口
      
      Select Case Dq.Text
         Case "0"
         Call [b]keybd_event[/b](VK_0, 0, 0, 0)
         [b]Sleep[/b] 300
         Call [b]keybd_event[/b](VK_0, 0, KEYEVENTF_KEYUP, 0)
         
         Case "1"
         Call [b]keybd_event[/b](VK_1, 0, 0, 0)
         [b]Sleep[/b] 300
         Call [b]keybd_event[/b](VK_1, 0, KEYEVENTF_KEYUP, 0)
         
         Case "2"
         Call [b]keybd_event[/b](VK_2, 0, 0, 0)
         [b]Sleep[/b] 300
         Call [b]keybd_event[/b](VK_2, 0, KEYEVENTF_KEYUP, 0)
         
         Case "3"
         Call [b]keybd_event[/b](VK_3, 0, 0, 0)
         [b]Sleep[/b] 300
         Call [b]keybd_event[/b](VK_3, 0, KEYEVENTF_KEYUP, 0)
         
         Case "4"
         Call [b]keybd_event[/b](VK_4, 0, 0, 0)
         [b]Sleep[/b] 300
         Call [b]keybd_event[/b](VK_4, 0, KEYEVENTF_KEYUP, 0)
         
         Case "5"
         Call [b]keybd_event[/b](VK_5, 0, 0, 0)
         [b]Sleep[/b] 300
         Call [b]keybd_event[/b](VK_5, 0, KEYEVENTF_KEYUP, 0)
         
         Case "6"
         Call [b]keybd_event[/b](VK_6, 0, 0, 0)
         [b]Sleep[/b] 300
         Call [b]keybd_event[/b](VK_6, 0, KEYEVENTF_KEYUP, 0)
         
         Case "7"
         Call [b]keybd_event[/b](VK_7, 0, 0, 0)
         [b]Sleep[/b] 300
         Call [b]keybd_event[/b](VK_7, 0, KEYEVENTF_KEYUP, 0)
         
         Case "8"
         Call [b]keybd_event[/b](VK_8, 0, 0, 0)
         [b]Sleep[/b] 300
         Call [b]keybd_event[/b](VK_8, 0, KEYEVENTF_KEYUP, 0)
         
         Case "9"
         Call [b]keybd_event[/b](VK_9, 0, 0, 0)
         [b]Sleep[/b] 300
         Call [b]keybd_event[/b](VK_9, 0, KEYEVENTF_KEYUP, 0)
         
         Case "F1"
         Call [b]keybd_event[/b](VK_F1, 0, 0, 0)
         [b]Sleep[/b] 300
         Call [b]keybd_event[/b](VK_F1, 0, KEYEVENTF_KEYUP, 0)
         
         Case "F2"
         Call [b]keybd_event[/b](VK_F2, 0, 0, 0)
         [b]Sleep[/b] 300
         Call [b]keybd_event[/b](VK_F2, 0, KEYEVENTF_KEYUP, 0)
         
         Case "F3"
         Call [b]keybd_event[/b](VK_F3, 0, 0, 0)
         [b]Sleep[/b] 300
         Call [b]keybd_event[/b](VK_F3, 0, KEYEVENTF_KEYUP, 0)
         
         Case "F4"
         Call [b]keybd_event[/b](VK_F4, 0, 0, 0)
         [b]Sleep[/b] 300
         Call [b]keybd_event[/b](VK_F4, 0, KEYEVENTF_KEYUP, 0)
         
         Case "F5"
         Call [b]keybd_event[/b](VK_F5, 0, 0, 0)
         [b]Sleep[/b] 300
         Call [b]keybd_event[/b](VK_F5, 0, KEYEVENTF_KEYUP, 0)
         
         Case "F6"
         Call [b]keybd_event[/b](VK_F6, 0, 0, 0)
         [b]Sleep[/b] 300
         Call [b]keybd_event[/b](VK_F6, 0, KEYEVENTF_KEYUP, 0)
         
         Case "F7"
         Call [b]keybd_event[/b](VK_F7, 0, 0, 0)
         [b]Sleep[/b] 300
         Call [b]keybd_event[/b](VK_F7, 0, KEYEVENTF_KEYUP, 0)
         
         Case "F8"
         Call [b]keybd_event[/b](VK_F8, 0, 0, 0)
         [b]Sleep[/b] 300
         Call [b]keybd_event[/b](VK_F8, 0, KEYEVENTF_KEYUP, 0)
         
         Case "F9"
         Call [b]keybd_event[/b](VK_F9, 0, 0, 0)
         [b]Sleep[/b] 300
         Call [b]keybd_event[/b](VK_F9, 0, KEYEVENTF_KEYUP, 0)
         
         Case "F10"
         Call [b]keybd_event[/b](VK_F10, 0, 0, 0)
         [b]Sleep[/b] 300
         Call [b]keybd_event[/b](VK_F10, 0, KEYEVENTF_KEYUP, 0)
         
         Case "F11"
         Call [b]keybd_event[/b](VK_F11, 0, 0, 0)
         [b]Sleep[/b] 300
         Call [b]keybd_event[/b](VK_F11, 0, KEYEVENTF_KEYUP, 0)
         
         Case "F12"
         Call [b]keybd_event[/b](VK_F12, 0, 0, 0)
         [b]Sleep[/b] 300
         Call [b]keybd_event[/b](VK_F12, 0, KEYEVENTF_KEYUP, 0)
          Case "`"
         SendKeys "`"
      End Select
End Sub

Private Sub Form_Load()
Dim pid As Long
Hwndfw = [b]FindWindow[/b]("zhengtu_client", vbNullString)                            '取得目标窗口的句柄
If (Hwndfw = 0) Then
   MsgBox "游戏未载入"
   End
End If

[b]GetWindowText[/b] Hwndfw, Wtxt, 50                                                 '取得窗口标题

[b]GetWindowThreadProcessId[/b] Hwndfw, pid                                           '取得进程标识符
pHandle = [b]OpenProcess[/b](PROCESS_VM_READ + PROCESS_QUERY_INFORMATION, False, pid) '取得进程句柄'
Timer1.Enabled = True                                                          '开启时钟

Mdz = Val("&H" & GetFromINI("Setup", "地图地址", App.Path + "\地址.ini"))
Rjz = Val("&H" & GetFromINI("Setup", "人物基址", App.Path + "\地址.ini"))
Rpy = Val("&H" & GetFromINI("Setup", "人物偏移", App.Path + "\地址.ini"))
Gjz = Val("&H" & GetFromINI("Setup", "目标基址", App.Path + "\地址.ini"))
If Mdz = 0 Or Rjz = 0 Or Gjz = 0 Then
   MsgBox "数据未搜索到，请保证当前目录下有【征途超强搜索】生成的【地址.ini】文件。"
   Unload Me
   End
End If
[b]SetWindowPos[/b] Me.hwnd, -1, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE                 '总在最前面
End Sub


Private Sub Timer1_Timer()

[b]ReadProcessMemory[/b] pHandle, Mdz, Wz, 20, 0&           '读人物位置
 
[b]ReadProcessMemory[/b] pHandle, Mdz + &H110, VarPtr(Dz), 8, 0&  '读玩家数据基址

[b]ReadProcessMemory[/b] pHandle, Dz + &H4, Na, 20, 0&         '读当人物名称1
   
[b]ReadProcessMemory[/b] pHandle, Dz + Rpy + &H4C6, VarPtr(H1), 4, 0& '读取当前血量
If H1 < Val(Text10.Text) And Check1.value = 1 Then        '吃红判断