我想放Cheat Engine的Pointer在VB裡用...

我想喺firefox 用vb pointer....
唔想用cheat engine...
教我點寫...
唔該^^
用a,w,y,z呢D代碼

Cheat Engine
有人會用這個
開GGC的開圖嗎

我不知道哦
實在是太深澳了你們真厲害

不知你是要讀還是要寫入?
Writeprocessmemory 和 Readprocessmemory 都可以使用
pointer方式來用

eadProcessMemory hProcess, ByVal &H995E74, base, 4, 0&
ReadProcessMemory hProcess, ByVal base + &H1C, base, 4, 0&    '得到生命值
ReadProcessMemory hProcess, ByVal base + &H20, base, 4, 0

自設一個function

1. Private Function ncnr(lpADDress As Long) As Long Dim hWnd As Long Dim pid As Long Dim pHandle As Long hWnd = FindWindow("Lithtech", vbNullString) GetWindowThreadProcessId hWnd, pid pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid) ReadProcessMemory pHandle, lpADDress, ByVal VarPtr(ncnr), 4, 0& CloseHandle hProcess
   
2. End Function

複製代碼

開始

1. Private Sub Timer1_Timer()
   
2. Dim hWnd As Long ' 儲存 FindWindow 函數返回的控制碼
   
3. Dim pid As Long ' 儲存進程識別字( Process Id )
   
4. Dim pHandle As Long ' 儲存進程控制碼
   
5. ' 首先取得目標視窗的控制碼
   
6. hWnd = FindWindow(vbNullString, "Window名")
   
7. If hWnd = 0 Then
   
8. Label1.Caption = "遊戲未載入"
   
9. Exit Sub
   
10. End If
    
11. Label1.Caption = "遊戲已載入"
    
12. ' 取得進程識別字
    
13. GetWindowThreadProcessId hWnd, pid
    
14. ' 使用進程識別字取得進程控制碼
    
15. pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
    
16. If (pHandle = 0) Then
    
17. MsgBox "Couldn't get a process handle!", vbExclamation
    
18. End
    
19. End If
    
20. Dim a As Long
    
21. Dim a1 As Long
    
22. a = ncnr(&HWW) + &Hyyyyy
    
23. a1 = Val(Text1.Text)
    
24. WriteProcessMemory pHandle, ByVal a, ByVal VarPtr(a1), 4, vbNull
    
25. CloseHandle hProcess
    
26. End Sub

複製代碼

屈機= =/////////////////////////////

樓上的大大真的是太強了~~
很感謝你的程式分享~~

請問CE去哪抓


如果想放基指(ADDRESS的話)


VB的代碼要用CALL唷！



應該~!