Aide pour AutoIt v3 pour cheat s4 league :3

    Publicités

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

Status
Not open for further replies.

Lulucro

Membre
May 9, 2011
67
0
431
Bonsoir,Bonjour .

J'ai remarqué qu'il y avait surement un problème avec mon trainer que je viens de créer il y a deux cela ... 10 min .
Et il ne veux pas marcher . Il m'ouvre une fenêtre qui dit qu'il y a un problème . Je post le Script et si quelqu'un pouvait me le corriger cela pour mettre très utile :D .
Alors je vous demande de ne pas recopier le Script mais juste le corriger :svp: :D

HTML:
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=G:\S4League\S4League.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 615, 453, 206, 387)
$Button1 = GUICtrlCreateButton("Start !", 216, 144, 91, 41)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Checkbox1 = GUICtrlCreateCheckbox("FastFire", 216, 48, 97, 17)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Checkbox2 = GUICtrlCreateCheckbox("SP .Inf", 216, 72, 97, 17)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Checkbox3 = GUICtrlCreateCheckbox("GodMode", 216, 96, 97, 17)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Checkbox4 = GUICtrlCreateCheckbox("1 HitKill", 216, 120, 97, 17)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Credits By Lulucro Have Fun ! ;D", 152, 272, 215, 23)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
$Button2 = GUICtrlCreateButton("Exit :'(", 216, 200, 91, 41)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button2
            Exit
        Case $Button1
            cheat()


    EndSwitch
WEnd
Func cheat()
    ToolTip("Veuillez démarrez S4 League... // By Lulucro :D", 0, 0)
 ProcessWait("S4Client.exe")
 $PID = ProcessExists("S4Client.exe")
 Sleep(500)
 $OPEN = _MEMORYOPEN($PID)
_processsuspend("Aegis.exe")
_processsuspend("Aegis64.exe")
_processsuspend("HGWC.exe")
_processsuspend("S4Client.exe")
_processsuspend("XTrap.xt")
Sleep (2000)
    If GUICtrlRead($CHECKBOX1) = 1 Then
    _MEMORYWRITE(16656106, $OPEN, "1", "Float")
    EndIf
    If GUICtrlRead($CHECKBOX2) = 1 Then
        _MEMORYWRITE(2621794, $OPEN, "0", "char[2]")
        _MEMORYWRITE(591884, $OPEN, "0", "char[2]")
        _MEMORYWRITE(591884, $OPEN, "0", "char[2]")
    EndIf
	If GUICtrlRead ($Checkbox3) = 1 Then
		_MEMORYWRITE(0x00504AF8 , $OPEN, "4226388112", "long")
	EndIf
    If GUICtrlRead ($Checkbox4) = 1 Then
		_MEMORYWRITE(0x00505469 , $OPEN, "1593591259", "long")
     EndIf
 _memoryclose(ProcessExists("S4Client.exe"))
 _processresume("Aegis.exe")
 _processresume("Aegis64.exe")
 _processresume("HGWC.exe")
 _processresume("S4Client.exe")
 _processresume("XTrap.xt")
 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


Il doit surement avoir énormément d’erreur mais bon il faut un début a tout --' .... :désolé: De mon noobisme mais bon . Je demande juste de l'aide :bye::bye:
 

drov

V
Feb 27, 2012
1,427
1
944
Pourrais tu changer la couleur dans laquelle tu écrit ? Ce serais un peu plus pratique pour lire ^^
 

Nociif

2b || !2b
V
Sep 23, 2011
2,607
4
944
push location
Discord
Nociif#5969
Comme l'a dit Dagger, il manquait seulement le include <NomadMemory.au3>

#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=G:\S4League\S4League.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <NomadMemory.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 615, 453, 206, 387,0x4385)
$Button1 = GUICtrlCreateButton("Start !", 216, 144, 91, 41)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Checkbox1 = GUICtrlCreateCheckbox("FastFire", 216, 48, 97, 17)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Checkbox2 = GUICtrlCreateCheckbox("SP .Inf", 216, 72, 97, 17)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Checkbox3 = GUICtrlCreateCheckbox("GodMode", 216, 96, 97, 17)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Checkbox4 = GUICtrlCreateCheckbox("1 HitKill", 216, 120, 97, 17)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Credits By Lulucro Have Fun ! ;D", 152, 272, 215, 23)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
$Button2 = GUICtrlCreateButton("Exit :'(", 216, 200, 91, 41)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
Exit
Case $Button1
cheat()


EndSwitch
WEnd
Func cheat()
ToolTip("Veuillez démarrez S4 League... // By Lulucro :D", 0, 0)
ProcessWait("S4Client.exe")
$PID = ProcessExists("S4Client.exe")
Sleep(500)
$OPEN = _MEMORYOPEN($PID)
_processsuspend("Aegis.exe")
_processsuspend("Aegis64.exe")
_processsuspend("HGWC.exe")
_processsuspend("S4Client.exe")
_processsuspend("XTrap.xt")
Sleep (2000)
If GUICtrlRead($CHECKBOX1) = 1 Then
_MEMORYWRITE(16656106, $OPEN, "1", "Float")
EndIf
If GUICtrlRead($CHECKBOX2) = 1 Then
_MEMORYWRITE(2621794, $OPEN, "0", "char[2]")
_MEMORYWRITE(591884, $OPEN, "0", "char[2]")
_MEMORYWRITE(591884, $OPEN, "0", "char[2]")
EndIf
If GUICtrlRead ($Checkbox3) = 1 Then
_MEMORYWRITE(0x00504AF8 , $OPEN, "4226388112", "long")
EndIf
If GUICtrlRead ($Checkbox4) = 1 Then
_MEMORYWRITE(0x00505469 , $OPEN, "1593591259", "long")
EndIf
_memoryclose(ProcessExists("S4Client.exe"))
_processresume("Aegis.exe")
_processresume("Aegis64.exe")
_processresume("HGWC.exe")
_processresume("S4Client.exe")
_processresume("XTrap.xt")
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
 
Status
Not open for further replies.