Private Sub Command1_Click()
Dim GameHwnd As Long
Dim Pid As Long
GameHwnd = FindWindow(vbNullString, "DemonStar v4.0 Shareware")
If GameHwnd = 0 Then
MsgBox "Error:Can Not Find Game!"
Exit Sub
End If
GetWindowThreadProcessId GameHwnd, Pid
Dim hProcess As Long
hProcess = OpenProcess(PROCESS_ALL_ACCESS, 0, Pid)
Dim GameHPValue As Long
GameHPValue = 10
If hProcess = 0 Then
MsgBox "error"
End If
WriteProcessMemory hProcess, &H5CD7C0, GameHPValue, 4, 0&
CloseHandle hProcess
End Sub
这是修改雷电游戏的代码，不知道哪出错了，hProcess的返回值总是０，急啊！！对了系统是在xp下的，不过在９８下返回值虽然不为０但修改不了．

请问hProcess代表的是什么？

hProcess是进程句柄

PROCESS_ALL_ACCESS
你写这个常量的值是多少？
我用VC++6看的是2035711，十进制的

PROCESS_ALL_ACCESS 表示对进程的取得完全权限

问的是你的这个常量的值

这个代码在98中能运行,一点问题没有生成了exe文件,到xp系统下就不行了.

你把你全部的代码发来看看
包括API、常量