vb征途外挂源代码

keybd_event(VK_6, 0, 0, 0)
Sleep 300
Call keybd_event(VK_6, 0, KEYEVENTF_KEYUP, 0)

Case "7"
Call keybd_event(VK_7, 0, 0, 0)
Sleep 300
Call keybd_event(VK_7, 0, KEYEVENTF_KEYUP, 0)

Case "8"
Call keybd_event(VK_8, 0, 0, 0)
Sleep 300
Call keybd_event(VK_8, 0, KEYEVENTF_KEYUP, 0)

Case "9"
Call keybd_event(VK_9, 0, 0, 0)
Sleep 300
Call keybd_event(VK_9, 0, KEYEVENTF_KEYUP, 0)

Case "F1"
Call keybd_event(VK_F1, 0, 0, 0)
Sleep 300
Call keybd_event(VK_F1, 0, KEYEVENTF_KEYUP, 0)

Case "F2"
Call keybd_event(VK_F2, 0, 0, 0)
Sleep 300
Call keybd_event(VK_F2, 0, KEYEVENTF_KEYUP, 0)

Case "F3"
Call keybd_event(VK_F3, 0, 0, 0)
Sleep 300
Call keybd_event(VK_F3, 0, KEYEVENTF_KEYUP, 0)

Case "F4"
Call keybd_event(VK_F4, 0, 0, 0)
Sleep 300
Call keybd_event(VK_F4, 0, KEYEVENTF_KEYUP, 0)

Case "F5"
Call keybd_event(VK_F5, 0, 0, 0)
Sleep 300
Call keybd_event(VK_F5, 0, KEYEVENTF_KEYUP, 0)

Case "F6"
Call keybd_event(VK_F6, 0, 0, 0)
Sleep 300
Call keybd_event(VK_F6, 0, KEYEVENTF_KEYUP, 0)

Case "F7"
Call keybd_event(VK_F7, 0, 0, 0)
Sleep 300
Call keybd_event(VK_F7, 0, KEYEVENTF_KEYUP, 0)

Case "F8"
Call keybd_event(VK_F8, 0, 0, 0)
Sleep 300
Call keybd_event(VK_F8, 0, KEYEVENTF_KEYUP, 0)

Case "F9"
Call keybd_event(VK_F9, 0, 0, 0)
Sleep 300
Call keybd_event(VK_F9, 0, KEYEVENTF_KEYUP, 0)

Case "F10"
Call keybd_event(VK_F10, 0, 0, 0)
Sleep 300
Call keybd_event(VK_F10, 0, KEYEVENTF_KEYUP, 0)

Case "F11"
Call keybd_event(VK_F11, 0, 0, 0)
Sleep 300
Call keybd_event(VK_F11, 0, KEYEVENTF_KEYUP, 0)

Case "F12"
Call keybd_event(VK_F12, 0, 0, 0)
Sleep 300
Call keybd_event(VK_F12, 0, KEYEVENTF_KEYUP, 0)
Case "`"
SendKeys "`"
End Select
End Sub

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

GetWindowText Hwndfw, Wtxt, 50 ''取得窗口标题

GetWindowThreadProcessId Hwndfw, pid ''取得进程标识符
pHandle = OpenProcess(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
SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE ''总在最前面

Combo1.AddItem "1"
Combo1.AddItem "2"
Combo1.AddItem "3"
Combo1.AddItem "4"
Combo1.AddItem "5"
Combo1.AddItem "6&q