GTAForums.com -> Documenting GTA3/VC memory adresses: "
Public tehHWND As Long
Public pID As Long
Public pHandle As Long
Public ProcessHandle As Long
Public Sub FindGTAProcess()
tehHWND = FindWindow(vbNullString, 'GTA: Vice City')
If tehHWND = 0 Then GoTo notfound
If ProcessHandle = 0 Then GetWindowThreadProcessId tehHWND, pID
If pID = 0 Then
notfound:
tehHWND = FindWindow(vbNullString, 'MultiTheftAuto : Vice City')
If ProcessHandle = 0 Then GetWindowThreadProcessId tehHWND, pID
If pID = 0 Then
Label1.Caption = 'Run MTA!'
Label1.Refresh
Exit Sub
End If
End If
If ProcessHandle = 0 Then
ProcessHandle = OpenProcess(PROCESS_ALL_ACCESS, tehHWND, pID)
If ProcessHandle <> 0 Then
Label1.Caption = 'MTA Process Found!'
Label1.Refresh
End If
End If
End Sub
Private Sub zOrigHUD()
WriteProcessMemory ProcessHandle, CLng(6913012), CSng(111), 4, 0&
WriteProcessMemory ProcessHandle, CLng(6913008), CSng(22), 4, 0&
WriteProcessMemory ProcessHandle, CLng(6912880), CSng(99), 4, 0&
WriteProcessMemory ProcessHandle, CLng(6912876), CSng(25), 4, 0&
WriteProcessMemory ProcessHandle, CLng(6912856), CSng(110), 4, 0&
WriteProcessMemory ProcessHandle, CLng(6912852), CSng(43), 4, 0&
WriteProcessMemory ProcessHandle, CLng(6912904), CSng(64), 4, 0&
WriteProcessMemory ProcessHandle, CLng(6912912), CSng(182), 4, 0&
WriteProcessMemory ProcessHandle, CLng(6912924), CSng(23), 4, 0&
WriteProcessMemory ProcessHandle, CLng(6912920), CSng(87), 4, 0&
WriteProcessMemory ProcessHandle, CLng(6912892), CSng(66), 4, 0&
WriteProcessMemory ProcessHandle, CLng(6912888), CSng(90), 4, 0&
End Sub
Private Sub zNewHUD()
WriteProcessMemory ProcessHandle, CLng(6913012), CSng(70), 4, 0&
WriteProcessMemory ProcessHandle, CLng(6913008), CSng(1), 4, 0&
WriteProcessMemory ProcessHandle, CLng(6912880), CSng(62), 4, 0&
WriteProcessMemory ProcessHandle, CLng(6912876), CSng(1), 4, 0&
WriteProcessMemory ProcessHandle, CLng(6912856), CSng(69), 4, 0&
"
No comments:
Post a Comment