- 最後登錄
- 2023-11-15
- 在線時間
- 0 小時
- 註冊時間
- 2008-9-2
- 閱讀權限
- 30
- 精華
- 0
- UID
- 4896920
- 帖子
- 406
- 積分
- 1161 點
- 潛水值
- 11458 米
| 分享使你變得更實在,可以使其他人感到快樂,分享是我們的動力。今天就來分享你的資訊、圖片或檔案吧。 本帖最後由 well7456 於 2009-11-21 01:33 AM 編輯
給您一段程式碼吧,其中的API與常數自己去找
以下為讀取的程序
- Private Sub Command1_Click()
- List2.Clear
- Dim s() As Byte, n As Long, i As Long
- lBassAddr = Text2.Text
- n = Text3.Text
- ReDim s(n - 1)
- hWndOfApp = FindWindow(vbNullString, Text1.Text)
- If hWndOfApp = 0 Then
- MsgBox "無法找到該視窗"
- Exit Sub
- End If
- hThreadID = GetWindowThreadProcessId(hWndOfApp, hProcessID)
- If hProcessID = 0 Then
- MsgBox "無法取得ProcessID"
- Exit Sub
- End If
-
- hProcess = OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE _
- , 0, hProcessID)
- If hProcess = 0 Then
- MsgBox "無法開啟該Process"
- Exit Sub
- End If
- ReadProcessMemory hProcess, ByVal lBassAddr, s(0), n, ByVal 0&
- For i = 0 To n - 1
- List2.AddItem "位址:" & (i + lBassAddr) & "= " & s(i)
- Next
- CloseHandle hProcess
- End Sub
複製代碼 ... |
|