高手帮我看看，为什么读不出来？问题解决就结帖
进程已经打开，可读不出来，为什么？换了byte也不行，用数组也不行，郁闷
Public Function dc(hwnd1 As Long, lpADDress As Long) As Long
' 声明一些需要的变量
Dim pid As Long ' 储存进程标识符( Process Id )
Dim pHandle As Long ' 储存进程句柄
' 取得进程标识符
GetWindowThreadProcessId hwnd1, pid
' 使用进程标识符取得进程句柄
pHandle = OpenProcess(PROCESS_VM_READ, False, pid)
' 在内存地址中读取数据
If pHandle = 0 Then
MsgBox "no open "
End If
ReadProcessMemory pHandle, lpADDress, VarPtr(dc), 4, 0&
' 关闭进程句柄
CloseHandle hProcess
End Function
[解决办法]
有可能要修改为
ReadProcessMemory pHandle,BYVAL lpADDress, BYVAL VarPtr(dc), 4, 0&
[解决办法]
ReadProcessMemory pHandle, lpADDress, byval VarPtr(dc), 4, 0&
还不行的话,检查一下你的api声明
