|
|
Dim hwnd As Integer
Dim pid As Long
Dim pHandle As Long
Dim lpADDress As Long
Dim ncnr As Long
Dim s1 As String
hwnd = FindWindow(vbNullString, "扫雷")
GetWindowThreadProcessId(hwnd, pid)
pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
ReadProcessMemory(pHandle, &H1005330, ncnr, 20, 0&)
s1 = Chr(ncnr)
CloseHandle(pHandle)
MsgBox(s1)
为什么会在 ReadProcessMemory这里提示溢出啊。能帮我改改这个程序吗? |
|