|
Originally Posted by Natrokon
#RequireAdmin
#NoTrayIcon
#include <WinAPI.au3>
#include <GUIConstants.au3>
#include <NomadMemory.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$GM = 0x00D60D48
$Hit = 0x0D3F00C
$SP = 0x00D3E6EC
$SP2 = 0x00D3E6F8
$multi = 0x00CF4CB0
$multi2 = 0x00E5F730
$Ammo = 0x00D3F050
$Ammo2 = 0x00D3F03C
$Speed = 0x00D3F014
$Ghost = 0x00CFBFF0
$Accu = 0x00D3F078
$Walls = 0x00000000
$Wallshoot = 0x00CF8608
$Wallshoot2 = 0x00CF8620
$Wallshoot3 = 0x00CF8660
$Wallshoot4 = 0x00CF8668
$Hitrange = 0x00CF8608
$Hitrange2 = 0x00CF8620
$Hitrange3 = 0x00CF8660
$Hitrange4 = 0x00CF8668
$Fumbi = 0x00CF9628
$Fumbi2 = 0x00CF9648
$Fumbi3 = 0x00CF9618
$Fumbi4 = 0x00CF9638
$Lobby = 0x00CF9628
$Lobby2 = 0x00CF9648
$Lobby3 = 0x00CF9618
$Lobby4 = 0x00CF9638
$Enemy = 0x00CF9628
$Enemy2 = 0x00CF9648
$Slang = 0x00CF0F86
$Slang2 = 0x00CF0FB6
$Slang3 = 0x00CF0FE6
$Laser = 0x00CF9694
$Laser2 = 0x00CF96A8
$Laser3 = 0x00CF96BC
$Laser4 = 0x00CF96D0
$Laser5 = 0x00CF96E4
$Rules = 0x00D5EE6C
$Rules2 = 0x00D5EE84
$Rules3 = 0x00D5EE9C
$Rules4 = 0x00D5EEC8
$Rules5 = 0x00D5EEE4
$Rules6 = 0x00D5EEF8
$Rules7 = 0x00D5EF0C
$Rules8 = 0x00D5EF20
$Rules9 = 0x00D5EF34
$Rules10 = 0x00D5EF48
$Rules11 = 0x00D5EF5C
$Rules12 = 0x00D5EF70
$Rules13 = 0x00D5EF84
$Rules14 = 0x00D5EF94
$Rules15 = 0x00D5EFA8
$Rules16 = 0x00D5EFB8
$Rules17 = 0x00D5EFC8
$Rules18 = 0x00D5EFD8
$Rules19 = 0x00D5EFE8
$Rules20 = 0x00D5EFFC
$Rules21 = 0x00D5F014
$Rules22 = 0x00D5F02C
$Rules23 = 0x00D5F044
$Rules24 = 0x00D5F058
$Rules25 = 0x00D5F06C
$Rules26 = 0x00D5F080
$Rules27 = 0x00D5F094
$Rules28 = 0x00D5F0AC
$Rules29 = 0x00D5F0C0
$Rules30 = 0x00D5F0D0
$Rules31 = 0x00D5F0E0
$Rules32 = 0x00D5F0F4
$Anim = 0x00CFB07C
$Jump = 0x00CFBFEC
$x = 0x00CF9E08
$y = 0x00CF9E0C
$Struct = DllStructCreate("int cxLeftWidth;int cxRightWidth;int cyTopHeight;int cyBottomHeight;")
Global $STATE = "Wait for S4 league...."
$GUI = GUICreate("Fenstername", 537, 203, 267, 133)
GUISetState(@SW_SHOW, $GUI)
If @OSVersion = "WIN_VISTA" Or @OSVersion = "WIN_7" Then
_Vista_EnableBlurBehind($GUI)
$hDummy = GUICreate("", 537, 203, 0, 0, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $GUI) ; Layered Child GUI erstellen
GUISetBkColor(0xABCDEF) ; GUI einfärben
_WinAPI_SetLayeredWindowAttributes($hDummy, 0xABCDEF, 255) ; LayeredWindowAttributes
GUISetState(@SW_SHOW, $hDummy)
EndIf
$Checkbox1 = GUICtrlCreateCheckbox("1 Hit", 8, 8, 57, 17)
$Checkbox2 = GUICtrlCreateCheckbox("SP Skill", 8, 32, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Inf Ammo", 8, 56, 97, 17)
$Checkbox4 = GUICtrlCreateCheckbox("x15 Speed", 8, 80, 97, 17)
$Checkbox5 = GUICtrlCreateCheckbox("GhostMode", 8, 104, 97, 17)
$Checkbox6 = GUICtrlCreateCheckbox("0 Accuracy", 8, 128, 97, 17)
$Checkbox7 = GUICtrlCreateCheckbox("Inf Walls", 8, 152, 97, 17)
$Group1 = GUICtrlCreateGroup("ShootStyle", 208, 0, 121, 89)
$Checkbox8 = GUICtrlCreateCheckbox("WallShoot", 224, 24, 97, 17)
$Checkbox9 = GUICtrlCreateCheckbox("Hitrange", 224, 56, 97, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("SpawnPosition", 208, 88, 121, 105)
$Checkbox10 = GUICtrlCreateCheckbox("Fumbi", 216, 112, 97, 17)
$Checkbox11 = GUICtrlCreateCheckbox("Lobby", 216, 136, 97, 17)
$Checkbox12 = GUICtrlCreateCheckbox("Enemy", 216, 160, 97, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Checkbox13 = GUICtrlCreateCheckbox("Slang", 112, 8, 89, 17)
$Checkbox14 = GUICtrlCreateCheckbox("No Lasers", 8, 176, 97, 17)
$Checkbox15 = GUICtrlCreateCheckbox("No Rules", 112, 32, 89, 17)
$Checkbox16 = GUICtrlCreateCheckbox("Godmode", 112, 56, 89, 17)
$Label1 = GUICtrlCreateLabel("AnimSpeed", 352, 16, 58, 17)
$Label2 = GUICtrlCreateLabel("Jump", 352, 48, 29, 17)
$Label3 = GUICtrlCreateLabel("X Achse", 352, 80, 44, 17)
$Label4 = GUICtrlCreateLabel("Y Achse", 352, 104, 44, 17)
$Input1 = GUICtrlCreateInput("2.3", 424, 16, 105, 21)
$Input2 = GUICtrlCreateInput("320", 424, 48, 105, 21)
$Input3 = GUICtrlCreateInput("350", 424, 80, 105, 21)
$Input4 = GUICtrlCreateInput("130", 424, 104, 105, 21)
$Button1 = GUICtrlCreateButton("Start S4", 424, 136, 107, 25)
$Button2 = GUICtrlCreateButton("Credits", 424, 168, 107, 25)
While 1
$iMsg = GUIGetMsg()
Switch $iMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
RUN("C:\Program Files\alaplaya\S4League\patcher_s4.exe" , "C:\Program Files\alaplaya\S4League")
Case $Button2
MsgBox(0, "Credits" ,"DarkGER!/-SilentHill* ~ Help Coding" & @CRLF & @CRLF & "De4Su ~ Many Adresses" & @CRLF & @CRLF & "ChaosCombo ~ Slang String",11)
Case $CHECKBOX8
GUICtrlSetState($CHECKBOX9, 4)
Case $CHECKBOX9
GUICtrlSetState($CHECKBOX8, 4)
Case $CHECKBOX10
GUICtrlSetState($CHECKBOX11, 4)
GUICtrlSetState($CHECKBOX12, 4)
Case $CHECKBOX11
GUICtrlSetState($CHECKBOX10, 4)
GUICtrlSetState($CHECKBOX12, 4)
Case $CHECKBOX12
GUICtrlSetState($CHECKBOX10, 4)
GUICtrlSetState($CHECKBOX11, 4)
EndSwitch
If ProcessExists("S4Client.exe") <> 0 Then
$PID = ProcessWait("S4Client.exe")
$OPEN = _MEMORYOPEN($PID)
Do
sleep(300)
Until _MEMORYREAD($x, $OPEN, "Float") = 350
_MEMORYWRITE($Anim, $OPEN, GUICtrlRead($INPUT1), "Float")
_MEMORYWRITE($Jump, $OPEN, GUICtrlRead($INPUT2), "Float")
_MEMORYWRITE($x, $OPEN, GUICtrlRead($INPUT3), "Float")
_MEMORYWRITE($y, $OPEN, GUICtrlRead($INPUT4), "Float")
If GUICtrlRead($CHECKBOX1) = 1 Then ;1Hit;
_MEMORYWRITE($Hit, $OPEN, "range", "char[5]")
EndIf
If GUICtrlRead($CHECKBOX2) = 1 Then
_MEMORYWRITE($SP, $OPEN, "0", "char[2]") ;Sp Skill;
_MEMORYWRITE($SP2, $OPEN, "0", "char[2]")
EndIf
If GUICtrlRead($CHECKBOX3) = 1 Then
_MEMORYWRITE($Ammo, $OPEN, "max_ammo", "char[9]") ;Unlimited Ammo;
_MEMORYWRITE($Ammo2, $OPEN, "max_ammo", "char[9]")
EndIf
If GUICtrlRead($CHECKBOX4) = 1 Then ;x15 Speed;
_MEMORYWRITE($Speed, $OPEN, "sniper_mode_fov", "char[15]")
EndIf
If GUICtrlRead($CHECKBOX5) = 1 Then ;GhostMode;
_MEMORYWRITE($Ghost, $OPEN, "0", "float")
EndIf
If GUICtrlRead($CHECKBOX6) = 1 Then ;0 Accuracy;
_MEMORYWRITE($Accu, $OPEN, "0", "char[2]")
EndIf
If GUICtrlRead($CHECKBOX7) = 1 Then ;Inf Walls;
_MEMORYWRITE($Walls, $OPEN, "ZENSIERT", "ZENSIERT")
EndIf
If GUICtrlRead($CHECKBOX8) = 1 Then ;Wallshoot;
_MEMORYWRITE($Wallshoot, $OPEN, "1", "Float")
_MEMORYWRITE($Wallshoot2, $OPEN, "1", "Float")
_MEMORYWRITE($Wallshoot3, $OPEN, "1", "Float")
_MEMORYWRITE($Wallshoot4, $OPEN, "1", "Float")
EndIf
If GUICtrlRead($CHECKBOX9) = 1 Then ;Hitrange;
_MEMORYWRITE($Hitrange, $OPEN, "0", "Float")
_MEMORYWRITE($Hitrange2, $OPEN, "0", "Float")
_MEMORYWRITE($Hitrange3, $OPEN, "0", "Float")
_MEMORYWRITE($Hitrange4, $OPEN, "0", "Float")
EndIf
If GUICtrlRead($CHECKBOX10) = 1 Then ;fumbispawn;
_MEMORYWRITE($Fumbi, $OPEN, "ball_spawn_pos", "char[15]")
_MEMORYWRITE($Fumbi2, $OPEN, "ball_spawn_pos", "char[15]")
_MEMORYWRITE($Fumbi3, $OPEN, "ball_spawn_pos", "char[15]")
_MEMORYWRITE($Fumbi4, $OPEN, "ball_spawn_pos", "char[15]")
EndIf
If GUICtrlRead($CHECKBOX11) = 1 Then ;lobbyspawn;
_MEMORYWRITE($Lobby, $OPEN, "0", "char[2]")
_MEMORYWRITE($Lobby2, $OPEN, "0", "char[2]")
_MEMORYWRITE($Lobby3, $OPEN, "0", "char[2]")
_MEMORYWRITE($Lobby4, $OPEN, "0", "char[2]")
EndIf
If GUICtrlRead($CHECKBOX12) = 1 Then ;Enemyspawn;
_MEMORYWRITE($Enemy, $OPEN, "beta_spawn_pos", "char[14]")
_MEMORYWRITE($Enemy2, $OPEN, "alpha_spawn_pos", "char[15]")
EndIf
If GUICtrlRead($CHECKBOX13) = 1 Then ;Slang;
_MEMORYWRITE($Slang, $OPEN, "0", "char[2]")
_MEMORYWRITE($Slang2, $OPEN, "0", "char[2]")
_MEMORYWRITE($Slang3, $OPEN, "0", "char[2]")
EndIf
If GUICtrlRead($CHECKBOX14) = 1 Then ;laser;
_MEMORYWRITE($Laser, $OPEN, "red_limited_area=0", "char[18]")
_MEMORYWRITE($Laser2, $OPEN, "alpha_limited_area=0", "char[20]")
_MEMORYWRITE($Laser3, $OPEN, "blue_limited_area=0", "char[19]")
_MEMORYWRITE($Laser4, $OPEN, "beta_limited_area=0", "char[19]")
_MEMORYWRITE($Laser5, $OPEN, "all_secret_area=0", "char[17]")
EndIf
If GUICtrlRead($CHECKBOX15) = 1 Then ;No Rules;
_MEMORYWRITE($Rules, $OPEN, "0", "char[2]")
_MEMORYWRITE($Rules2, $OPEN, "0", "char[2]")
_MEMORYWRITE($Rules3, $OPEN, "0", "char[2]")
_MEMORYWRITE($Rules4, $OPEN, "0", "char[2]")
_MEMORYWRITE($Rules5, $OPEN, "0", "char[2]")
_MEMORYWRITE($Rules6, $OPEN, "0", "char[2]")
_MEMORYWRITE($Rules7, $OPEN, "0", "char[2]")
_MEMORYWRITE($Rules8, $OPEN, "0", "char[2]")
_MEMORYWRITE($Rules9, $OPEN, "0", "char[2]")
_MEMORYWRITE($Rules10, $OPEN, "0", "char[2]")
_MEMORYWRITE($Rules11, $OPEN, "0", "char[2]")
_MEMORYWRITE($Rules12, $OPEN, "0", "char[2]")
_MEMORYWRITE($Rules13, $OPEN, "0", "char[2]")
_MEMORYWRITE($Rules14, $OPEN, "0", "char[2]")
_MEMORYWRITE($Rules15, $OPEN, "0", "char[2]")
_MEMORYWRITE($Rules16, $OPEN, "0", "char[2]")
_MEMORYWRITE($Rules17, $OPEN, "0", "char[2]")
_MEMORYWRITE($Rules18, $OPEN, "0", "char[2]")
_MEMORYWRITE($Rules19, $OPEN, "0", "char[2]")
_MEMORYWRITE($Rules20, $OPEN, "0", "char[2]")
_MEMORYWRITE($Rules21, $OPEN, "0", "char[2]")
_MEMORYWRITE($Rules22, $OPEN, "0", "char[2]")
_MEMORYWRITE($Rules23, $OPEN, "0", "char[2]")
_MEMORYWRITE($Rules24, $OPEN, "0", "char[2]")
_MEMORYWRITE($Rules25, $OPEN, "0", "char[2]")
_MEMORYWRITE($Rules26, $OPEN, "0", "char[2]")
_MEMORYWRITE($Rules27, $OPEN, "0", "char[2]")
_MEMORYWRITE($Rules28, $OPEN, "0", "char[2]")
_MEMORYWRITE($Rules29, $OPEN, "0", "char[2]")
_MEMORYWRITE($Rules30, $OPEN, "0", "char[2]")
_MEMORYWRITE($Rules31, $OPEN, "0", "char[2]")
_MEMORYWRITE($Rules32, $OPEN, "0", "char[2]")
EndIf
If GUICtrlRead($CHECKBOX16) = 1 Then ;GodMode;
_MEMORYWRITE($GM, $OPEN, "graph_value", "char[12]")
EndIf
exit
EndIf
WEnd
Func _Vista_EnableBlurBehind($hWnd, $bColor = 0xCC0000)
Const $DWM_BB_ENABLE = 0x00000001
$sStruct = DllStructCreate("dword;int;ptr;int")
DllStructSetData($sStruct, 1, $DWM_BB_ENABLE)
DllStructSetData($sStruct, 2, "1")
DllStructSetData($sStruct, 4, "1")
GUISetBkColor($bColor); Must be here!
$Ret = DllCall("dwmapi.dll", "int", "DwmEnableBlurBehindWindow", "hwnd", $hWnd, "ptr", DllStructGetPtr($sStruct))
$sStruct = 0
If @error Then
Return 0
Else
Return $Ret
EndIf
EndFunc ;==>_Vista_EnableBlurBehind
was ist der fehler??? bitte hilfe
|
![[Coding]Hilfe benötigt](https://www.elitepvpers.com/forum/iconimages/general-coding/coding-hilfe-ben-tigt_ltr.gif){kind=small}
