vb征途外挂源代码

Timer1.Interval = 100 ''100毫秒
End Sub

Private Sub Timer1_Timer()

ReadProcessMemory pHandle, Mdz, Wz, 20, 0& ''读人物位置

ReadProcessMemory pHandle, Mdz + &H110, VarPtr(Dz), 8, 0& ''读玩家数据基址

ReadProcessMemory pHandle, Dz + &H4, Na, 20, 0& ''读当人物名称1

ReadProcessMemory pHandle, Dz + Rpy + &H4C6, VarPtr(H1), 4, 0& ''读取当前血量
If H1 < Val(Text10.Text) And Check1.Value = 1 Then ''吃红判断
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

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

ReadProcessMemory 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

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

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

ReadProcessMemory pHandle, Dz + Rpy + &H50A, VarPtr(J2), 4, 0& ''读取最大经验

ReadProcessMemory pHandle, Dz + Rpy + &H248, VarPtr(Rx), 4, 0& ''读取X坐标

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

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

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

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

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

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

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

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

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

Form1.Caption = Trim(Na)
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub

Private Sub Form_Unload(Cancel As Integer)
CloseHandle 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