Private Sub Form_Load()
hwd = FindWindow(\Window\\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
4.我们在Form中添加一个Label控件和一个Timer控件，设置Timer的Interval属性为100，Timer1_Timer的代码如下： Dim h As Long
hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If hProcess Then
ReadProcessMemory hProcess, ByVal &H8C6A54, h, 4, 0& ?这三条代码读取获得生命值
ReadProcessMemory hProcess, ByVal h + &H24, h, 4, 0& ReadProcessMemory hProcess, ByVal h + &H254, h, 4, 0&
CloseHandle hProcess End If
Label1.Caption = h ?输出生命值
5.好了，数据显示出来了。程序很简单，重点是大家要举一反三。
第三天-人物飞天其实很简单
学习目的：
1.复习上次内容，显示人物名称 2.利用VB实现简单飞天功能 内容：
1.好，下面图片所示的内容你是否做到了，是不是人物名称不知道该怎么显示。
将上次代码中的Timer1_Timer()替换成以下内容 Private Sub Timer1_Timer() Dim base As Long '存放人物基地址 Dim hp As Long '存储生命值 Dim hpmax As Long '存储生命最大值 Dim mp As Long '存储真气值 Dim mpmax As Long '存储真气最大值
Dim name(31) As Byte ?存放人名字符串 Dim name_temp As Long ?存放人物值
hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, pid) If hProcess Then
ReadProcessMemory hProcess, ByVal &H8C9E54, base, 4, 0&
ReadProcessMemory hProcess, ByVal base + &H24, base, 4, 0& '得到为人物基地址，方便以后使用
ReadProcessMemory hProcess, ByVal base + &H254, hp, 4, 0& '得到生命值 ReadProcessMemory hProcess, ByVal base + &H26C, hpmax, 4, 0& '得到生命最大值
ReadProcessMemory hProcess, ByVal base + &H258, mp, 4, 0& '得到真气值 ReadProcessMemory hProcess, ByVal base + &H270, mpmax, 4, 0& '得到真气最大值
ReadProcessMemory hProcess, ByVal base + &H390, name_temp, 4, 0& ?得到人名的值
ReadProcessMemory hProcess, ByVal name_temp, name(0), 32, 0& ?转换字符串
CloseHandle hProcess End If
Label1.Caption = name ?显示人名
Label2.Caption = \生命值：\& hp & \& hpmax '显示生命值 Label3.Caption = \真气值：\& mp & \& mpmax '显示真气值 End Sub
