[Tutorial] How To Make Your (Ingame & AOB-Scan) trainer

Page 15 of 16

11/12/2015 22:34 kiler1997#211

Quote:

Originally Posted by DJTinu

Sorry for this little spam but its not working pls help :/

Spoiler

#RequireAdmin
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <NoMadMemory.au3>

#Region ### START Koda GUI section ### Form=
$Hack = GUICreate("Smoke1337", 564, 268, 206, 130)
GUISetIcon("C:\Users\Steven\Desktop\S4 League hack test\Hack.ico", -1)
GUISetBkColor(0x3399FF)
$InfSP = GUICtrlCreateCheckbox("InfSP", 24, 56, 137, 41)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFF0000)
$Walls = GUICtrlCreateCheckbox("InfWalls", 24, 96, 137, 41)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFF0000)
$OneHit = GUICtrlCreateCheckbox("1Hit", 24, 136, 137, 41)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFF0000)
$Invisible = GUICtrlCreateCheckbox("Invisible", 24, 176, 137, 41)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFF0000)
$MaxHP = GUICtrlCreateCheckbox("200HP", 168, 56, 137, 41)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFF0000)
$NoLaser = GUICtrlCreateCheckbox("NoLaser", 168, 104, 137, 25)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFF0000)
$WSpeed = GUICtrlCreateCheckbox("WalkSpeed", 168, 136, 137, 41)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFF0000)
$Suicide = GUICtrlCreateCheckbox("Suicide", 168, 176, 137, 41)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFF0000)
$NoHP = GUICtrlCreateCheckbox("000/000HP", 312, 56, 137, 41)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFF0000)
$InfAmmo = GUICtrlCreateCheckbox("InfAmmo", 312, 96, 137, 41)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFF0000)
$RSpeed = GUICtrlCreateCheckbox("Speed", 312, 136, 137, 41)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFF0000)
$HitRange = GUICtrlCreateCheckbox("HitRange", 312, 176, 137, 41)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFF0000)
$Exit = GUICtrlCreateButton("Exit", 464, 176, 81, 73)
GUICtrlSetFont(-1, 16, 400, 0, "Impact")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$Pid = ProcessExists("S4Client.exe")
$OPEN = _MemoryOpen($Pid)

$InfSP = _MemoryScan(_MemoryOpen(ProcessExists("S4Client.ex e")),"D945F88BE55DC3CCCCCCCCCCCCCC558BEC51894D" )
$200HP = _MemoryScan(_MemoryOpen(ProcessExists("S4Client.ex e")),"D945FC8BE55DC3CCCCCCCCCCCCCCCCCCCCCCCCCC558B EC51894DFC8D4508508B0D64")

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
$nMsg = GUIGetMsg()
Case $Exit
Exit
Case $InfSP
If GUICtrlRead($InfSP) = 1 Then
_memorywrite($InfSP,$open,"2348303835","long")
Else
_memorywrite($InfSP,$open,"2348303833","long")
EndIf
Case $MaxHP
If GUICtrlRead($MaxHP) = 1 Then
_memorywrite($200HP,$open,"2348565979","long")
Else
_memorywrite($200HP,$open,"2348565977","long")
EndIf

#cs
No Mad memory Text:
Func _MemoryScan($ah_Handle, $pattern, $after = False, $iv_addrStart = 0x00000000, $iv_addrEnd = 0X0FFFFFFF, $step = 51200)
If Not IsArray($ah_Handle) Then
SetError(1)
Return -1
EndIf
$pattern = StringRegExpReplace($pattern, "[^0123456789ABCDEFabcdef.]", "")
If StringLen($pattern) = 0 Then
SetError(2)
Return -2
EndIf
For $addr = $iv_addrStart To $iv_addrEnd Step $step - (StringLen($pattern) / 2)
StringRegExp(_MemoryRead($addr, $ah_Handle, "byte[" & $step & "]"), $pattern, 1, 2)
If Not @error Then
If $after Then
Return StringFormat("0x%.8X", $addr + ((@extended - 2) / 2))
Else
Return StringFormat("0x%.8X", $addr + ((@extended - StringLen($pattern) - 2) / 2))
EndIf
EndIf
Next
Return -3
EndFunc ;==>_MemoryScan
#ce

