[Coding]Hilfe benötigt

Quote:

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