请问我的ReadProcessMemory哪里出错了

jychoi

Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, 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 Const PROCESS_ALL_ACCESS = &H1F0FFF
Dim Dizhi As Long

Private Function ncnr(IpAddress As Long) As Integer
Dim hwnd As Long
Dim pid As Long
Dim pHandle As Long
hwnd = FindWindow(vbNullString, "三国")
GetWindowThreadProcessId hwnd, pid
pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
ReadProcessMemory pHandle, IpAddress, ByVal VarPtr(ncnr), 4, 0&
CloseHandle hProcess
End Function

Private Sub Timer1_Timer()
Dim HP As Long
Dizhi = &H1C515B8
HP = ncnr(Dizhi+160)
Print Str(HP)
End Sub

基址=1C515B8 偏移=160
游戏人物血量是 114
但是Print Str(HP) 是334543

请问哪里出错了

dnxlwg2020

Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
注意第二个参数的声明，其实我是搞不懂，这个API第二个参数明明就是传的值，在很多编程语言中给的列子都是指针，其他语言就不说了，VB6也跟着学，ANY 会把很多新手绕晕。VB6正确声明应该是下面这样。
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long,ByVal  lpBaseAddress As long, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

如果按 你上面的声明
ReadProcessMemory pHandle, IpAddress, ByVal VarPtr(ncnr), 4, 0&
第二个参数传进去的就是 lpaddress的地址而不是lpaddress本身的值，读到别的地方当然不正确。
你要这样用才正确
ReadProcessMemory pHandle, ByVal IpAddress, ByVal VarPtr(ncnr), 4, 0&
而第三个参数需要传地址，你偏偏做了多余的操作，可以直接这样写。
ReadProcessMemory pHandle,ByVal IpAddress, ncnr, 4, 0&

如果是用我下面的声明就可以这样写
ReadProcessMemory pHandle, IpAddress, ncnr, 4, 0&

dnxlwg2020

如果你要读的是字符串
第三个参数才需要  byval strptr(接收变量)  不然编译器自动获取的安符串变量地址不正确程序会崩

JuncoJet

基址会变，你这么写死不合适吧