Spoiler

11/12/2015 23:59 HaMaDa..#212

Quote:

Originally Posted by DJTinu

Sorry for this little spam but its not working pls help :/

Spoiler

#RequireAdmin
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <NoMadMemory.au3>

#Region ### START Koda GUI section ### Form=
$Hack = GUICreate("Smoke1337", 564, 268, 206, 130)
GUISetIcon("C:\Users\Steven\Desktop\S4 League hack test\Hack.ico", -1)
GUISetBkColor(0x3399FF)
$InfSP = GUICtrlCreateCheckbox("InfSP", 24, 56, 137, 41)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFF0000)
$Walls = GUICtrlCreateCheckbox("InfWalls", 24, 96, 137, 41)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFF0000)
$OneHit = GUICtrlCreateCheckbox("1Hit", 24, 136, 137, 41)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFF0000)
$Invisible = GUICtrlCreateCheckbox("Invisible", 24, 176, 137, 41)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFF0000)
$MaxHP = GUICtrlCreateCheckbox("200HP", 168, 56, 137, 41)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFF0000)
$NoLaser = GUICtrlCreateCheckbox("NoLaser", 168, 104, 137, 25)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFF0000)
$WSpeed = GUICtrlCreateCheckbox("WalkSpeed", 168, 136, 137, 41)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFF0000)
$Suicide = GUICtrlCreateCheckbox("Suicide", 168, 176, 137, 41)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFF0000)
$NoHP = GUICtrlCreateCheckbox("000/000HP", 312, 56, 137, 41)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFF0000)
$InfAmmo = GUICtrlCreateCheckbox("InfAmmo", 312, 96, 137, 41)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFF0000)
$RSpeed = GUICtrlCreateCheckbox("Speed", 312, 136, 137, 41)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFF0000)
$HitRange = GUICtrlCreateCheckbox("HitRange", 312, 176, 137, 41)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFF0000)
$Exit = GUICtrlCreateButton("Exit", 464, 176, 81, 73)
GUICtrlSetFont(-1, 16, 400, 0, "Impact")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$Pid = ProcessExists("S4Client.exe")
$OPEN = _MemoryOpen($Pid)

$InfSP = _MemoryScan(_MemoryOpen(ProcessExists("S4Client.ex e")),"D945F88BE55DC3CCCCCCCCCCCCCC558BEC51894D" )
$200HP = _MemoryScan(_MemoryOpen(ProcessExists("S4Client.ex e")),"D945FC8BE55DC3CCCCCCCCCCCCCCCCCCCCCCCCCC558B EC51894DFC8D4508508B0D64")

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
$nMsg = GUIGetMsg()
Case $Exit
Exit
Case $InfSP
If GUICtrlRead($InfSP) = 1 Then
_memorywrite($InfSP,$open,"2348303835","long")
Else
_memorywrite($InfSP,$open,"2348303833","long")
EndIf
Case $MaxHP
If GUICtrlRead($MaxHP) = 1 Then
_memorywrite($200HP,$open,"2348565979","long")
Else
_memorywrite($200HP,$open,"2348565977","long")
EndIf

#cs
No Mad memory Text:
Func _MemoryScan($ah_Handle, $pattern, $after = False, $iv_addrStart = 0x00000000, $iv_addrEnd = 0X0FFFFFFF, $step = 51200)
If Not IsArray($ah_Handle) Then
SetError(1)
Return -1
EndIf
$pattern = StringRegExpReplace($pattern, "[^0123456789ABCDEFabcdef.]", "")
If StringLen($pattern) = 0 Then
SetError(2)
Return -2
EndIf
For $addr = $iv_addrStart To $iv_addrEnd Step $step - (StringLen($pattern) / 2)
StringRegExp(_MemoryRead($addr, $ah_Handle, "byte[" & $step & "]"), $pattern, 1, 2)
If Not @error Then
If $after Then
Return StringFormat("0x%.8X", $addr + ((@extended - 2) / 2))
Else
Return StringFormat("0x%.8X", $addr + ((@extended - StringLen($pattern) - 2) / 2))
EndIf
EndIf
Next
Return -3
EndFunc ;==>_MemoryScan
#ce

