一天一天学外挂详细教程(VB) - 图文

6.根据已知的人物地址，我们还可以显示其它数据。

文章涉及软件：

Cheat Engine游戏修改器 5.2 (CE)

http://www.hot.ee/tan333/CheatEngine52.exe http://down.51ku.net/ym/soft/ce52.rar

相关武林外传地址：

一级基址=8C6A54 (可能会在其他电脑上不能使用)

人物基址=+24 当前血=+254 最大血=+26C 当前蓝=+258 最大蓝=+270 以上数字均为16进制

第二天-实现VB显示游戏数据

学习目的：

利用已知的地址，在VB中显示游戏中的相关数据。 内容：

1.建立一个新的标准EXE工程，我们就可以开始这次的学习了。

2.我们要建立一个模块，然后添加以下代码：

Option Explicit

'---------------声明函数-----------------------

'得到窗体句柄的函数,FindWindow函数用来返回符合指定的类名( ClassName )和窗口名( WindowTitle )的窗口句柄

Public Declare Function FindWindow Lib \Alias \(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

'得到窗体控件句柄的函数

Public Declare Function FindWindowEx Lib \Alias \(ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

'得到进程标识符的函数

Public Declare Function GetWindowThreadProcessId Lib \(ByVal hwnd As Long, lpdwProcessId As Long) As Long '得到目标进程句柄的函数

Public Declare Function OpenProcess Lib \(ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long '关闭句柄的函数

Public Declare Function CloseHandle Lib \(ByVal hObject As Long) As Long

'读取进程内存的函数

Public Declare Function ReadProcessMemory Lib \(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

3.接下来Form中，我们要在程序启动时连接游戏窗口，以下是Form_Load的代码： Dim hwd As Long ? 储存 FindWindow 函数返回的句柄 Dim pid As Long

Dim hProcess As Long '存放进程句柄