Hallo Community,
Ich habe ein kleines Problem. In meinem S4 League Trainer sorgt irgendwas dafür das die Memorys in S4 League nicht "überarbeitet wird". (Kann das grade nicht richtig ausdrücken ^^') jedenfalls hier der Code:
Währe nett, wenn mir jemand sagen könnte, wieso der nicht funktionier ^^'. P.s. Die Adressen sollten die richtigen sein. Habe es mit, hex und dezimal probiert. Ist jetzt in dem Code dezimal.(oder mach ich doch was falsch ? )
Vielen dank im vorraus
Ich habe ein kleines Problem. In meinem S4 League Trainer sorgt irgendwas dafür das die Memorys in S4 League nicht "überarbeitet wird". (Kann das grade nicht richtig ausdrücken ^^') jedenfalls hier der Code:
Code:
#RequireAdmin
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Crypt.au3>
#include <StaticConstants.au3>
#include <Sound.au3>
#include <NomadMemory.au3>
#include <EPVP_HWID.au3>
MsgBox(48,"Please wait!", "I will check that you give an thanks me.")
$szxURL = 'http://www.elitepvpers.com/forum/s4-league-hacks-bots-cheats-exploits/3087795-release-s4l-mini-ingame.html' ;Test URL
Dim $a_szIgnoredIds[1] = ['x'] ;eigene UserID, Ausnahmen, etc.
_CheckThanks('', $szxURL, $a_szIgnoredIds)
Switch @error
Case 7
If MsgBox(52, 'Error ',' A Thanks would be desirable! open thread?') == 6 Then ShellExecute($szxURL)
Exit
Case Else
MsgBox(48, 'Danke', 'Thanks Have Fun!')
EndSwitch
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("[Team FTW] Have Fun Hack", 660, 452, -1, -1)
GUISetCursor (3)
$Label1 = GUICtrlCreateLabel("By Official Di!mar ", 560, 432, 87, 17)
GUICtrlSetColor(-1, 0x008080)
GUICtrlSetBkColor(-1, 0x000000)
$Button1 = GUICtrlCreateButton("Start", 326, 367,100, 50)
GUICtrlSetCursor (-1, 0)
$Button2 = GUICtrlCreateButton("Exit", 226, 367, 100, 50)
GUICtrlSetCursor (-1, 0)
$Checkbox9 = GUICtrlCreateCheckbox("God Mode", 40, 120, 97, 17)
$Checkbox14 = GUICtrlCreateCheckbox("1 hit kill", 40, 168, 97, 17)
$Checkbox8 = GUICtrlCreateCheckbox("Channel no lvl", 466, 144, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("****", 160, 120, 97, 17)
$Checkbox13 = GUICtrlCreateCheckbox("Block HP", 160, 168, 97, 17)
$Checkbox1 = GUICtrlCreateCheckbox("200HP", 106, 144, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Inf sp", 280, 120, 97, 17)
$Checkbox11 = GUICtrlCreateCheckbox("Bind Range", 280, 168, 97, 17)
$Checkbox4 = GUICtrlCreateCheckbox("Damage x2", 226, 144, 97, 17)
$Checkbox5 = GUICtrlCreateCheckbox("H.Riffle no fail", 400, 120, 97, 17)
$Checkbox10 = GUICtrlCreateCheckbox("Inf Amo", 400, 168, 97, 17)
$Checkbox6 = GUICtrlCreateCheckbox("No laser", 346, 144, 97, 17)
$Checkbox7 = GUICtrlCreateCheckbox("WallJump teleport", 520, 120, 99, 17)
$Checkbox12 = GUICtrlCreateCheckbox("Instant Respawn", 520, 168, 99, 17)
$Slider1 = GUICtrlCreateSlider(32, 345, 99, 25)
$Button3 = GUICtrlCreateButton("Set Volume", 32, 367, 99, 15, 0)
GUICheckBoxSetColor($Checkbox1,0x000000,$GUI_BKCOLOR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox2,0x000000,$GUI_BKCOLOR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox3,0x000000,$GUI_BKCOLOR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox4,0x000000,$GUI_BKCOLOR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox5,0x000000,$GUI_BKCOLOR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox6,0x000000,$GUI_BKCOLOR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox7,0x000000,$GUI_BKCOLOR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox8,0x000000,$GUI_BKCOLOR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox9,0x000000,$GUI_BKCOLOR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox10,0x000000,$GUI_BKCOLOR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox11,0x000000,$GUI_BKCOLOR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox12,0x000000,$GUI_BKCOLOR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox13,0x000000,$GUI_BKCOLOR_TRANSPARENT )
GUICheckBoxSetColor($Checkbox14,0x000000,$GUI_BKCOLOR_TRANSPARENT )
_WinFade_BK($Form1, "in")
$Pic1 = GUICtrlCreatePic("main\ftw11.jpg", 0, -8, 660, 113)
$Pic2 = GUICtrlCreatePic("main\Addictive-Computer-Have-fun_www.FullHDWpp.com_.jpg", 0, 104, 660, 348)
$handle = _SoundOpen(@ScriptDir & "\Dreaming.mp3")
_SoundPlay($handle)
SoundSetWaveVolume(40)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
MsgBox(4096, "03.03.2014", "Script By : D!eMar//xLoader", 0)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $button2
Exit
Case $GUI_EVENT_CLOSE
Exit
Case $button1
_something()
Case $Button3
$Read=GUICtrlRead($Slider1)
ToolTip($Read)
SoundSetWaveVolume($Read)
EndSwitch
WEnd
Func GUICheckBoxSetColor(ByRef $CtrlID,$iColor,$iBkColor="0xF1EDED")
$CtrlHWnd = $CtrlID
If Not IsHWnd($CtrlHWnd) Then $CtrlHWnd = GUICtrlGetHandle($CtrlID)
$aParent = DllCall("user32.dll", "hwnd", "GetParent", "hwnd", $CtrlHWnd)
$aCPos = ControlGetPos($aParent[0],"",$CtrlID)
$sOldT = GUICtrlRead($CtrlID,1)
GUICtrlDelete($CtrlID)
DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 0)
$CtrlID = GUICtrlCreateCheckbox($sOldT,$aCPos[0],$aCPos[1],$aCPos[2],$aCPos[3])
GUICtrlSetColor(-1,$iColor)
GUICtrlSetBkColor(-1,$iBkColor)
DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 7)
EndFunc
Func _WinFade_BK($WinTitle, $Fade = "out", $BkColor = "", $iTime = 250, $Exit = True)
If $Fade = "in" Then
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $WinTitle, "int", 1000, "long", 0x00080000)
ElseIf $Fade = "out" or $Fade = "" Then
If Not $BkColor = "" Then
GUISetBkColor($BkColor)
EndIf
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $WinTitle, "int", $iTime, "long", 0x00090000)
Exit
EndIf
EndFunc
Func _something()
ToolTip("Waiting for S4Client...", 0, 0)
$wait = ProcessWait("S4Client.exe")
$pid = ProcessExists("S4Client.exe")
Sleep(1000)
$open = _memoryopen($pid)
If GUICtrlRead($checkbox1) = 1 Then
_memorywrite(5414004, $open, "1166868842", "long")
EndIf
If GUICtrlRead($checkbox2) = 1 Then
_memorywrite(7945525, $open, "2374697578", "long")
EndIf
If GUICtrlRead($checkbox3) = 1 Then
_memorywrite(4772306, $open, "2348565979", "long")
EndIf
If GUICtrlRead($checkbox4) = 1 Then
_memorywrite(4919227, $open, "1300955754", "long")
EndIf
If GUICtrlRead($checkbox5) = 1 Then
_memorywrite(15179559, $open, "2348565979", "long")
EndIf
If GUICtrlRead($checkbox6) = 1 Then
_memorywrite(5421333, $open, "1301115242", "long")
EndIf
If GUICtrlRead($checkbox7) = 1 Then
_memorywrite(4773609, $open, "3641722331", "long")
EndIf
If GUICtrlRead($checkbox8) = 1 Then
_memorywrite(10549654, $open, "837533829", "long")
EndIf
If GUICtrlRead($checkbox9) = 1 Then
_memorywrite(5414101, $open, "1592365200", "long")
EndIf
If GUICtrlRead($checkbox10) = 1 Then
_memorywrite(7882049, $open, "3555299472", "long")
EndIf
If GUICtrlRead($checkbox11) = 1 Then
_memorywrite(4896399, $open, "2047263990", "long")
EndIf
If GUICtrlRead($checkbox12) = 1 Then
_memorywrite(6270386, $open, "989874827", "long")
EndIf
If GUICtrlRead($checkbox13) = 1 Then
_memorywrite(7945565, $open, "2374697834", "long")
EndIf
If GUICtrlRead($checkbox14) = 1 Then
_memorywrite(5417417, $open, "1593591259", "long")
EndIf
Exit
EndFunc
Vielen dank im vorraus