Spoiler

Code:

#RequireAdmin
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <NoMadMemory.au3>

#Region ### START Koda GUI section ### Form=
$Hack = GUICreate("Smoke1337", 564, 268, 206, 130)
GUISetIcon("C:\Users\Steven\Desktop\S4 League hack test\Hack.ico", -1)
GUISetBkColor(0x3399FF)
$InfSP = GUICtrlCreateCheckbox("InfSP", 24, 56, 137, 41)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFF0000)
$Walls = GUICtrlCreateCheckbox("InfWalls", 24, 96, 137, 41)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFF0000)
$OneHit = GUICtrlCreateCheckbox("1Hit", 24, 136, 137, 41)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFF0000)
$Invisible = GUICtrlCreateCheckbox("Invisible", 24, 176, 137, 41)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFF0000)
$MaxHP = GUICtrlCreateCheckbox("200HP", 168, 56, 137, 41)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFF0000)
$NoLaser = GUICtrlCreateCheckbox("NoLaser", 168, 104, 137, 25)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFF0000)
$WSpeed = GUICtrlCreateCheckbox("WalkSpeed", 168, 136, 137, 41)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFF0000)
$Suicide = GUICtrlCreateCheckbox("Suicide", 168, 176, 137, 41)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFF0000)
$NoHP = GUICtrlCreateCheckbox("000/000HP", 312, 56, 137, 41)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFF0000)
$InfAmmo = GUICtrlCreateCheckbox("InfAmmo", 312, 96, 137, 41)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFF0000)
$RSpeed = GUICtrlCreateCheckbox("Speed", 312, 136, 137, 41)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFF0000)
$HitRange = GUICtrlCreateCheckbox("HitRange", 312, 176, 137, 41)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFF0000)
$Exit = GUICtrlCreateButton("Exit", 464, 176, 81, 73)
GUICtrlSetFont(-1, 16, 400, 0, "Impact")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$Pid = ProcessExists("S4Client.exe")
$OPEN = _MemoryOpen($Pid)

$InfSP = _MemoryScan(_MemoryOpen(ProcessExists("S4Client.exe")),"D945F88BE55DC3CCCCCCCCCCCCCC558BEC51894D")
$200HP = _MemoryScan(_MemoryOpen(ProcessExists("S4Client.exe")),"D945FC8BE55DC3CCCCCCCCCCCCCCCCCCCCCCCCCC558BEC51894DFC8D4508508B0D64")

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
$nMsg = GUIGetMsg()
Case $Exit
Exit
Case $InfSP
If GUICtrlRead($InfSP) = 1 Then
_memorywrite($InfSP,$open,"2348303835","long")
Else
_memorywrite($InfSP,$open,"2348303833","long")
EndIf
Case $MaxHP
If GUICtrlRead($MaxHP) = 1 Then
_memorywrite($200HP,$open,"2348565979","long")
Else
_memorywrite($200HP,$open,"2348565977","long")
EndIf
EndSwitch
WEnd



Func _MemoryScan($ah_Handle, $pattern, $after = False, $iv_addrStart = 0x00000000, $iv_addrEnd = 0X0FFFFFFF, $step = 51200)
If Not IsArray($ah_Handle) Then
SetError(1)
Return -1
EndIf
$pattern = StringRegExpReplace($pattern, "[^0123456789ABCDEFabcdef.]", "")
If StringLen($pattern) = 0 Then
SetError(2)
Return -2
EndIf
For $addr = $iv_addrStart To $iv_addrEnd Step $step - (StringLen($pattern) / 2)
StringRegExp(_MemoryRead($addr, $ah_Handle, "byte[" & $step & "]"), $pattern, 1, 2)
If Not @error Then
If $after Then
Return StringFormat("0x%.8X", $addr + ((@extended - 2) / 2))
Else
Return StringFormat("0x%.8X", $addr + ((@extended - StringLen($pattern) - 2) / 2))
EndIf
EndIf
Next
Return -3
EndFunc ;==>_MemoryScan

