Trainer gta san andreas, writeprocess memory

Télécharger le projet
Commenter

Description

Ce Trainer Permet de:

Donner de l'argent,
D'arêter le Temps
D'être invincible
Et d'avoir les munitions Illimité

Source / Exemple : 


Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
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 Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByVal lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByVal lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function Beep Lib "kernel32" ( _
ByVal dwFreq As Long, _
ByVal dwDuration As Long) As Long
Private Const PROCESS_ALL_ACCESS As Long = &H1F0FFF
Private Sub FreezeTime()
Dim hwnd As Long
Dim pid As Long
Dim pHandle As Long
Dim x As Integer

hwnd = FindWindow(vbNullString, "GTA: San Andreas")
If (hwnd = 0) Then hwnd = FindWindow(vbNullString, "GTA: San Andreas")

If (hwnd = 0) Then
    lblState.Caption = "State: Jeu non Lancer."
    Timer1.Enabled = False
    Exit Sub
End If

GetWindowThreadProcessId hwnd, pid

pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)

If (pHandle = 0) Then
    lblState.Caption = "State: Couldn't get a process handle."
    Timer1.Enabled = False
    Exit Sub
End If

WriteProcessMemory pHandle, Hex2Dec("52CF53"), Hex2ASCII("90 90 90 90 90 90"), Len(Hex2ASCII("90 90 90 90 90 90")), 0&

CloseHandle pHandle
End Sub

Private Sub Command1_Click()
FreezeTime
End Sub

Private Sub Form_Load()
If App.PrevInstance = True Then
    Unload Me
    End
End If

Call Timer_Timer
End Sub

Private Sub Form_Activate()
Timer.Enabled = True
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Unload Me
End
End Sub

Private Sub DeFreezeTime()
Dim hwnd As Long
Dim pid As Long
Dim pHandle As Long
Dim x As Integer

hwnd = FindWindow(vbNullString, "GTA: San Andreas")
If (hwnd = 0) Then hwnd = FindWindow(vbNullString, "GTA: San Andreas")

If (hwnd = 0) Then
    lblState.Caption = "State: Jeu non Lancer."
    Timer1.Enabled = False
    Exit Sub
End If

GetWindowThreadProcessId hwnd, pid

pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)

If (pHandle = 0) Then
    lblState.Caption = "State: Couldn't get a process handle."
    Timer1.Enabled = False
    Exit Sub
End If

WriteProcessMemory pHandle, Hex2Dec("52CF53"), Hex2ASCII("FE 05 52 01 B7 00"), Len(Hex2ASCII("FE 05 52 01 B7 00")), 0&

CloseHandle pHandle
End Sub

Private Sub lblMapOn_Click()
DeFreezeTime
End Sub

Private Sub Picture1_Click()
FrmAbout.Show
End Sub

Private Sub Timer_Timer()
Dim hwnd As Long
Dim pid As Long
Dim pHandle As Long
Dim data(1 To 13) As String * 37
Dim x As Integer
Dim dlen As Integer

hwnd = FindWindow(vbNullString, "GTA: San Andreas")
If (hwnd = 0) Then hwnd = FindWindow(vbNullString, "GTA: San Andreas")

If (hwnd = 0) Then
    lblState.Caption = "State: Jeu non Lancer."
    Timer1.Enabled = False
    Exit Sub
End If

GetWindowThreadProcessId hwnd, pid

pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)

If (pHandle = 0) Then
    lblState.Caption = "State: Couldn't get a process handle."
    Timer1.Enabled = False
    Exit Sub
End If

CloseHandle pHandle

For x = 1 To 13
    dlen = Len("89 46 08")
    If Mid(data(x), 1, dlen) <> "89 46 08" Then GoTo 1
Next x

Exit Sub

1:

lblState.Caption = "State: Jeu Lancer."
Timer1.Enabled = True

Exit Sub
End Sub

Private Function Hex2ASCII(sText As String) As String
On Error Resume Next
Dim sBuff() As String, A As Long
sBuff() = Split(sText, Space$(1))
For A = 0 To UBound(sBuff)
Hex2ASCII = Hex2ASCII & Chr$("&h" & sBuff(A))
DoEvents
Next A
End Function

Private Function Hex2Dec(sText As String) As Long
On Error GoTo err
Dim H As String
H = sText
Dim Tmp$
Dim lo1 As Integer, lo2 As Integer
Dim hi1 As Long, hi2 As Long
Const Hx = "&H"
Const BigShift = 65536
Const LilShift = 256, Two = 2
Tmp = H
If UCase(Left$(H, 2)) = "&H" Then Tmp = Mid$(H, 3)
Tmp = Right$("0000000" & Tmp, 8)
If IsNumeric(Hx & Tmp) Then
lo1 = CInt(Hx & Right$(Tmp, Two))
hi1 = CLng(Hx & Mid$(Tmp, 5, Two))
lo2 = CInt(Hx & Mid$(Tmp, 3, Two))
hi2 = CLng(Hx & Left$(Tmp, Two))
Hex2Dec = CCur(hi2 * LilShift + lo2) * BigShift + (hi1 * LilShift) + lo1
End If
Exit Function
err:
End Function

Private Sub Timer1_Timer()
If GetAsyncKeyState(116) Then 'F5
GiveMoney
Bip 300, 150
End If

If GetAsyncKeyState(117) Then 'F6
FreezeTime
Bip 300, 150
End If

If GetAsyncKeyState(118) Then 'F7
DeFreezeTime
Bip 200, 150
End If

If GetAsyncKeyState(119) Then 'F8
IllimitedLife
Bip 300, 150
End If

