Aide Trainer

    Publicités

Users Who Are Viewing This Thread (Total: 0, Members: 0, Guests: 0)

Status
Not open for further replies.

xMj

Membre
Mar 17, 2013
40
0
211

Bon on va faire court, j'ai fini mon codage en autoit mais mes cheats ne marche pas, que faire ?http://www.cheat-gam3.com/images/smilies/371983.gif

Voici mon codage (Refais mais meme probleme)

#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\Downloads\87affe6f9ad2148cf5174459b5a6422e.ico
#AutoIt3Wrapper_Outfile=RykoTrainer32.exe
#AutoIt3Wrapper_Outfile_x64=RykoTrainer64.exe
#AutoIt3Wrapper_Compile_Both=y
#AutoIt3Wrapper_UseX64=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <NomadMemory.au3>
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("RykoTrainer", 615, 438, 192, 124)
Global $Pic1 = GUICtrlCreatePic("C:\Users\SALON\Pictures\filetype-blank.bmp", 160, 0, 268, 236)
Global $Checkbox1 = GUICtrlCreateCheckbox("1 Hit Kill", 160, 288, 97, 17)
Global $Checkbox2 = GUICtrlCreateCheckbox("Cut Speed", 160, 320, 97, 17)
Global $Checkbox3 = GUICtrlCreateCheckbox("God Mode", 160, 352, 97, 17)
Global $Checkbox4 = GUICtrlCreateCheckbox("Inf SP", 336, 288, 97, 17)
Global $Checkbox5 = GUICtrlCreateCheckbox("Inf Ammo", 336, 320, 97, 17)
Global $Checkbox6 = GUICtrlCreateCheckbox("Speed Hack", 336, 352, 97, 17)
Global $Button1 = GUICtrlCreateButton("Start", 240, 328, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
; si le boutton est préssé
Case $Button1
; lancez la fonction cheat()
cheat()
EndSwitch
WEnd


Func cheat()
;message d'attente
ToolTip("En attente de S4League...", 0, 0)
; le programme attend l'ouverture de S4Client avant de continuer
ProcessWait("S4Client.exe")
; récupère l'ID unique du processus
$PID = ProcessExists("S4Client.exe")
; attend 5mili-secondes
Sleep(500)
; suspend les trois processus
_PROCESSSUSPEND("HGWC.exe")
_PROCESSSUSPEND("XTrap.xt")
_PROCESSSUSPEND("S4Client.exe")
; ouvre la mémoire pour la préparation a l'édition
$OPEN = _MEMORYOPEN($PID)
; attend 2secondes
Sleep(2000)
; si la checkbox est cochée
If GUICtrlRead($Checkbox1) = 1 Then
EndIf
; alors on modifie l’adresse en mettant la valeur 3135869072
_MEMORYWRITE(0x00504A29, $OPEN, "1593591259", "Float")
If GUICtrlRead($Checkbox2) = 1 Then
EndIf
_MEMORYWRITE(0x00519785, $OPEN, "2240612458", "Float")
If GUICtrlRead($Checkbox3) = 1 Then
EndIf
_MEMORYWRITE(0x0050EFC5, $OPEN, "3135869072", "Float")
If GUICtrlRead($Checkbox4) = 1 Then
EndIf
_MEMORYWRITE(0x00759882, $OPEN, "2348565979", "Float")
If GUICtrlRead($Checkbox5) = 1 Then
EndIf
_MEMORYWRITE(0x00519785, $OPEN, "3051982992", "Float")
If GUICtrlRead($Checkbox6) = 1 Then
_MEMORYWRITE(0x0055CFE3, $OPEN, "4284253659", "Float")
EndIf
; on ferme l'édition de mémoire
_MEMORYCLOSE(ProcessExists("S4Client.exe"))
; on réactive les processus
_PROCESSRESUME("HGWC.exe")
_PROCESSRESUME("S4Client.exe")
_PROCESSRESUME("XTrap.xt")
; on prévient l'utilisateur que la valeur a été modifiée
MsgBox(0, "RykoTrainer", "Enjoy =) !")
Exit 0
EndFunc

Func _PROCESSSUSPEND($PROCESS)
$PROCESSID = ProcessExists($PROCESS)
If $PROCESSID Then
$AI_HANDLE = DllCall("kernel32.dll", "int", "OpenProcess", "int", 2035711, "int", False, "int", $PROCESSID)
$I_SUCESS = DllCall("ntdll.dll", "int", "NtSuspendProcess", "int", $AI_HANDLE[0])
DllCall("kernel32.dll", "ptr", "CloseHandle", "ptr", $AI_HANDLE)
If IsArray($I_SUCESS) Then
Return 1
Else
SetError(1)
Return 0
EndIf
Else
SetError(2)
Return 0
EndIf
EndFunc
Func _PROCESSRESUME($PROCESS)
$PROCESSID = ProcessExists($PROCESS)
If $PROCESSID Then
$AI_HANDLE = DllCall("kernel32.dll", "int", "OpenProcess", "int", 2035711, "int", False, "int", $PROCESSID)
$I_SUCESS = DllCall("ntdll.dll", "int", "NtResumeProcess", "int", $AI_HANDLE[0])
DllCall("kernel32.dll", "ptr", "CloseHandle", "ptr", $AI_HANDLE)
If IsArray($I_SUCESS) Then
Return 1
Else
SetError(1)
Return 0
EndIf
Else
SetError(2)
Return 0
EndIf
EndFunc
 
Last edited:
Status
Not open for further replies.