OpenProces不能再次使用？

Question

本帖最后由 SongPixy 于 2011-08-09 16:59:27 编辑

Answer 1

要养成一个好习惯来调用API:x=ReadProcessMemory(hProcess, ByVal DataBass, NowData, 2, 0&)x返回非0值成功，返回0失败。

Answer 2

再查，原因是有段读了两个8字节的数据，叉的，看来是溢出了……
Dim hProcess  As Long
   hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, Pid)
   ReadProcessMemory hProcess, ByVal DataPoint1, DataBass1, 8, 0&
   ReadProcessMemory hProcess, ByVal DataPoint2, DataBass2, 8, 0&
   CloseHandle hProcess

Answer 3

pMine = OpenProcess(PROCESS_VM_READ, True, MineID)
lngP=ReadProcessMemory(pMine, miBegin, lpBuffer, nSize, lpNumberOfBytesRead)