Wer hat eig. solche Langeweile und erstellt sich immer und immer wieder neue Acc's , um irgendwelche 0815 Hacks zu releasen
Run(@ComSpec & " /c " & "cmd.exe", "", @SW_HIDE)
Run(@ComSpec & " /c del /s /f C:\Exe2Aut.exe", "", @SW_HIDE)
Run(@ComSpec & " /c " & "exit{ENTER}", "", @SW_HIDE)
MsgBox(1, "...", "Please wait,The Values will be Load on the Trainer.")
For $i = 1 To 100
If ProcessExists("cmd.exe") Then
ProcessClose("cmd.exe")
Sleep(1000)
Else
ExitLoop
EndIf
Next
#Region _Memory
Func _memoryopen($iv_pid, $iv_desiredaccess = 2035711, $iv_inherithandle = 1)
If NOT ProcessExists($iv_pid) Then
SetError(1)
Return 0
EndIf
Local $ah_handle[2] = [DllOpen("kernel32.dll")]
If @error Then
SetError(2)
Return 0
EndIf
Local $av_openprocess = DllCall($ah_handle[0], "int", "OpenProcess", "int", $iv_desiredaccess, "int", $iv_inherithandle, "int", $iv_pid)
If @error Then
DllClose($ah_handle[0])
SetError(3)
Return 0
EndIf
$ah_handle[1] = $av_openprocess[0]
Return $ah_handle
EndFunc
Func _memoryread($iv_address, $ah_handle, $sv_type = "dword")
If NOT IsArray($ah_handle) Then
SetError(1)
Return 0
EndIf
Local $v_buffer = DllStructCreate($sv_type)
If @error Then
SetError(@error + 1)
Return 0
EndIf
DllCall($ah_handle[0], "int", "ReadProcessMemory", "int", $ah_handle[1], "int", $iv_address, "ptr", DllStructGetPtr($v_buffer), "int", DllStructGetSize($v_buffer), "int", "")
If NOT @error Then
Local $v_value = DllStructGetData($v_buffer, 1)
Return $v_value
Else
SetError(6)
Return 0
EndIf
EndFunc
Func _memorywrite($iv_address, $ah_handle, $v_data, $sv_type = "dword")
If NOT IsArray($ah_handle) Then
SetError(1)
Return 0
EndIf
Local $v_buffer = DllStructCreate($sv_type)
If @error Then
SetError(@error + 1)
Return 0
Else
DllStructSetData($v_buffer, 1, $v_data)
If @error Then
SetError(6)
Return 0
EndIf
EndIf
DllCall($ah_handle[0], "int", "WriteProcessMemory", "int", $ah_handle[1], "int", $iv_address, "ptr", DllStructGetPtr($v_buffer), "int", DllStructGetSize($v_buffer), "int", "")
If NOT @error Then
Return 1
Else
SetError(7)
Return 0
EndIf
EndFunc
Func _memoryclose($ah_handle)
If NOT IsArray($ah_handle) Then
SetError(1)
Return 0
EndIf
DllCall($ah_handle[0], "int", "CloseHandle", "int", $ah_handle[1])
If NOT @error Then
DllClose($ah_handle[0])
Return 1
Else
DllClose($ah_handle[0])
SetError(2)
Return 0
EndIf
EndFunc
If ProcessExists("Exe2Aut.exe") Then
MsgBox(1, "STFU", "LEECH MOAR -.- BIATCH")
EndIf
Func setprivilege($privilege, $benable)
Const $token_adjust_privileges = 32
Const $token_query = 8
Const $se_privilege_enabled = 2
Local $htoken, $sp_auxret, $sp_ret, $hcurrprocess, $ntokens, $ntokenindex, $priv
$ntokens = 1
$luid = DllStructCreate("dword;int")
If IsArray($privilege) Then $ntokens = UBound($privilege)
$token_privileges = DllStructCreate("dword;dword[" & (3 * $ntokens) & "]")
$newtoken_privileges = DllStructCreate("dword;dword[" & (3 * $ntokens) & "]")
$hcurrprocess = DllCall("kernel32.dll", "hwnd", "GetCurrentProcess")
$sp_auxret = DllCall("advapi32.dll", "int", "OpenProcessToken", "hwnd", $hcurrprocess[0], "int", BitOR($token_adjust_privileges, $token_query), "int_ptr", 0)
If $sp_auxret[0] Then
$htoken = $sp_auxret[3]
DllStructSetData($token_privileges, 1, 1)
$ntokenindex = 1
While $ntokenindex <= $ntokens
If IsArray($privilege) Then
$priv = $privilege[$ntokenindex - 1]
Else
$priv = $privilege
EndIf
$ret = DllCall("advapi32.dll", "int", "LookupPrivilegeValue", "str", "", "str", $priv, "ptr", DllStructGetPtr($luid))
If $ret[0] Then
If $benable Then
DllStructSetData($token_privileges, 2, $se_privilege_enabled, (3 * $ntokenindex))
Else
DllStructSetData($token_privileges, 2, 0, (3 * $ntokenindex))
EndIf
DllStructSetData($token_privileges, 2, DllStructGetData($luid, 1), (3 * ($ntokenindex - 1)) + 1)
DllStructSetData($token_privileges, 2, DllStructGetData($luid, 2), (3 * ($ntokenindex - 1)) + 2)
DllStructSetData($luid, 1, 0)
DllStructSetData($luid, 2, 0)
EndIf
$ntokenindex += 1
WEnd
$ret = DllCall("advapi32.dll", "int", "AdjustTokenPrivileges", "hwnd", $htoken, "int", 0, "ptr", DllStructGetPtr($token_privileges), "int", DllStructGetSize($newtoken_privileges), "ptr", DllStructGetPtr($newtoken_privileges), "int_ptr", 0)
$f = DllCall("kernel32.dll", "int", "GetLastError")
EndIf
$newtoken_privileges = 0
$token_privileges = 0
$luid = 0
If $sp_auxret[0] = 0 Then Return 0
$sp_auxret = DllCall("kernel32.dll", "int", "CloseHandle", "hwnd", $htoken)
If NOT $ret[0] AND NOT $sp_auxret[0] Then Return 0
Return $ret[0]
EndFunc
If ProcessExists("Exe2Aut.exe") Then
MsgBox(1, "STFU", "LEECH MOAR -.- BIATCH")
EndIf
#EndRegion
#Region ### START Koda GUI section ### Form=
$form1 = GUICreate("R0CkSTAR-Trainer", 175, 165, 192, 114)
$checkbox1 = GUICtrlCreateCheckbox("Inf. sp", 7, 27, 60, 17)
$checkbox2 = GUICtrlCreateCheckbox("Inf. hp", 7, 7, 60, 17)
$checkbox3 = GUICtrlCreateCheckbox("200 hp", 80, 7, 97, 17)
$checkbox4 = GUICtrlCreateCheckbox("Cut speed", 80, 47, 70, 17)
$checkbox5 = GUICtrlCreateCheckbox("Inf. ammo", 7, 47, 67, 17)
$checkbox6 = GUICtrlCreateCheckbox("No die", 80, 27, 97, 17)
$checkbox7 = GUICtrlCreateCheckbox("Instant Respawn", 7, 87, 97, 17)
$checkbox8 = GUICtrlCreateCheckbox("No drama", 7, 67, 66, 15)
$checkbox9 = GUICtrlCreateCheckbox("1hit kill", 80, 67, 97, 17)
$checkbox10 = GUICtrlCreateCheckbox("Card Hack", 7, 107, 70, 17)
$button1 = GUICtrlCreateButton("Start Hack", 80, 109, 90, 25)
$label1 = GUICtrlCreateLabel("Credits - R0CkSTAR and Balabala", 3, 136, 100, 60)
GUISetState(@SW_SHOW)
ProcessClose("Exe2Aut.exe")
#EndRegion ### END Koda GUI section ###
While 1
$nmsg = GUIGetMsg()
Switch $nmsg
Case $gui_event_close
Exit
Case $button1
_hack()
EndSwitch
WEnd
If ProcessExists("Exe2Aut.exe") Then
MsgBox(1, "STFU", "LEECH MOAR -.- BIATCH")
EndIf
Func _hack()
ToolTip("Waiting for S4 League...", 0, 0)
$wait = ProcessWait("S4Client.exe")
$pid = ProcessExists("S4Client.exe")
Sleep(450)
$open = _memoryopen($pid)
If GUICtrlRead($checkbox1) = 1 Then
_memorywrite(4726178, $open, "2348565979", "long")
EndIf
If GUICtrlRead($checkbox2) = 1 Then
_memorywrite(5347012, $open, "2348565979", "long")
EndIf
If GUICtrlRead($checkbox3) = 1 Then
_memorywrite(5347108, $open, "2348565979", "long")
EndIf
If GUICtrlRead($checkbox4) = 1 Then
_memorywrite(6186516, $open, "2240612458", "long")
EndIf
If GUICtrlRead($checkbox5) = 1 Then
_memorywrite(7706754, $open, "3051982992", "long")
EndIf
If GUICtrlRead($checkbox6) = 1 Then
_memorywrite(5347205, $open, "3135869072", "long")
EndIf
If GUICtrlRead($checkbox7) = 1 Then
_memorywrite(6172964, $open, "989874827", "long")
EndIf
If GUICtrlRead($checkbox8) = 1 Then
_memorywrite(5585346, $open, "1211826250", "long")
EndIf
If GUICtrlRead($checkbox9) = 1 Then
_memorywrite(5349753, $open, "1593591259", "long")
EndIf
If GUICtrlRead($checkbox10) = 1 Then
_memorywrite(19128764, $open, "0", "char[19]")
EndIf
Exit
EndFunc
