Question

vb OpenProcess的使用

hwd = FindWindow(vbNullString, "地下城与勇士")
pid = GetWindowThreadProcessId(hwd, lpdwProcessId)
'hProcess = OpenProcess(PROCESS_ALL_ACCESS, 0, pid)
hProcess = OpenProcess(PROCESS_ALL_ACCESS, 1, pid)
If hProcess Then
ReadProcessMemory hProcess, ByVal &H12F82C, base, 4, 0&
End If
'retValue = SetWindowPos(Me.hwnd, hwd, 750, 20, 265, 400, SWP_SHOWWINDOW)'该函数改变一个子窗口，弹出式窗口式顶层窗口的尺寸，位置和Z序
Text1.Text = hwd
Text2.Text = hProcess
Text4.Text = pid

我用这条代码就是hProcess失败，到底要怎样弄才可以成功呢，会的告诉我下

Answer 1

PROCESS_ALL_ACCESS=&H1F0FFF 声明了常量了吗 网上有
If hProcess Then
ReadProcessMemory hProcess, ByVal &H12F82C, base, 4, 0&
End If
中，hprocess没有判断 如：hprocess>0 或不等于0 时才读取内存
试试看，也许对你有帮助