-------------------------------------------------------------------------------------------------------------------------------------------------------- 应用实战 -------------------------------------------------------------------------------------------------------------------------------------------------------- 需要VB API函数： FindWindow GetWindowThreadProcessId OpenProcess ReadProcessMemory CloseHandle -------------------------------------------------------------------------------------------------------------------------------------------------------- 相关API声明： FindWindow ↓ Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
GetWindowThreadProcessId ↓ Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
OpenProcess ↓ Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
ReadProcessMemory ↓ Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByVal lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
CloseHandle ↓ Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
GetCurrentProcess ↓ Private Declare Function GetCurrentProcess Lib "kernel32" () As Long -------------------------------------------------------------------------------------------------------------------------------------------------------- 需要的控件：Label、Timer（interval不为空）、Text -------------------------------------------------------------------------------------------------------------------------------------------------------- 定义函数： Dim SetHp As Integer '''' 定义设定的体力值 Dim SetMp As Integer '''' 定义设定的魔法值 Dim NowHp As Long '''' 定义目前的体力值 Dim NowMp As Long '''' 定义目前的魔法值 Dim MaxHp As Long '''' 定义角色的最高体力值 Dim MaxMp As Long '''' 定义角色的最高魔法值 Dim DiZhi As Long ''''定义内存地址函数 Dim hwnd As Long '''' 储存 FindWindow 函数返回的句柄 -------------------------------------------------------------------------------------------------------------------------------------------------------- 代码： Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByVal lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Private Declare Function GetCurrentProcess Lib "kernel32" () As Long Dim SetHp As Integer '''' 定义设定的体力值 Dim SetMp As Integer '''' 定义设定的魔法值 Dim NowHp As Long '''' 定义目前的体力值 Dim NowMp As Long '''' 定义目前的魔法值 Dim MaxHp As Long '''' 定义角色的最高体力值 Dim MaxMp As Long '''' 定义角色的最高魔法值 Dim DiZhi As Long ''''定义内存地址函数
Private Function ncnr(lpADDress As Long) As Integer '''' 声明一些需要的变量 Dim hwnd As Long '''' 储存 FindWindow 函数返回的句柄 Dim pid As Lon
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
