- UID
- 94062
- 帖子
- 29093
- 主題
- 202
- 精華
- 4
- 積分
- 205
- 楓幣
- 13000
- 威望
- 101
- 存款
- 10
- 贊助金額
- 0
- 推廣
- 3
- GP
- 226
- 閱讀權限
- 100
- 性別
- 保密
- 在線時間
- 485 小時
- 註冊時間
- 2015-3-6
- 最後登入
- 2023-9-23
|
Dim Value As Integer = vbNullString
Dim Pointer1, Pointer2, Pointer3 As Integer
ReadProcessMemory(MShprocess, &H400000, Pointer1, 4, False) '基址
ReadProcessMemory(MShprocess, Pointer1 + (&H4), Pointer2, 4, False) '第1個偏移
ReadProcessMemory(MShprocess, Pointer2 + (&H8), Value, 4, False) '第2個偏移
TextPointer.Text = Value |
|