[原创]武林外传纯挂机外挂下载（附源码,基址）不断更新！-田东生活网

[原创]武林外传纯挂机外挂下载（附源码,基址）不断更新！

管理员- 2008-03-27 23:02:01

第一次做外挂，也是最新的1.3.2版，目前可以正常使用，功能不是很强。只是简单的判断喝红喝蓝、自动打怪、自动拾物。因为完美屏蔽了后台按键。所以使用时需要把武林游戏窗口设为活动窗口。也许以后会更新为CALL后台按键吧。正在研究中。
附:武林外传挂部份基址及全部源码，呵呵，不是我小气不把全部基址给完。而是我也没找出:（。给喜欢做小挂的朋友使用及研究。有这方面爱好的朋友希望加QQ一起学习。
声明：使用外挂造成的封号请不要骂我喔，请三思后再使用。
武林外传：游戏发布序号170  游戏版本号1.3.2
一级基址：0933ADC
人物基址：+24
生命值基址+25C
生命最大值+274
真气值+260
真气最大值+278
人物名称+398
外挂下载地址及源码:
 
下载地址→<a href="/5l.rar">5l.rar</a>
源码：
模块代码：
Option Explicit '---------------声明函数----------------------- Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Public Declare Function ReadProcessMemory Lib "kernel32.dll" (ByVal hProcess As Long, ByVal lpBaseAddress As Long, ByRef lpBuffer As Any, ByVal nSize As Long, ByRef lpNumberOfBytesWritten As Long) As Long Public Const PROCESS_ALL_ACCESS = &H1F0FFF Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
 Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Const VK_F1 = &H70 Public Const VK_F2 = &H71 Public Const VK_TAB = &H9 Public Const VK_1 = &H31 Public Const VK_2 = &H32 Public Const VK_3 = &H33 
窗体代码：
Dim hwd As Long Dim pid As Long Dim hProcess As Long '存放进程句柄 Dim base As Long    '存放人物基地址 Dim hp As Long      '存储生命值 Dim hpmax As Long   '存储生命最大值 Dim mp As Long      '存储真气值 Dim mpmax As Long   '存储真气最大值 Dim gw As Long    '存放怪物基地址
Private Sub Command1_Click() If Command1.Caption = "开始" Then   '按下标签为“开始”的按钮，激活TimerAdd并改变标签为“停止”     TimerAdd.Enabled = True     Timer1.Enabled = True     Command1.Caption = "停止" ElseIf Command1.Caption = "停止" Then   '刚好和上面相反     TimerAdd.Enabled = False     Timer1.Enabled = False     Command1.Caption = "开始" End If End Sub
Private Sub Form_Load() hwd = FindWindow("QElementClient Window", "Element Client") If hwd = 0 Then     MsgBox "未启动游戏", vbOKOnly, "提示"     Unload Form1 End If GetWindowThreadProcessId hwd, pid   '获取进程标识符 '将进程标识符做为参数，返回目标进程PID的句柄，得到此句柄后 '即可对目标进行读写操,PROCESS_ALL_ACCESS表示完全控制,权限最大 hProcess = OpenProcess(PROCESS_ALL_ACCESS, 0, pid) If hProcess = 0 Then     MsgBox "不能打开进程", vbOKOnly, "提示"     Unload Form1 End If CloseHandle hProcess End Sub
Private Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub Timer1_Timer()
If gw = 0 Then  keybd_event VK_TAB, 0, 0, 0    '按下taB键 keybd_event VK_TAB, 0, 2, 0   '按下taB键  Sleep 500 keybd_event VK_1, 0, 0, 0    '按下1键 keybd_event VK_1, 0, 2, 0    '按下1键 Sleep 500
keybd_event VK_3, 0, 0, 0    '按下3键 keybd_event VK_3, 0, 2, 0    '按下3键  Sleep 500 End If
If gw <> 0 Then keybd_event VK_1, 0, 0, 0    '按下1键 keybd_event VK_1, 0, 2, 0    '按下1键  Sleep 500   If Check1.Value = 1 Then '是否使用技能  keybd_event VK_2, 0, 0, 0    '按下3键 keybd_event VK_2, 0, 2, 0    '按下3键  Sleep 500  End If End If
End Sub
Private Sub TimerAdd_Timer()    '加血判断时钟
If Val(Text1.Text) > hp Then     '比较当前血量是否比预定值低，是则按下F1健 keybd_event VK_F1, 0, 0, 0    '按下F1键 keybd_event VK_F1, 0, 2, 0    '释放F1键
    Sleep Val(Text2.Text)    '延迟text2中的数值 End If If Val(Text3.Text) > mp Then     '比较当前血量是否比预定值低，是则按下F1健 keybd_event VK_F2, 0, 0, 0    '按下F21键 keybd_event VK_F2, 0, 2, 0    '释放F21键
    Sleep Val(Text4.Text)    '延迟text2中的数值 End If End Sub
Private Sub TimerList_Timer() '显示人物信息时钟 Dim name(31) As Byte    '存储人物名称 Dim name_temp As Long
hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, pid) If hProcess Then     ReadProcessMemory hProcess, ByVal &H933ADC, base, 4, 0&
     ReadProcessMemory hProcess, ByVal base + &H24, base, 4, 0&      '得到为人物基地址，方便以后使用     ReadProcessMemory hProcess, ByVal base + &H25C, hp, 4, 0&       '得到生命值     ReadProcessMemory hProcess, ByVal base + &H274, hpmax, 4, 0&    '得到生命最大值     ReadProcessMemory hProcess, ByVal base + &H260, mp, 4, 0&       '得到真气值     ReadProcessMemory hProcess, ByVal base + &H278, mpmax, 4, 0&    '得到真气最大值     ReadProcessMemory hProcess, ByVal base + &H398, name_temp, 4, 0&     ReadProcessMemory hProcess, ByVal name_temp, name(0), 32, 0&    '得到人物名称     ReadProcessMemory hProcess, ByVal base + &H7D4, gw, 4, 0&    'GW     CloseHandle hProcess End If Frame1.Caption = name   '显示人物名称 Label2.Caption = "生命值：" & hp & "/" & hpmax  '显示生命值 Label3.Caption = "真气值：" & mp & "/" & mpmax  '显示真气值 Label11.Caption = gw End Sub

[此贴子已经被作者于2008-4-11 1:25:53编辑过]