高手帮我看看，为什么读不出来？问题解决就结帖

[greentest]

进程已经打开，可读不出来，为什么？换了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

[kmlxk0]

有可能要修改为

ReadProcessMemory pHandle,BYVAL lpADDress, BYVAL VarPtr(dc), 4, 0&

[greentest]

谢谢，问题解决，非常感谢，这个问题困扰了我几天了，试了n种方法，这个api调用参数真是麻烦，给分

[rainstormmaster]

ReadProcessMemory pHandle, lpADDress, byval VarPtr(dc), 4, 0&

还不行的话,检查一下你的api声明