12/09/2015 20:49 Geroge301#213

Hey,

sorry to annoy you in case these have already been posted and i'm blind but could I have:

-Godmode
-Instant Respawn
-One Hit Kill
-Hitrange
normal and hacked values & adresses
and
-Inf. Ammo
AOB & andress if you have them

Thanks in advance, this tutorial is very clear and don't listen to the fags that say you're useless on this forum ! :)

12/09/2015 23:05 HaMaDa..#214

Quote:

Originally Posted by Geroge301

Hey,

sorry to annoy you in case these have already been posted and i'm blind but could I have:

-Godmode
-Instant Respawn
-One Hit Kill
-Hitrange
normal and hacked values & adresses
and
-Inf. Ammo
AOB & andress if you have them

Thanks in advance, this tutorial is very clear and don't listen to the fags that say you're useless on this forum ! :)

Code:

GodMode ==> 7205E9760B00008B4D90
Normal = 1994982770 Hacked = 1995018384
Instant Respawn ==> 043B48087209C745B001000000EB07C745B0000000000FB655B085D20F85D4
Normal = 138951428 Hacked = 138951424
One Hit ==> D945FC8BE55DC3CCCCCCCCCCCC558BEC51
Normal = 2348565977 Hacked = 2348565979
Hitrange ==> D945C48B4DF464890D
Normal = 2344895961 Hacked = 2344895963
Infinite ammo ==> 7605E9870000008B55E8
Normal = 2280195446 Hacked = 2280231056

12/10/2015 07:13 Geroge301#215

Man, you're awesome ! Thanks !

EDIT: I have an error, it says that "_MemoryScan" isn't a fucntion. I did write #include <NoMadMemory.au3> and I tried other scripts that had it only to end up on the sae error.
NoMadMemory.au3 is in the "Include" folder

EDIT2: I'm dumb, I forgot to add the function , now it works perfectly !

12/10/2015 12:48 HaMaDa..#216

Quote:

Originally Posted by Geroge301

Man, you're awesome ! Thanks !

EDIT: I have an error, it says that "_MemoryScan" isn't a fucntion. I did write #include <NoMadMemory.au3> and I tried other scripts that had it only to end up on the sae error.
NoMadMemory.au3 is in the "Include" folder

EDIT2: I'm dumb, I forgot to add the function , now it works perfectly !

If u have any errors, send me your source.

12/10/2015 15:47 Geroge301#217

Well it worked perfectly till I got in the game and tried to activate one of the hacks, nothing happened :

Spoiler

12/10/2015 18:03 HaMaDa..#218

Quote:

Originally Posted by Geroge301

Well it worked perfectly till I got in the game and tried to activate one of the hacks, nothing happened :

Spoiler