If GetAsyncKeyState(120) Then 'F9
UnllimitedLife
Bip 200, 150
End If

If GetAsyncKeyState(121) Then 'F10
IllimitedAmmo
Bip 300, 150
End If

If GetAsyncKeyState(122) Then 'F11
UnllimitedAmmo
Bip 200, 150
End If
'If GetAsyncKeyState(123) Then
'Text1.Text = "F12"
'Bip 300, 150
'End if
End Sub

Sub Bip(f, d)
Beep f, d
End Sub

Private Sub GiveMoney()
Dim hwnd As Long
Dim pid As Long
Dim pHandle As Long
Dim x As Integer

hwnd = FindWindow(vbNullString, "GTA: San Andreas")
If (hwnd = 0) Then hwnd = FindWindow(vbNullString, "GTA: San Andreas")

If (hwnd = 0) Then
    lblState.Caption = "State: Jeu non Lancer."
    Exit Sub
End If

GetWindowThreadProcessId hwnd, pid

pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)

If (pHandle = 0) Then
    lblState.Caption = "State: Couldn't get a process handle."
    Exit Sub
End If
WriteProcessMemory pHandle, Hex2Dec("B7CE50"), Hex2ASCII("FF FF FF"), Len(Hex2ASCII("FF FF FF")), 0&

CloseHandle pHandle
End Sub

Private Sub IllimitedLife()
Dim hwnd As Long
Dim pid As Long
Dim pHandle As Long
Dim x As Integer

hwnd = FindWindow(vbNullString, "GTA: San Andreas")
If (hwnd = 0) Then hwnd = FindWindow(vbNullString, "GTA: San Andreas")

If (hwnd = 0) Then
    lblState.Caption = "State: Jeu non Lancer."
    Exit Sub
End If

GetWindowThreadProcessId hwnd, pid

pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)

If (pHandle = 0) Then
    lblState.Caption = "State: Couldn't get a process handle."
    Exit Sub
End If
WriteProcessMemory pHandle, Hex2Dec("4B331F"), Hex2ASCII("90 90 90 90 90 90"), Len(Hex2ASCII("90 90 90 90 90 90")), 0&
WriteProcessMemory pHandle, Hex2Dec("4B32B4"), Hex2ASCII("90 90 90 90 90 90"), Len(Hex2ASCII("90 90 90 90 90 90")), 0&

CloseHandle pHandle
End Sub

Private Sub UnllimitedLife()
Dim hwnd As Long
Dim pid As Long
Dim pHandle As Long
Dim x As Integer

hwnd = FindWindow(vbNullString, "GTA: San Andreas")
If (hwnd = 0) Then hwnd = FindWindow(vbNullString, "GTA: San Andreas")

If (hwnd = 0) Then
    lblState.Caption = "State: Jeu non Lancer."
    Exit Sub
End If

GetWindowThreadProcessId hwnd, pid

pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)

If (pHandle = 0) Then
    lblState.Caption = "State: Couldn't get a process handle."
    Exit Sub
End If
WriteProcessMemory pHandle, Hex2Dec("4B331F"), Hex2ASCII("89 96 40 05 00 00"), Len(Hex2ASCII("89 96 40 05 00 00")), 0&
WriteProcessMemory pHandle, Hex2Dec("4B32B4"), Hex2ASCII("D9 96 40 05 00 00"), Len(Hex2ASCII("90 90 90 90 90 90")), 0&

CloseHandle pHandle
End Sub

Private Sub IllimitedAmmo()
Dim hwnd As Long
Dim pid As Long
Dim pHandle As Long
Dim x As Integer

hwnd = FindWindow(vbNullString, "GTA: San Andreas")
If (hwnd = 0) Then hwnd = FindWindow(vbNullString, "GTA: San Andreas")

If (hwnd = 0) Then
    lblState.Caption = "State: Jeu non Lancer."
    Exit Sub
End If

GetWindowThreadProcessId hwnd, pid

pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)

If (pHandle = 0) Then
    lblState.Caption = "State: Couldn't get a process handle."
    Exit Sub
End If
WriteProcessMemory pHandle, Hex2Dec("7428B0"), Hex2ASCII("90 90 90"), Len(Hex2ASCII("90 90 90")), 0&
WriteProcessMemory pHandle, Hex2Dec("7428E6"), Hex2ASCII("90 90 90"), Len(Hex2ASCII("90 90 90")), 0&

CloseHandle pHandle
End Sub

Private Sub UnllimitedAmmo()
Dim hwnd As Long
Dim pid As Long
Dim pHandle As Long
Dim x As Integer

hwnd = FindWindow(vbNullString, "GTA: San Andreas")
If (hwnd = 0) Then hwnd = FindWindow(vbNullString, "GTA: San Andreas")

If (hwnd = 0) Then
    lblState.Caption = "State: Jeu non Lancer."
    Exit Sub
End If

GetWindowThreadProcessId hwnd, pid

pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)

If (pHandle = 0) Then
    lblState.Caption = "State: Couldn't get a process handle."
    Exit Sub
End If
WriteProcessMemory pHandle, Hex2Dec("7428B0"), Hex2ASCII("89 46 08"), Len(Hex2ASCII("89 46 08")), 0&
WriteProcessMemory pHandle, Hex2Dec("7428E6"), Hex2ASCII("FF 4E 0C"), Len(Hex2ASCII("FF 4E 0C")), 0&

CloseHandle pHandle
End Sub

Conclusion :


Si vous voulez proposer des amélioration,etc.
Et Dite des commentaire

Source mis à jour, ajout de l'exe manquant
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Rudy3212)