[Quote=引用 1 楼 li163 的回复:]
无代码无真相,难道让大家猜?
[/Quote]
代码是:
Option Explicit
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Dim h, ID, p
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Const PROCESS_ALL_ACCESS As Long = &H1F0FFF
Private Sub Form_Click()
Cls
h = FindWindow(vbNullString, "ħÊÞÕù°Ô")
Print h
Call GetWindowThreadProcessId(h, ID)
Print ID
p = OpenProcess(PROCESS_ALL_ACCESS, False, ID)
Print p