关于VB读取内存数据取不到进程

iori8421

模块:
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByVal lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByVal lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Const PROCESS_ALL_ACCESS = &H1F0FFF


Private Sub Command1_Click()
Dim hwnd As Long
Dim pid As Long
Dim pHandle As Long
Dim str As String
hwnd = FindWindow(vbNullString, "QQ幻想1.21")
If (hwnd = 0) Then
MsgBox "Window not found!"
Exit Sub
End If


GetWindowThreadProcessId hwnd, pid
pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (pHandle = 0) Then
MsgBox “错误”                                                 'pHandle 一直等0 是怎么回事呢？？？
Exit Sub
End If
' 在内存地址中写入名字
'WriteProcessMemory pHandle, &H40B181, "Beans", 5, 0&
ReadProcessMemory pHandle, &H4584C58, str, 20, 0&
Text1.Text = str
CloseHandle hProcess
End Sub

系统崩溃

还真不了解 OpenProcess这个API的用法

Mahoro

VB能读写内存，那做游戏修改工具很容易呀。

a-rice

看看我那个扫雷作弊器的帖子吧，绝对管用~~~呵呵~~

a-rice

http://bbs.gameres.com/showthread.asp?threadid=3883