继续上节课内容，教程请看下面：
------------------------------------
应用实战--------------------------------------------------------------------------------------------------------------------------------------------------------
需要VB API函数：
FindWindowGetWindowThreadProcessIdOpenProcessReadProcessMemoryCloseHandle
--------------------------------------------------------------------------------------------------------------------------------------------------------
相关API声明：
FindWindow
↓
Private * Function FindWindow Lib “user32“ Alias “FindWindowA“ ( ByVal lpClassName As String , ByVal lpWindowName As String ) As Long
GetWindowThreadProcessId
↓
Private * Function GetWindowThreadProcessId Lib “user32“ ( ByVal hwnd As Long , lpdwProcessId As Long )
As Long
OpenProcess
↓
Private * Function OpenProcess Lib “kernel32“ ( ByVal dwDesiredAccess As Long , ByVal bInheritHandle As Long , ByVal dwProcessId As Long )
As Long
ReadProcessMemory
↓
Private * 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 * Function CloseHandle Lib “kernel32“ ( ByVal hObject As Long )
As Long
GetCurrentProcess
↓
Private * 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 * Function FindWindow Lib “user32“ Alias “FindWindowA“ ( ByVal lpClassName As String , ByVal lpWindowName As String )
As Long
Private * Function GetWindowThreadProcessId Lib “user32“ ( ByVal hwnd As Long , lpdwProcessId As Long )
As Long
Private * Function OpenProcess Lib “kernel32“ ( ByVal dwDesiredAccess As Long , ByVal bInheritHandle As Long , ByVal dwProcessId As Long )
As Long
Private * 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 * Function CloseHandle Lib “kernel32“ ( ByVal hObject As Long )
As Long
Private * 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 Long ‘ 储存进程标识符( Process Id )
Dim pHandle As Long
‘ 储存进程句柄hwnd = FindWindow(vbNullString, “封神榜·网络版“)
‘ 取得进程标识符GetWindowThreadProcessId hwnd, pid
‘ 使用进程标识符取得进程句柄pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
‘ 在内存地址中读取数据ReadProcessMemory pHandle, lpADDress, ByVal VarPtr(ncnr), 4, 0&‘ 关闭进程句柄
CloseHandle hProcess
End Function
Const STANDARD_RIGHTS_REQUIRED = &HF0000
Const SYNCHRONIZE = &H100000
Const SPECIFIC_RIGHTS_ALL = &HFFFF
Const STANDARD_RIGHTS_ALL = &H1F0000
Const PROCESS_ALL_ACCESS = STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &HFFF
Const PROCESS_VM_OPERATION = &H8&
Const PROCESS_VM_READ = &H10&
Const PROCESS_VM_WRITE = &H20&Private Sub Form_Load()‘
体力：07F68F3 这里替换你所搜索到的地址
魔法：07F6860
同前
DiZhi = &H 07F68F3Timer1.Enabled = True
Timer2.Enabled = False
Timer3.Enabled = False
End Sub
Private Sub
Timer1_Timer()
Dim hwnd As Long
hwnd = FindWindow(vbNullString, “封神榜·网络版“)
If hwnd = 0 Then
Label12.Caption = “游戏未加载“
Timer1.Enabled = True
Timer2.Enabled = False
Timer3.Enabled = FalseExit
SubEnd
Label12.Caption = “游戏已加载“
SetHp = Text1.Text ‘ 获取设定的体力值
SetMp = Text2.Text ‘ 获取设定的魔法值
NowHp = ncnr(DiZhi) ‘ 获取当前的体力值
NowMp = ncnr(DiZhi + 12) ‘ 获取当前的魔法值
MaxHp = ncnr(DiZhi + 4) ‘ 获取角色的最高体力值
MaxMp = ncnr(DiZhi + 16) ‘ 获取角色的最高魔法值
Label3.Caption = Str(NowHp) + “/“ + Str(MaxHp) ‘ 显示角色体力值状态
Label4.Caption = Str(NowMp) + “/“ + Str(MaxMp) ‘ 显示角色魔法值状态
If Check1.Value
ThenTimer2.Enabled = True
Else
Timer2.Enabled = False
End
IfIf Check2.Value
ThenTimer3.Enabled = True
Else
Timer3.Enabled = False
End
IfEnd SubPrivate
Sub
Timer2_Timer()‘ 体力值小于设定值按下数字键1
If (NowHp) < SetHp ThenSendKeys “1“End IfEnd SubPrivate Sub Timer3_Timer()‘ 魔法值小于设定值按下数字键2
If (NowMp) < SetMp ThenSendKeys “2“
End If
End Sub
教程结束，下课！
童鞋们再见！