How to make in game trainer? <-AutoIt
#RequireAdmin
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile_type=a3x
#AutoIt3Wrapper_outfile=C:\Users\Flo\Desktop\S4 Ingame Trainer src\S4 Menü.a3x
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_UseX64=n
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <WindowsConstants.au3>
#include <WinAPI.au3>
#include <GUIConstants.au3>
#include <NomadMemory.au3>
Opt("GUIOnEventMode", 1)
Global $_COMMON_KERNEL32DLL = DllOpen("kernel32.dll"), $_COMMON_USER32DLL = DllOpen("ntdll.dll")
_GetPrivilege_SEDEBUG()
Global $aButton[29]
Global $GUI = GUICreate("", 130, 465, @DesktopWidth - 170, -1, $WS_POPUP, $WS_EX_TOPMOST)
GUISetOnEvent(-3, "_Exit")
$aButton[0] = GUICtrlCreateButton("Hitrange On", 0, 6, 93, 25, $WS_GROUP)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetOnEvent(-1, "_HitrangeOn")
GUICtrlSetBkColor(-1, 0x00FF00)
$aButton[1] = GUICtrlCreateButton("Off", 96, 6, 27, 25, $WS_GROUP)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetOnEvent(-1, "_HitrangeOff")
GUICtrlSetBkColor(-1, 0xFF0000)
$aButton[2] = GUICtrlCreateButton("Wallshoot On", 0, 36, 93, 25, $WS_GROUP)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetOnEvent(-1, "_WallshootOn")
GUICtrlSetBkColor(-1, 0x00FF00)
$aButton[3] = GUICtrlCreateButton("Off", 96, 36, 27, 25, $WS_GROUP)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetOnEvent(-1, "_WallshootOff")
GUICtrlSetBkColor(-1, 0xFF0000)
$aButton[4] = GUICtrlCreateButton("Skill On", 0, 66, 93, 25, $WS_GROUP)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetOnEvent(-1, "_SkillOn")
GUICtrlSetBkColor(-1, 0x00FF00)
$aButton[5] = GUICtrlCreateButton("Off", 96, 66, 27, 25, $WS_GROUP)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetOnEvent(-1, "_SkillOff")
GUICtrlSetBkColor(-1, 0xFF0000)
$aButton[6] = GUICtrlCreateButton("Shophack On", 0, 96, 93, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "_ShophackOn")
GUICtrlSetBkColor(-1, 0x00FF00)
$aButton[7] = GUICtrlCreateButton("Off", 96, 96, 27, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "_ShophackOff")
GUICtrlSetBkColor(-1, 0xFF0000)
$aButton[8] = GUICtrlCreateButton("No Fog On", 0, 126, 93, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "_NoFogOn")
GUICtrlSetBkColor(-1, 0x00FF00)
$aButton[9] = GUICtrlCreateButton("Off", 96, 126, 27, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "_NoFogOff")
GUICtrlSetBkColor(-1, 0xFF0000)
$aButton[10] = GUICtrlCreateButton("Invisible On", 0, 156, 93, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "_InvisibleOn")
GUICtrlSetBkColor(-1, 0x00FF00)
$aButton[11] = GUICtrlCreateButton("Off", 96, 156, 27, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "_InvisileOff")
GUICtrlSetBkColor(-1, 0xFF0000)
$aButton[12] = GUICtrlCreateButton("XRay On", 0, 186, 93, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "_XrayOn")
GUICtrlSetBkColor(-1, 0x00FF00)
$aButton[13] = GUICtrlCreateButton("Off", 96, 186, 27, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "_XRayOff")
GUICtrlSetBkColor(-1, 0xFF0000)
$aButton[14] = GUICtrlCreateButton("No Slang On", 0, 216, 91, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "_NoSlangOn")
GUICtrlSetBkColor(-1, 0x00FF00)
$aButton[15] = GUICtrlCreateButton("Off", 96, 216, 27, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "_NoSlangOff")
GUICtrlSetBkColor(-1, 0xFF0000)
$aButton[16] = GUICtrlCreateButton("Arcade Clear On", 0, 248, 91, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "_ArcadeClearOn")
GUICtrlSetBkColor(-1, 0x00FF00)
$aButton[17] = GUICtrlCreateButton("Off", 96, 248, 27, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "_ArcadeClearOff")
GUICtrlSetBkColor(-1, 0xFF0000)
$aButton[18] = GUICtrlCreateButton("No Hours On", 0, 280, 91, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "_NoHoursOn")
GUICtrlSetBkColor(-1, 0x00FF00)
$aButton[19] = GUICtrlCreateButton("Off", 96, 280, 27, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "_NoHoursOff")
GUICtrlSetBkColor(-1, 0xFF0000)
$aButton[20] = GUICtrlCreateButton("Options", 4, 436, 123, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "_OptionsOn")
GUICtrlSetBkColor(-1, 0x0000FF)
$aButton[21] = GUICtrlCreateButton("Inf Ammo On", 0, 312, 91, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "_InfAmmoOn")
GUICtrlSetBkColor(-1, 0x00FF00)
$aButton[22] = GUICtrlCreateButton("Off", 96, 312, 27, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "_InfAmmoOff")
GUICtrlSetBkColor(-1, 0xFF0000)
$aButton[23] = GUICtrlCreateButton("Inf SP Skill On", 0, 343, 91, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "_InfSPOn")
GUICtrlSetBkColor(-1, 0x00FF00)
$aButton[24] = GUICtrlCreateButton("Off", 96, 344, 27, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "_InfSPOff")
GUICtrlSetBkColor(-1, 0xFF0000)
$aButton[25] = GUICtrlCreateButton("0 Accuracy On", 0, 376, 91, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "_AccuracyOn")
GUICtrlSetBkColor(-1, 0x00FF00)
$aButton[26] = GUICtrlCreateButton("Off", 96, 376, 27, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "_AccuracyOff")
GUICtrlSetBkColor(-1, 0xFF0000)
$aButton[27] = GUICtrlCreateButton("No Lasers On", 0, 408, 91, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "_NoLaserOn")
GUICtrlSetBkColor(-1, 0x00FF00)
$aButton[28] = GUICtrlCreateButton("Off", 96, 408, 27, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "_NoLaserOff")
GUICtrlSetBkColor(-1, 0xFF0000)
$pos = WinGetPos($GUI)
_GuiHole($GUI, 0, 0, 130, 465)
Global $aCheckbox[5]
Global $GUI1 = GUICreate("", 130, 150, 0, 0, -1, BitOR($WS_EX_TOPMOST, $WS_EX_WINDOWEDGE))
GUISetOnEvent(-3, "_OptionsOff")
$aCheckbox[0] = _GuiCtrlCreateTransparentCheckbox("AegisKill", 4, 4, 57, 17)
$aCheckbox[1] = _GuiCtrlCreateTransparentCheckbox("Aegissuspend", 4, 28, 85, 17)
$aCheckbox[2] = _GuiCtrlCreateTransparentCheckbox("Aegishook", 4, 52, 69, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
$aCheckbox[3] = _GuiCtrlCreateTransparentCheckbox("Suspend HGWC", 4, 76, 97, 17)
$aCheckbox[4] = _GuiCtrlCreateTransparentCheckbox("Suspend XTrap", 4, 100, 97, 17)
$madeby = GUICtrlCreateLabel("made by -CyberLinK-", 4, 124, 101, 17)
AdlibRegister("_CheckS4Activity", 50)
AdlibRegister("_Options", 50)
AdlibRegister("_Tooltip", 1000)
GUISetState(@SW_HIDE, $GUI)
GUISetState(@SW_HIDE, $GUI1)
While 1
Sleep(10)
WEnd
Func _Exit()
Exit
EndFunc ;==>_Exit
Func _OptionsOn()
GUISetState(@SW_SHOW, $GUI1)
EndFunc ;==>_OptionsOn
Func _OptionsOff()
GUISetState(@SW_HIDE, $GUI1)
EndFunc ;==>_OptionsOff
Func _Tooltip()
Static Local $I = 1
Switch $I
Case 1
ToolTip("Waiting for S4 League.", 0, 0)
Case 2
ToolTip("Waiting for S4 League..", 0, 0)
Case 3
ToolTip("Waiting for S4 League...", 0, 0)
$I = 0
EndSwitch
$I += 1
EndFunc ;==>_Tooltip
Func _Options()
If ProcessExists("XTrap.xt") <> 0 Then
If GUICtrlRead($aCheckbox[0]) = 1 Then
ProcessClose("Aegis.exe")
If (@OSArch = "X64") Then
ProcessClose("Aegis64.exe")
EndIf
AdlibUnRegister("_Options")
EndIf
If GUICtrlRead($aCheckbox[1]) = 1 Then
Local $Aegis = ProcessExists("Aegis.exe")
_SuspendProcess($Aegis)
If (@OSArch = "X64") Then
Local $Aegis64 = ProcessExists("Aegis64.exe")
_SuspendProcess($Aegis64)
AdlibUnRegister("_Options")
EndIf
EndIf
If GUICtrlRead($aCheckbox[3]) = 1 Then
Local $HGWC = ProcessExists("HGWC.exe")
_SuspendProcess($HGWC)
EndIf
If GUICtrlRead($aCheckbox[4]) = 1 Then
Local $Xtrap = ProcessExists("XTrap.xt")
_SuspendProcess($Xtrap)
EndIf
EndIf
EndFunc ;==>_Options
Func _CheckS4Activity()
If ProcessExists("S4Client.exe") <> 0 Then
GUISetState(@SW_SHOW, $GUI)
AdlibUnRegister("_Tooltip")
ToolTip("", 0, 0)
Sleep(500)
$S4 = ProcessExists("S4Client.exe")
Sleep(10)
IniWrite(@TempDir & "config.ini", "section", "PID", $S4)
AdlibUnRegister("_CheckS4Activity")
Sleep(1000)
Local $PID = IniRead(@TempDir & "config.ini", "section", "PID", "0")
If $PID = 0 Then
MsgBox(0, "", "Error!")
Exit
EndIf
If (@OSArch = "X64") Then
AdlibRegister("_WaitS4Close", 500)
EndIf
EndIf
EndFunc ;==>_CheckS4Activity
Func _WaitS4Close()
If ProcessExists("S4Client.exe") <> 0 Then
Else
AdlibUnRegister("_WaitS4Close")
Exit
EndIf
EndFunc ;==>_WaitS4Close
Func _HitrangeOn()
Local $PID = IniRead(@TempDir & "config.ini", "section", "PID", "0")
If $PID = 0 Then
MsgBox(0, "", "Error!")
Exit
EndIf
_SuspendProcess($PID)
Sleep(250)
$Open = _MemoryOpen($PID)
_MemoryWrite(0x00F33345, $Open, "0", "Float")
_MemoryWrite(0x00F33611, $Open, "0", "Float")
_MemoryWrite(0x00F31810, $Open, "0", "Float")
_MemoryWrite(0x00F31818, $Open, "0", "Float")
_MemoryClose($Open)
_ResumeProcess($PID)
SplashTextOn("", "Hitrange is now On", "380", "50", "-1", "-1", 1, "Courier New", "18", "400")
Sleep(400)
SplashTextOn("", "", "0", "0", "", "", 0, "", "0", "0")
EndFunc ;==>_HitrangeOn
Func _HitrangeOff()
Local $PID = IniRead(@TempDir & "config.ini", "section", "PID", "0")
If $PID = 0 Then
MsgBox(0, "", "Error!")
Exit
EndIf
_SuspendProcess($PID)
Sleep(250)
$Open = _MemoryOpen($PID)
_MemoryWrite(0x00F317C0, $Open, "2", "Float")
_MemoryWrite(0x00F317D0, $Open, "2", "Float")
_MemoryWrite(0x00F31810, $Open, "2", "Float")
_MemoryWrite(0x00F31818, $Open, "2", "Float")
_MemoryClose($Open)
_ResumeProcess($PID)
SplashTextOn("", "Hitrange is now Off", "380", "50", "-1", "-1", 1, "Courier New", "18", "400")
Sleep(400)
SplashTextOn("", "", "0", "0", "", "", 0, "", "0", "0")
EndFunc ;==>_HitrangeOff
Func _WallshootOn()
Local $PID = IniRead(@TempDir & "config.ini", "section", "PID", "0")
If $PID = 0 Then
MsgBox(0, "", "Error!")
Exit
EndIf
_SuspendProcess($PID)
Sleep(250)
$Open = _MemoryOpen($PID)
_MemoryWrite(0x00F317C0, $Open, "1", "Float")
_MemoryWrite(0x00F317D0, $Open, "1", "Float")
_MemoryWrite(0x00F31810, $Open, "1", "Float")
_MemoryWrite(0x00F31818, $Open, "1", "Float")
_MemoryClose($Open)
_ResumeProcess($PID)
SplashTextOn("", "Wallshoot is now On", "380", "50", "-1", "-1", 1, "Courier New", "18", "400")
Sleep(400)
SplashTextOn("", "", "0", "0", "", "", 0, "", "0", "0")
EndFunc ;==>_WallshootOn
Func _WallshootOff()
Local $PID = IniRead(@TempDir & "config.ini", "section", "PID", "0")
If $PID = 0 Then
MsgBox(0, "", "Error!")
Exit
EndIf
_SuspendProcess($PID)
Sleep(250)
$Open = _MemoryOpen($PID)
_MemoryWrite(0x00F317C0, $Open, "2", "Float")
_MemoryWrite(0x00F317D0, $Open, "2", "Float")
_MemoryWrite(0x00F31810, $Open, "2", "Float")
_MemoryWrite(0x00F31818, $Open, "2", "Float")
_MemoryClose($Open)
_ResumeProcess($PID)
SplashTextOn("", "Wallshoot is now Off", "380", "50", "-1", "-1", 1, "Courier New", "18", "400")
Sleep(400)
SplashTextOn("", "", "0", "0", "", "", 0, "", "0", "0")
EndFunc ;==>_WallshootOff
Func _SkillOn()
Local $PID = IniRead(@TempDir & "config.ini", "section", "PID", "0")
If $PID = 0 Then
MsgBox(0, "", "Error!")
Exit
EndIf
_SuspendProcess($PID)
Sleep(250)
$Open = _MemoryOpen($PID)
_MemoryWrite(0x00F7E9B4, $Open, "ability", "char[8]")
_MemoryClose($Open)
_ResumeProcess($PID)
SplashTextOn("", "Skill is now On", "380", "50", "-1", "-1", 1, "Courier New", "18", "400")
Sleep(400)
SplashTextOn("", "", "0", "0", "", "", 0, "", "0", "0")
EndFunc ;==>_SkillOn
Func _SkillOff()
Local $PID = IniRead(@TempDir & "config.ini", "section", "PID", "0")
If $PID = 0 Then
MsgBox(0, "", "Error!")
Exit
EndIf
_SuspendProcess($PID)
Sleep(250)
$Open = _MemoryOpen($PID)
_MemoryWrite(0x00F7E9B4, $Open, "5", "char[2]")
_MemoryClose($Open)
_ResumeProcess($PID)
SplashTextOn("", "Skill is now Off", "380", "50", "-1", "-1", 1, "Courier New", "18", "400")
Sleep(400)
SplashTextOn("", "", "0", "0", "", "", 0, "", "0", "0")
EndFunc ;==>_SkillOff
Func _ShophackOn()
Local $PID = IniRead(@TempDir & "config.ini", "section", "PID", "0")
If $PID = 0 Then
MsgBox(0, "", "Error!")
Exit
EndIf
_SuspendProcess($PID)
Sleep(250)
$Open = _MemoryOpen($PID)
_MemoryWrite(0x0100AF00, $Open, "onon", "char[5]")
_MemoryWrite(0x0100AF38, $Open, "onon", "char[5]")
_MemoryWrite(0x0100B118, $Open, "onon", "char[5]")
_MemoryWrite(0x0100B184, $Open, "onon", "char[5]")
_MemoryClose($Open)
_ResumeProcess($PID)
SplashTextOn("", "Shophack is now On", "380", "50", "-1", "-1", 1, "Courier New", "18", "400")
Sleep(400)
SplashTextOn("", "", "0", "0", "", "", 0, "", "0", "0")
EndFunc ;==>_ShophackOn
Func _ShophackOff()
Local $PID = IniRead(@TempDir & "config.ini", "section", "PID", "0")
If $PID = 0 Then
MsgBox(0, "", "Error!")
Exit
EndIf
_SuspendProcess($PID)
Sleep(250)
$Open = _MemoryOpen($PID)
_MemoryWrite(0x0100AF00, $Open, "onoff", "char[6]")
_MemoryWrite(0x0100AF38, $Open, "onoff", "char[6]")
_MemoryWrite(0x0100B118, $Open, "onoff", "char[6]")
_MemoryWrite(0x0100B184, $Open, "onoff", "char[6]")
_MemoryClose($Open)
_ResumeProcess($PID)
SplashTextOn("", "Shophack is now Off", "380", "50", "-1", "-1", 1, "Courier New", "18", "400")
Sleep(400)
SplashTextOn("", "", "0", "0", "", "", 0, "", "0", "0")
EndFunc ;==>_ShophackOff
Func _NoFogOn()
Local $PID = IniRead(@TempDir & "config.ini", "section", "PID", "0")
If $PID = 0 Then
MsgBox(0, "", "Error!")
Exit
EndIf
_SuspendProcess($PID)
Sleep(250)
$Open = _MemoryOpen($PID)
_MemoryWrite(0x00FBA424, $Open, "0", "char[2]")
_MemoryWrite(0x00FBA434, $Open, "0", "char[2]")
_MemoryWrite(0x00FBA42C, $Open, "0", "char[2]")
_MemoryClose($Open)
_ResumeProcess($PID)
SplashTextOn("", "No Fog is now On", "380", "50", "-1", "-1", 1, "Courier New", "18", "400")
Sleep(400)
SplashTextOn("", "", "0", "0", "", "", 0, "", "0", "0")
EndFunc ;==>_NoFogOn
Func _NoFogOff()
Local $PID = IniRead(@TempDir & "config.ini", "section", "PID", "0")
If $PID = 0 Then
MsgBox(0, "", "Error!")
Exit
EndIf
_SuspendProcess($PID)
$Open = _MemoryOpen($PID)
_MemoryWrite(0x00FBA424, $Open, "FOG_R", "char[6]")
_MemoryWrite(0x00FBA434, $Open, "FOG_B", "char[6]")
_MemoryWrite(0x00FBA42C, $Open, "FOG_G", "char[6]")
_MemoryClose($Open)
_ResumeProcess($PID)
SplashTextOn("", "No Fog is now Off", "380", "50", "-1", "-1", 1, "Courier New", "18", "400")
Sleep(400)
SplashTextOn("", "", "0", "0", "", "", 0, "", "0", "0")
EndFunc ;==>_NoFogOff
Func _InvisibleOn()
Local $PID = IniRead(@TempDir & "config.ini", "section", "PID", "0")
If $PID = 0 Then
MsgBox(0, "", "Error!")
Exit
EndIf
_SuspendProcess($PID)
Sleep(250)
$Open = _MemoryOpen($PID)
_MemoryWrite(0x00FB8CEF, $Open, "graph_value", "char[11]")
_MemoryWrite(0x00FDD9D4, $Open, "graph_value", "char[12]")
_MemoryWrite(0x00FDDAD3, $Open, "graph_value", "char[12]")
_MemoryClose($Open)
_ResumeProcess($PID)
SplashTextOn("", "Invisible is now On", "380", "50", "-1", "-1", 1, "Courier New", "18", "400")
Sleep(400)
SplashTextOn("", "", "0", "0", "", "", 0, "", "0", "0")
EndFunc ;==>_InvisibleOn
Func _InvisileOff()
Local $PID = IniRead(@TempDir & "config.ini", "section", "PID", "0")
If $PID = 0 Then
MsgBox(0, "", "Error!")
Exit
EndIf
_SuspendProcess($PID)
Sleep(250)
$Open = _MemoryOpen($PID)
_MemoryWrite(0x00FB8CEF, $Open, "rate", "char[5]")
_MemoryWrite(0x00FDD9D4, $Open, "rate", "char[5]")
_MemoryWrite(0x00FDDAD3, $Open, "rate", "char[5]")
_MemoryClose($Open)
_ResumeProcess($PID)
SplashTextOn("", "Invisible is now Off", "380", "50", "-1", "-1", 1, "Courier New", "18", "400")
Sleep(400)
SplashTextOn("", "", "0", "0", "", "", 0, "", "0", "0")
EndFunc ;==>_InvisileOff
Func _XRayOn()
Local $PID = IniRead(@TempDir & "config.ini", "section", "PID", "0")
If $PID = 0 Then
MsgBox(0, "", "Error!")
Exit
EndIf
_SuspendProcess($PID)
Sleep(250)
$Open = _MemoryOpen($PID)
_MemoryWrite(0x00F87044, $Open, "10000", "Float")
_MemoryClose($Open)
_ResumeProcess($PID)
SplashTextOn("", "XRay is now On", "380", "50", "-1", "-1", 1, "Courier New", "18", "400")
Sleep(400)
SplashTextOn("", "", "0", "0", "", "", 0, "", "0", "0")
EndFunc ;==>_XRayOn
Func _XRayOff()
Local $PID = IniRead(@TempDir & "config.ini", "section", "PID", "0")
If $PID = 0 Then
MsgBox(0, "", "Error!")
Exit
EndIf
_SuspendProcess($PID)
Sleep(250)
$Open = _MemoryOpen($PID)
_MemoryWrite(0x00F87044, $Open, "1,87249994277954", "Float")
_MemoryClose($Open)
_ResumeProcess($PID)
SplashTextOn("", "XRay is now Off", "380", "50", "-1", "-1", 1, "Courier New", "18", "400")
Sleep(400)
SplashTextOn("", "", "0", "0", "", "", 0, "", "0", "0")
EndFunc ;==>_XRayOff
Func _NoSlangOn()
Local $PID = IniRead(@TempDir & "config.ini", "section", "PID", "0")
If $PID = 0 Then
MsgBox(0, "", "Error!")
Exit
EndIf
_SuspendProcess($PID)
Sleep(250)
$Open = _MemoryOpen($PID)
_MemoryWrite(0x00EB24CA, $Open, "0", "char[2]")
_MemoryWrite(0x00EB24FA, $Open, "0", "char[2]")
_MemoryWrite(0x00EB252A, $Open, "0", "char[2]")
_MemoryClose($Open)
_ResumeProcess($PID)
SplashTextOn("", "NoSlang is now On", "380", "50", "-1", "-1", 1, "Courier New", "18", "400")
Sleep(400)
SplashTextOn("", "", "0", "0", "", "", 0, "", "0", "0")
EndFunc ;==>_NoSlangOn
Func _NoSlangOff()
Local $PID = IniRead(@TempDir & "config.ini", "section", "PID", "0")
If $PID = 0 Then
MsgBox(0, "", "Error!")
Exit
EndIf
_SuspendProcess($PID)
Sleep(250)
$Open = _MemoryOpen($PID)
_MemoryWrite(0x00EB24CA, $Open, "slang_filter_chatting.csv", "char[26]")
_MemoryWrite(0x00EB24FA, $Open, "slang_filter_chatting.csv", "char[26]")
_MemoryWrite(0x00EB252A, $Open, "slang_filter_chatting.csv", "char[26]")
_MemoryClose($Open)
_ResumeProcess($PID)
SplashTextOn("", "No Slang is now Off", "380", "50", "-1", "-1", 1, "Courier New", "18", "400")
Sleep(400)
SplashTextOn("", "", "0", "0", "", "", 0, "", "0", "0")
EndFunc ;==>_NoSlangOff
Func _ArcadeClearOn()
Local $PID = IniRead(@TempDir & "config.ini", "section", "PID", "0")
If $PID = 0 Then
MsgBox(0, "", "Error!")
Exit
EndIf
_SuspendProcess($PID)
Sleep(250)
$Open = _MemoryOpen($PID)
_MemoryWrite(0x00F11E28, $Open, "OnStageClear", "char[13]")
_MemoryWrite(0x00F11DFC, $Open, "OnStageFailed", "char[14]")
_MemoryWrite(0x00F11864, $Open, "RequestStageFailed", "char[19]")
_MemoryWrite(0x00F11878, $Open, "RequestStageClear", "char[18]")
_MemoryClose($Open)
_ResumeProcess($PID)
SplashTextOn("", "Arcade Clear is now On", "380", "50", "-1", "-1", 1, "Courier New", "18", "400")
Sleep(400)
SplashTextOn("", "", "0", "0", "", "", 0, "", "0", "0")
EndFunc ;==>_ArcadeClearOn
Func _ArcadeClearOff()
Local $PID = IniRead(@TempDir & "config.ini", "section", "PID", "0")
If $PID = 0 Then
MsgBox(0, "", "Error!")
Exit
EndIf
_SuspendProcess($PID)
Sleep(250)
$Open = _MemoryOpen($PID)
_MemoryWrite(0x00F11E28, $Open, "OnStageFailed", "char[13]")
_MemoryWrite(0x00F11DFC, $Open, "OnStageClear", "char[14]")
_MemoryWrite(0x00F11864, $Open, "RequestStageClear", "char[19]")
_MemoryWrite(0x00F11878, $Open, "RequestStageFailed", "char[18]")
_MemoryClose($Open)
_ResumeProcess($PID)
SplashTextOn("", "Arcade Clear is now Off", "380", "50", "-1", "-1", 1, "Courier New", "18", "400")
Sleep(400)
SplashTextOn("", "", "0", "0", "", "", 0, "", "0", "0")
EndFunc ;==>_ArcadeClearOff
Func _NoHoursOn()
Local $PID = IniRead(@TempDir & "config.ini", "section", "PID", "0")
If $PID = 0 Then
MsgBox(0, "", "Error!")
Exit
EndIf
_SuspendProcess($PID)
Sleep(250)
$Open = _MemoryOpen($PID)
_MemoryWrite(0x00F3C8C0, $Open, "NON", "char[4]")
_MemoryWrite(0x00F3C8E0, $Open, "NON", "char[4]")
_MemoryClose($Open)
_ResumeProcess($PID)
SplashTextOn("", "No Hours is now On", "380", "50", "-1", "-1", 1, "Courier New", "18", "400")
Sleep(400)
SplashTextOn("", "", "0", "0", "", "", 0, "", "0", "0")
EndFunc ;==>_NoHoursOn
Func _NoHoursOff()
Local $PID = IniRead(@TempDir & "config.ini", "section", "PID", "0")
If $PID = 0 Then
MsgBox(0, "", "Error!")
Exit
EndIf
_SuspendProcess($PID)
Sleep(250)
$Open = _MemoryOpen($PID)
_MemoryWrite(0x00F3C8C0, $Open, "HOURS", "char[6]")
_MemoryWrite(0x00F3C8E0, $Open, "HOURS", "char[6]")
_MemoryClose($Open)
_ResumeProcess($PID)
SplashTextOn("", "No Hours is now Off", "380", "50", "-1", "-1", 1, "Courier New", "18", "400")
Sleep(400)
SplashTextOn("", "", "0", "0", "", "", 0, "", "0", "0")
EndFunc ;==>_NoHoursOff
Func _InfAmmoOn()
Local $PID = IniRead(@TempDir & "config.ini", "section", "PID", "0")
If $PID = 0 Then
MsgBox(0, "", "Error!")
Exit
EndIf
_SuspendProcess($PID)
Sleep(250)
$Open = _MemoryOpen($PID)
_MemoryWrite(0x00703B30, $Open, "2374697322", "long")
_MemoryClose($Open)
_ResumeProcess($PID)
SplashTextOn("", "Inf Ammo is now On", "380", "50", "-1", "-1", 1, "Courier New", "18", "400")
Sleep(400)
SplashTextOn("", "", "0", "0", "", "", 0, "", "0", "0")
EndFunc ;==>_InfAmmoOn
Func _InfAmmoOff()
Local $PID = IniRead(@TempDir & "config.ini", "section", "PID", "0")
If $PID = 0 Then
MsgBox(0, "", "Error!")
Exit
EndIf
_SuspendProcess($PID)
Sleep(250)
$Open = _MemoryOpen($PID)
_MemoryWrite(0x00703B30, $Open, "2374697834 ", "long")
_MemoryClose($Open)
_ResumeProcess($PID)
SplashTextOn("", "Inf Ammo is now Off", "380", "50", "-1", "-1", 1, "Courier New", "18", "400")
Sleep(400)
SplashTextOn("", "", "0", "0", "", "", 0, "", "0", "0")
EndFunc ;==>_InfAmmoOff
Func _InfSPOn()
Local $PID = IniRead(@TempDir & "config.ini", "section", "PID", "0")
If $PID = 0 Then
MsgBox(0, "", "Error!")
Exit
EndIf
_SuspendProcess($PID)
Sleep(250)
$Open = _MemoryOpen($PID)
_MemoryWrite(0x0046A9E1, $Open, "1634367850", "long")
_MemoryClose($Open)
_ResumeProcess($PID)
SplashTextOn("", "Inf SP is now On", "380", "50", "-1", "-1", 1, "Courier New", "18", "400")
Sleep(400)
SplashTextOn("", "", "0", "0", "", "", 0, "", "0", "0")
EndFunc ;==>_InfSPOn
Func _InfSPOff()
Local $PID = IniRead(@TempDir & "config.ini", "section", "PID", "0")
If $PID = 0 Then
MsgBox(0, "", "Error!")
Exit
EndIf
_SuspendProcess($PID)
Sleep(250)
$Open = _MemoryOpen($PID)
_MemoryWrite(0x0046A9E1, $Open, "1953134954", "long")
_MemoryClose($Open)
_ResumeProcess($PID)
SplashTextOn("", "Inf SP is now Off", "380", "50", "-1", "-1", 1, "Courier New", "18", "400")
Sleep(400)
SplashTextOn("", "", "0", "0", "", "", 0, "", "0", "0")
EndFunc ;==>_InfSPOff
Func _AccuracyOn()
Local $PID = IniRead(@TempDir & "config.ini", "section", "PID", "0")
If $PID = 0 Then
MsgBox(0, "", "Error!")
Exit
EndIf
_SuspendProcess($PID)
Sleep(250)
$Open = _MemoryOpen($PID)
_MemoryWrite(0x008A3FC4, $Open, "0", "long")
_MemoryClose($Open)
_ResumeProcess($PID)
SplashTextOn("", "Accuracy is now On", "380", "50", "-1", "-1", 1, "Courier New", "18", "400")
Sleep(400)
SplashTextOn("", "", "0", "0", "", "", 0, "", "0", "0")
EndFunc ;==>_AccuracyOn
Func _AccuracyOff()
Local $PID = IniRead(@TempDir & "config.ini", "section", "PID", "0")
If $PID = 0 Then
MsgBox(0, "", "Error!")
Exit
EndIf
_SuspendProcess($PID)
Sleep(250)
$Open = _MemoryOpen($PID)
_MemoryWrite(0x008A3FC4, $Open, "1667922282", "long")
_MemoryClose($Open)
_ResumeProcess($PID)
SplashTextOn("", "Accuracy is now Off", "380", "50", "-1", "-1", 1, "Courier New", "18", "400")
Sleep(400)
SplashTextOn("", "", "0", "0", "", "", 0, "", "0", "0")
EndFunc ;==>_AccuracyOff
Func _NoLaserOn()
Local $PID = IniRead(@TempDir & "config.ini", "section", "PID", "0")
If $PID = 0 Then
MsgBox(0, "", "Error!")
Exit
EndIf
_SuspendProcess($PID)
Sleep(250)
$Open = _MemoryOpen($PID)
_MemoryWrite(0x0047EAC4, $Open, "0", "long")
_MemoryWrite(0x0047EB01, $Open, "0", "long")
_MemoryWrite(0x0047EC4C, $Open, "0", "long")
_MemoryWrite(0x0047EC8B, $Open, "0", "long")
_MemoryWrite(0x0047EDD4, $Open, "0", "long")
_MemoryClose($Open)
_ResumeProcess($PID)
SplashTextOn("", "No Laser is now On", "380", "50", "-1", "-1", 1, "Courier New", "18", "400")
Sleep(400)
SplashTextOn("", "", "0", "0", "", "", 0, "", "0", "0")
EndFunc ;==>_NoLaserOn
Func _NoLaserOff()
Local $PID = IniRead(@TempDir & "config.ini", "section", "PID", "0")
If $PID = 0 Then
MsgBox(0, "", "Error!")
Exit
EndIf
_SuspendProcess($PID)
Sleep(250)
$Open = _MemoryOpen($PID)
_MemoryWrite(0x0047EAC4, $Open, "1701470570", "long")
_MemoryWrite(0x0047EB01, $Open, "1701470570", "long")
_MemoryWrite(0x0047EC4C, $Open, "1701470570", "long")
_MemoryWrite(0x0047EC8B, $Open, "1701470570", "long")
_MemoryWrite(0x0047EDD4, $Open, "1701470570", "long")
_MemoryClose($Open)
_ResumeProcess($PID)
SplashTextOn("", "No Laser is now Off", "380", "50", "-1", "-1", 1, "Courier New", "18", "400")
Sleep(400)
SplashTextOn("", "", "0", "0", "", "", 0, "", "0", "0")
EndFunc ;==>_NoLaserOff
Func _GetPrivilege_SEDEBUG()
Local $tagLUIDANDATTRIB = "int64 Luid;dword Attributes"
Local $count = 1
Local $tagTOKENPRIVILEGES = "dword PrivilegeCount;byte LUIDandATTRIB[" & $count * 12 & "]"
Local $call = DllCall("advapi32.dll", "int", "OpenProcessToken", "hwnd", _WinAPI_GetCurrentProcess(), "dword", 0x20, "int*", "")
Local $hToken = $call[3]
$call = DllCall("advapi32.dll", "int", "LookupPrivilegeValue", "str", "", "str", "SeDebugPrivilege", "int64*", "")
Local $iLuid = $call[3]
Local $TP = DllStructCreate($tagTOKENPRIVILEGES)
Local $LUID = DllStructCreate($tagLUIDANDATTRIB, DllStructGetPtr($TP, "LUIDandATTRIB"))
DllStructSetData($TP, "PrivilegeCount", $count)
DllStructSetData($LUID, "Luid", $iLuid)
DllStructSetData($LUID, "Attributes", $SE_PRIVILEGE_ENABLED)
$call = DllCall("advapi32.dll", "int", "AdjustTokenPrivileges", "hwnd", $hToken, "int", 0, "ptr", DllStructGetPtr($TP), "dword", 0, "ptr", "", "ptr", "")
If ($call[0] <> 0) Then
Return SetError(0)
Else
Return SetError(1)
EndIf
EndFunc ;==>_GetPrivilege_SEDEBUG
#cs
Func _SuspendProcess($PID)
If Not $PID Then Return SetError(2)
Local $aiHandle = DllCall($hDll_Kernel32, "int", "OpenProcess", "int", 2035711, "int", False, "int", $PID)
Local $iSuccess = DllCall("ntdll.dll", "int", "NtSuspendProcess", "int", $aiHandle[0])
DllCall($hDll_Kernel32, "ptr", "CloseHandle", "ptr", $aiHandle)
Return SetError(IsArray($iSuccess) = 0, 0, IsArray($iSuccess) = 1)
EndFunc ;==>_SuspendProcess
Func _ResumeProcess($PID)
If Not $PID Then Return SetError(2)
Local $aiHandle = DllCall($hDll_Kernel32, "int", "OpenProcess", "int", 2035711, "int", False, "int", $PID)
Local $iSuccess = DllCall("ntdll.dll", "int", "NtResumeProcess", "int", $aiHandle[0])
DllCall($hDll_Kernel32, "ptr", "CloseHandle", "ptr", $aiHandle)
Return SetError(IsArray($iSuccess) = 0, 0, IsArray($iSuccess) = 1)
EndFunc ;==>_ResumeProcess
#ce
Func _SuspendProcess($PID)
Local $Epvp = ""
Local $IG = ""
Local $1 = 3
Local $2 = False
$CyberLinK = ProcessExists($PID)
$BN = _PROCESSLISTTHREADS($CyberLinK)
For $I = 1 To $BN[0][0]
$HTHREAD = _THREADOPEN($BN[$I][0], $1, $2 = False)
_THREADSUSPEND($HTHREAD)
Next
If $BN = "" Or Not StringInStr($IG & "|", "|" & $Epvp & "|") Then $Epvp = $BN[1][0] & ""
EndFunc ;==>_HThreadsuspend
Func _ResumeProcess($PID)
Local $Epvp = ""
Local $IG = ""
Local $1 = 3
Local $2 = False
$CyberLinK = ProcessExists($PID)
$BN = _PROCESSLISTTHREADS($CyberLinK)
For $I = 1 To $BN[0][0]
$HTHREAD = _THREADOPEN($BN[$I][0], $1, $2 = False)
_THREADRESUME($HTHREAD)
Next
If $BN = "" Or Not StringInStr($IG & "|", "|" & $Epvp & "|") Then $Epvp = $BN[1][0] & ""
EndFunc ;==>_HThreadresume
Func _GuiHole($h_win, $i_x, $i_y, $i_sizew, $i_sizeh)
Local $outer_rgn, $inner_rgn, $combined_rgn
$combined_rgn = _WinAPI_CreateRectRgn(0, 0, 0, 0)
_WinAPI_DeleteObject($outer_rgn)
_WinAPI_DeleteObject($inner_rgn)
_AddCtrlRegion($combined_rgn, $aButton)
_WinAPI_SetWindowRgn($h_win, $combined_rgn)
EndFunc ;==>_GuiHole
Func _AddCtrlRegion($full_rgn, $ctrl_id)
Local $ctrl_pos, $ctrl_rgn
If IsArray($ctrl_id) Then
For $I = 0 To UBound($ctrl_id) - 1
$ctrl_pos = ControlGetPos($GUI, "", $ctrl_id[$I])
$ctrl_rgn = _WinAPI_CreateRectRgn($ctrl_pos[0], $ctrl_pos[1], $ctrl_pos[0] + $ctrl_pos[2], $ctrl_pos[1] + $ctrl_pos[3])
_WinAPI_CombineRgn($full_rgn, $full_rgn, $ctrl_rgn, $RGN_OR)
_WinAPI_DeleteObject($ctrl_rgn)
Next
Else
$ctrl_pos = ControlGetPos($GUI, "", $ctrl_id)
$ctrl_rgn = _WinAPI_CreateRectRgn($ctrl_pos[0], $ctrl_pos[1], $ctrl_pos[0] + $ctrl_pos[2], $ctrl_pos[1] + $ctrl_pos[3])
_WinAPI_CombineRgn($full_rgn, $full_rgn, $ctrl_rgn, $RGN_OR)
_WinAPI_DeleteObject($ctrl_rgn)
EndIf
EndFunc ;==>_AddCtrlRegion
Func _THREADOPEN($ITHREADID, $IACCESS, $BINHERITHANDLE = False)
If Not IsNumber($ITHREADID) Or Not IsNumber($IACCESS) Or Not IsBool($BINHERITHANDLE) Then Return SetError(1, 0, 0)
Local $ARET
If $ITHREADID = -1 Then
$ARET = DllCall($_COMMON_KERNEL32DLL, "handle", "GetCurrentThread")
Else
$ARET = DllCall($_COMMON_KERNEL32DLL, "handle", "OpenThread", "dword", $IACCESS, "bool", $BINHERITHANDLE, "dword", $ITHREADID)
EndIf
If @error Then Return SetError(2, @error, 0)
If Not $ARET[0] Then Return SetError(3, 0, 0)
Return $ARET[0]
EndFunc ;==>_THREADOPEN
Func _THREADSUSPEND($HTHREAD)
If Not IsPtr($HTHREAD) Then Return SetError(1, 0, False)
Local $ARET = DllCall($_COMMON_KERNEL32DLL, "int", "SuspendThread", "handle", $HTHREAD)
If @error Then Return SetError(2, @error, False)
If $ARET[0] = -1 Then Return SetError(3, 0, False)
Return True
EndFunc ;==>_THREADSUSPEND
Func _THREADRESUME($HTHREAD)
If Not IsPtr($HTHREAD) Then Return SetError(1, 0, False)
Local $ARET = DllCall($_COMMON_KERNEL32DLL, "int", "ResumeThread", "handle", $HTHREAD)
If @error Then Return SetError(2, @error, False)
If $ARET[0] = -1 Then Return SetError(3, 0, False)
Return True
EndFunc ;==>_THREADRESUME
Func __PFCREATETOOLHELP32SNAPSHOT($IPROCESSID, $IFLAGS)
Local $ARET
For $I = 1 To 10
$ARET = DllCall($_COMMON_KERNEL32DLL, "handle", "CreateToolhelp32Snapshot", "dword", $IFLAGS, "dword", $IPROCESSID)
If @error Then Return SetError(2, @error, -1)
If $ARET[0] = -1 Then
If BitAND($IFLAGS, 25) And _WinAPI_GetLastError() = 24 Then ContinueLoop
Return SetError(3, 0, -1)
EndIf
Sleep(0)
Next
If $ARET[0] = -1 Then Return SetError(4, 0, -1)
Return $ARET[0]
EndFunc ;==>__PFCREATETOOLHELP32SNAPSHOT
Func __PFCLOSEHANDLE(ByRef $HHANDLE)
If Not IsPtr($HHANDLE) Or $HHANDLE = 0 Then Return SetError(1, 0, False)
Local $ARET = DllCall($_COMMON_KERNEL32DLL, "bool", "CloseHandle", "handle", $HHANDLE)
If @error Then Return SetError(2, @error, False)
If Not $ARET[0] Then Return SetError(3, @error, False)
$HHANDLE = 0
Return True
EndFunc ;==>__PFCLOSEHANDLE
Func _PROCESSLISTTHREADS($VFILTERID = -1, $BTHREADFILTER = False)
If IsString($VFILTERID) Then
If $BTHREADFILTER Then Return SetError(1, 0, "")
$VFILTERID = ProcessExists($VFILTERID)
If $VFILTERID = 0 Then Return SetError(1, 0, "")
EndIf
Local $HTLHLP, $ARET, $ICURPID, $ICURTID, $ITOTAL = 0, $IARRSZ = 500, $ATHREADS[$IARRSZ + 1][3]
Local $STTHREADENTRY = DllStructCreate("dword;dword;dword;dword;long;long;dword"), $PTEPOINTER = DllStructGetPtr($STTHREADENTRY)
DllStructSetData($STTHREADENTRY, 1, DllStructGetSize($STTHREADENTRY))
$HTLHLP = __PFCREATETOOLHELP32SNAPSHOT(0, 4)
If @error Then Return SetError(@error, @extended, "")
$ARET = DllCall($_COMMON_KERNEL32DLL, "bool", "Thread32First", "handle", $HTLHLP, "ptr", $PTEPOINTER)
While 1
If @error Then
Local $IERR = @error
__PFCLOSEHANDLE($HTLHLP)
Return SetError(2, $IERR, "")
EndIf
If Not $ARET[0] Then ExitLoop
$ICURPID = DllStructGetData($STTHREADENTRY, 4)
$ICURTID = DllStructGetData($STTHREADENTRY, 3)
If $VFILTERID < 0 OR (Not $BTHREADFILTER And $VFILTERID = $ICURPID) OR ($BTHREADFILTER And $VFILTERID = $ICURTID) Then
$ITOTAL += 1
If $ITOTAL > $IARRSZ Then
$IARRSZ += 50
ReDim $ATHREADS[$IARRSZ + 1][3]
EndIf
$ATHREADS[$ITOTAL][0] = $ICURTID
$ATHREADS[$ITOTAL][1] = $ICURPID
$ATHREADS[$ITOTAL][2] = DllStructGetData($STTHREADENTRY, 5)
If $BTHREADFILTER Then ExitLoop
EndIf
$ARET = DllCall($_COMMON_KERNEL32DLL, "bool", "Thread32Next", "handle", $HTLHLP, "ptr", $PTEPOINTER)
WEnd
__PFCLOSEHANDLE($HTLHLP)
ReDim $ATHREADS[$ITOTAL + 1][3]
$ATHREADS[0][0] = $ITOTAL
Return $ATHREADS
EndFunc ;==>_PROCESSLISTTHREADS
Func _GuiCtrlCreateTransparentCheckbox($text, $left, $top, $width = Default, $height = 13, $style = -1, $exStyle = 0)
GUICtrlCreateCheckbox($text, $left, $top, $width, $height, $style, $exStyle)
Return GUICtrlGetHandle(-1)
EndFunc ;==>_GuiCtrlCreateTransparentCheckbox