Trainer gta san andreas, writeprocess memory

Soyez le premier à donner votre avis sur cette source.

Vue 107 340 fois - Téléchargée 3 012 fois

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

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
26
Date d'inscription
jeudi 16 mars 2006
Statut
Membre
Dernière intervention
25 juin 2009

heu j'ai un souci avec ce code...
je ne peux pas compiler car " lblState " n'est pas déclarer! que dois-je faire pour pouvoir compiler?
Messages postés
1
Date d'inscription
lundi 5 février 2007
Statut
Membre
Dernière intervention
8 février 2007

Tout D'abord merci a tous !

Je voulais te demander un truc c'est quel VB que tu utilise ici ?

Que je puisse le conpiler comme il faut !

Et sinon moi j'ai créer des truc de la sorte mais, il me dit que la mémoire est protéger !

Merci de ta future aide...
Messages postés
1
Date d'inscription
vendredi 3 novembre 2006
Statut
Membre
Dernière intervention
3 novembre 2006

Comment faire pour que sa fonctionnne dans Gta - Sa svp ?
Messages postés
28
Date d'inscription
samedi 22 mai 2004
Statut
Membre
Dernière intervention
28 juin 2006

J'ai lu quelque part que les exe étaient supprimés avant le téléchargement...
Messages postés
105
Date d'inscription
mercredi 4 février 2004
Statut
Membre
Dernière intervention
29 décembre 2005

A votre service ;)
Par contre je viens de me relire...mdrrrrrr
"vous ovulez des infos en plus"
c'est pas ovulez, hein...
A+
stef2004
www.stef2004.com
Afficher les 18 commentaires

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.