Declare Function ReadProcessMemory Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Dim a As Long
a = 'process id to open
Dim b As Long
b = OpenProcess((SPECIFIC_RIGHTS_ALL And STANDARD_RIGHTS_ALL), False, a)
'opens a process handle for memory access
---
Dim a As Long
Dim b As Long
Dim c As Long
Dim d As Boolean
Dim e As Long
Dim f As Long
d = ReadProcessMemory(a, ByVal b, ByVal VarPtr(c), 4, e)
Dim a As Long
a = 'process id to open
Dim b As Long
b = OpenProcess((SPECIFIC_RIGHTS_ALL And STANDARD_RIGHTS_ALL), False, a)
'opens a process handle for memory access
---
Dim a As Long
Dim b As Long
Dim c As Long
Dim d As Boolean
Dim e As Long
Dim f As Long
d = ReadProcessMemory(a, ByVal b, ByVal VarPtr(c), 4, e)
http://nowcan.yeah.net在我的作品里有个“进程数据搜索器”,绝对合你要求。
http://www.csdn.net/expert/topic/530/530668.xml?temp=6.139773E-02高分求购一个ReadProcessMemory的例子(VB源代码)
http://www.csdn.net/expert/topic/563/563999.xml?temp=.1610071