Sorry ,前几天有点事情耽搁了。下面是我模仿别人的一段代码:
---------------------------------------
Dim s() As Byte, n As Long, i As Long
Dim lBaseAddr As Long
Dim hProcess As Long
n=16
lBaseAddr = 0
ReDim s(n - 1)
hProcess = OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE, 0, ProcessId)
If hProcess = 0 Then
MsgBox "Can't open the Process"
Exit Sub
End If
i = ReadProcessMemory(hProcess, lBaseAddr, s(0), n, ByVal 0&)
List.Clear
For i = 0 To n - 1
List.AddItem "地址:" & Hex$((i + lBaseAddr)) & "H" & "= " & Hex$(s(i)) & "H"
Next
CloseHandle hProcess
------------------------------------------
为什么 ReadProcessMemory(hProcess, lBaseAddr, s(0), n, ByVal 0&) 的执行返回结果都是0