#RequireAdmin
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <NoMadMemory.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("S4 League Trainer", 213, 94, 298, 168)
$Exit = GUICtrlCreateButton("[- Exit Trainer -]", 24, 64, 161, 25)
$IR = GUICtrlCreateCheckbox("Instant Respawn", 13, 24, 97, 17)
$God = GUICtrlCreateCheckbox("Godmode", 13, 4, 73, 17)
$OHKO = GUICtrlCreateCheckbox("One Hit K.O", 13, 44, 73, 17)
$HR = GUICtrlCreateCheckbox("Hitrange", 115, 4, 73, 17)
$InfSP = GUICtrlCreateCheckbox("Inf. SP", 115, 24, 73, 17)
$InfAmmo = GUICtrlCreateCheckbox("Inf. Ammo", 115, 44, 73, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$Pid = ProcessExists("S4Client.exe")
$OPEN = _MemoryOpen ($Pid)

$IR = _MemoryScan(_MemoryOpen(ProcessExists("S4Client.ex e")),"043B48087209C745B001000000EB07C745B000000000 0FB655B085D20F85D4")
$God = _MemoryScan(_MemoryOpen(ProcessExists("S4Client.ex e")),"7205E9760B00008B4D90")
$OHKO = _MemoryScan(_MemoryOpen(ProcessExists("S4Client.ex e")),"D945FC8BE55DC3CCCCCCCCCCCC558BEC51")
$HR = _MemoryScan(_MemoryOpen(ProcessExists("S4Client.ex e")),"D945C48B4DF464890D")
$InfSP = _MemoryScan(_MemoryOpen(ProcessExists("S4Client.ex e")),"D945F88BE55DC3CCCCCCCCCCCCCC558BEC51894D" )
$InfAmmo = _MemoryScan(_MemoryOpen(ProcessExists("S4Client.ex e")),"605E9870000008B55E8")

Func _MemoryScan($ah_Handle, $pattern, $after = False, $iv_addrStart = 0x00000000, $iv_addrEnd = 0X0FFFFFFF, $step = 51200)
If Not IsArray($ah_Handle) Then
SetError(1)
Return -1
EndIf
$pattern = StringRegExpReplace($pattern, "[^0123456789ABCDEFabcdef.]", "")
If StringLen($pattern) = 0 Then
SetError(2)
Return -2
EndIf
For $addr = $iv_addrStart To $iv_addrEnd Step $step - (StringLen($pattern) / 2)
StringRegExp(_MemoryRead($addr, $ah_Handle, "byte[" & $step & "]"), $pattern, 1, 2)
If Not @error Then
If $after Then
Return StringFormat("0x%.8X", $addr + ((@extended - 2) / 2))
Else
Return StringFormat("0x%.8X", $addr + ((@extended - StringLen($pattern) - 2) / 2))
EndIf
EndIf
Next
Return -3
EndFunc ;==>_MemoryScan

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Exit
Exit
Case $IR
If GUICtrlRead($IR) = 1 Then
_memorywrite($IR,$open,"138951424","Long")
Else
_memorywrite($IR,$open,"138951428","Long")
EndIf
Case $God
If GUICtrlRead($God) = 1 Then
_memorywrite($God,$open,"1995018384","Long")
Else
_memorywrite($God,$open,"1994982770","Long")
EndIf
If GUICtrlRead($OHKO) = 1 Then
_memorywrite($OHKO,$open,"2348565979","Long")
Else
_memorywrite($OHKO,$open,"2348565977","Long")
EndIf
If GUICtrlRead($HR) = 1 Then
_memorywrite($HR,$open,"2344895961","Long")
Else
_memorywrite($HR,$open,"2344895963","Long")
EndIf
If GUICtrlRead($InfSP) = 1 Then
_memorywrite($InfSP,$open,"2348303835","Long")
Else
_memorywrite($InfSP,$open,"2348303833","Long")
EndIf
If GUICtrlRead($InfAmmo) = 1 Then
_memorywrite($InfAmmo,$open,"2280195446","Long")
Else
_memorywrite($InfAmmo,$open,"2280231056","Long")
EndIf
EndSwitch
WEnd

Spoiler

Code:

#RequireAdmin
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <NoMadMemory.au3>

$IR = _MemoryScan(_MemoryOpen(ProcessExists("S4Client.exe")),"043B48087209C745B001000000EB07C745B0000000000FB655B085D20F85D4")
$God = _MemoryScan(_MemoryOpen(ProcessExists("S4Client.exe")),"7205E9760B00008B4D90")
$OHKO = _MemoryScan(_MemoryOpen(ProcessExists("S4Client.exe")),"D945FC8BE55DC3CCCCCCCCCCCC558BEC51")
$HR = _MemoryScan(_MemoryOpen(ProcessExists("S4Client.exe")),"D945C48B4DF464890D")
$InfSP = _MemoryScan(_MemoryOpen(ProcessExists("S4Client.exe")),"D945F88BE55DC3CCCCCCCCCCCCCC558BEC51894D")
$InfAmmo = _MemoryScan(_MemoryOpen(ProcessExists("S4Client.exe")),"605E9870000008B55E8")

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("S4 League Trainer", 213, 94, 298, 168)
$Exit = GUICtrlCreateButton("[- Exit Trainer -]", 24, 64, 161, 25)
$IR1 = GUICtrlCreateCheckbox("Instant Respawn", 13, 24, 97, 17)
$God1 = GUICtrlCreateCheckbox("Godmode", 13, 4, 73, 17)
$OHKO1 = GUICtrlCreateCheckbox("One Hit K.O", 13, 44, 73, 17)
$HR1 = GUICtrlCreateCheckbox("Hitrange", 115, 4, 73, 17)
$InfSP1 = GUICtrlCreateCheckbox("Inf. SP", 115, 24, 73, 17)
$InfAmmo1 = GUICtrlCreateCheckbox("Inf. Ammo", 115, 44, 73, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$Pid = ProcessExists("S4Client.exe")
$OPEN = _MemoryOpen ($Pid)


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
CASE $EXIT
   EXIT
Case $IR1
If GUICtrlRead($IR1) = 1 Then
_memorywrite($IR,$open,"138951424","Long")
Else
_memorywrite($IR,$open,"138951428","Long")
EndIf
Case $God1
If GUICtrlRead($God1) = 1 Then
_memorywrite($God,$open,"1995018384","Long")
Else
_memorywrite($God,$open,"1994982770","Long")
EndIf
Case $OHKO1
If GUICtrlRead($OHKO1) = 1 Then
_memorywrite($OHKO,$open,"2348565979","Long")
Else
_memorywrite($OHKO,$open,"2348565977","Long")
EndIf
Case $HR1
If GUICtrlRead($HR) = 1 Then
_memorywrite($HR,$open,"2344895961","Long")
Else
_memorywrite($HR,$open,"2344895963","Long")
EndIf
Case $INFSP1
If GUICtrlRead($InfSP) = 1 Then
_memorywrite($InfSP,$open,"2348303835","Long")
Else
_memorywrite($InfSP,$open,"2348303833","Long")
EndIf
CASE $INFAMMO1
If GUICtrlRead($InfAmmo) = 1 Then
_memorywrite($InfAmmo,$open,"2280195446","Long")
Else
_memorywrite($InfAmmo,$open,"2280231056","Long")
EndIf
EndSwitch
WEnd


Func _MemoryScan($ah_Handle, $pattern, $after = False, $iv_addrStart = 0x00000000, $iv_addrEnd = 0X0FFFFFFF, $step = 51200)
If Not IsArray($ah_Handle) Then
SetError(1)
Return -1
EndIf
$pattern = StringRegExpReplace($pattern, "[^0123456789ABCDEFabcdef.]", "")
If StringLen($pattern) = 0 Then
SetError(2)
Return -2
EndIf
For $addr = $iv_addrStart To $iv_addrEnd Step $step - (StringLen($pattern) / 2)
StringRegExp(_MemoryRead($addr, $ah_Handle, "byte[" & $step & "]"), $pattern, 1, 2)
If Not @error Then
If $after Then
Return StringFormat("0x%.8X", $addr + ((@extended - 2) / 2))
Else
Return StringFormat("0x%.8X", $addr + ((@extended - StringLen($pattern) - 2) / 2))
EndIf
EndIf
Next
Return -3
EndFunc ;==>_MemoryScan

1- you can't make the checkboxs name like the functions name so i have changed them
2- I have changed the aob functions place so it will search for them before the trainer start

12/10/2015 18:58 Geroge301#219

Oooooh so placing the codes differently did change something ! You're an awesome person, thanks !

01/05/2016 10:53 sgian910#220

I would like you to make tutorial about aob trainer in vb.net

03/28/2016 15:40 Destroyer-*#221

Hey hamada do you still help

04/01/2016 16:42 HaMaDa..#222

Quote:

Originally Posted by Destroyer-*

Hey hamada do you still help

Ofc.

04/01/2016 21:20 Destroyer-*#223

Quote:

Originally Posted by HaMaDa..

Ofc.

Can you give your skype to me that I can tell my problem easily?

04/01/2016 23:08 HaMaDa..#224

Quote:

Originally Posted by Destroyer-*

Can you give your skype to me that I can tell my problem easily?

Iam not using skype anymore.

04/02/2016 09:45 Destroyer-*#225

Quote:

Originally Posted by HaMaDa..

Iam not using skype anymore.

Aw, okay then, Can I pm you?

Page 15 of 16

« First