Hey Leute!,
Ich bin echt am Verzweifeln.
Ich habe mich heute an einem Suspender versucht.
Ein "Suspender" ist ein Programm was andere Programme pausieren soll.
Das funktioniert auch super,wenn man es in SciTe startet.
Compile ich das ganze , funktioniert es auch schon nicht mehr , sie werden einfach nicht pausiert.
Hatte hier vielleicht schon jemand das Problem?
Mfg
Strean
Code
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Harmony : Suspender by Strean", 469, 255, 192, 124)
GUISetBkColor(12566463)
$Pic1 = GUICtrlCreatePic(@TempDir & "\PHY_GUI.jpg", 136, 0, 196, 100, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Group1 = GUICtrlCreateGroup("Suspend", 16, 0, 105, 241)
$Label1 = GUICtrlCreateLabel("Not Running...", 24, 200, 90, 20)
GUICtrlSetFont($Label1,12,0,0,"Times New Roman")
GUICtrlSetColor($Label1,0xEE0000)
$Checkbox2 = GUICtrlCreateCheckbox("S4 Client", 24, 24, 87, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Aegis", 24, 56, 87, 17)
$Checkbox4 = GUICtrlCreateCheckbox("Aegis 64", 24, 88, 87, 17)
$Checkbox5 = GUICtrlCreateCheckbox("HGWC", 24, 120, 87, 17)
$Checkbox6 = GUICtrlCreateCheckbox("XTrap", 24, 152, 87, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("1337 Section", 344, 0, 113, 241)
$Checkbox8 = GUICtrlCreateCheckbox("INF HP", 352, 24, 97, 17)
$Checkbox9 = GUICtrlCreateCheckbox("INF SP", 352, 56, 97, 17)
$Checkbox10 = GUICtrlCreateCheckbox("INF AMMO", 352, 88, 97, 17)
$Checkbox11 = GUICtrlCreateCheckbox("Power", 352, 120, 97, 17)
$Checkbox12 = GUICtrlCreateCheckbox("FastFire", 352, 152, 97, 17)
$Checkbox13 = GUICtrlCreateCheckbox("Xray", 352, 184, 97, 17)
$Checkbox14 = GUICtrlCreateCheckbox("Hit Range", 352, 216, 97, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Checkbox1 = GUICtrlCreateCheckbox("Auto Suspend", 145, 112, 97, 17)
$Group3 = GUICtrlCreateGroup("Self Control", 136, 136, 193, 105)
$Button1 = GUICtrlCreateButton("Suspend", 144, 200, 81, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Kill", 240, 160, 81, 25, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Resume", 144, 160, 81, 25, $WS_GROUP)
$Button5 = GUICtrlCreateButton("Start Hacks", 240, 200, 81, 25, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Checkbox7 = GUICtrlCreateCheckbox("Kill Aegis", 255, 112, 67, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
AdlibRegister("SetData",500)
$debug = SetPrivilege("SeDebugPrivilege", 1)
$self_open = _ProcessOpen("Harmony Suspender.exe",0x0200)
$priority = _ProcessSetPriorityX($self_open,0x00000100)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
AdlibUnRegister("SetData")
Exit
Case $Button1
Suspend()
Case $Button3
Kill()
Case $Button4
Resume()
EndSwitch
WEnd
Func Suspend()
If GUICtrlRead($Checkbox2) = 1 Then
$hProcess = _ProcessOpen($Process[0],0x800)
$suspend = _ProcessUDSuspend($hProcess)
EndIf
If GUICtrlRead($Checkbox3) = 1 Then
$hProcess = _ProcessOpen($Process[1],0x800)
$suspend = _ProcessUDSuspend($hProcess)
EndIf
If GUICtrlRead($Checkbox4) = 1 Then
$hProcess = _ProcessOpen($Process[2],0x800)
$suspend = _ProcessUDSuspend($hProcess)
EndIf
If GUICtrlRead($Checkbox5) = 1 Then
$hProcess = _ProcessOpen($Process[3],0x800)
$suspend = _ProcessUDSuspend($hProcess)
EndIf
If GUICtrlRead($Checkbox6) = 1 Then
$hProcess = _ProcessOpen($Process[4],0x800)
$suspend = _ProcessUDSuspend($hProcess)
EndIf
EndFunc
Func Resume()
If GUICtrlRead($Checkbox2) = 1 Then
$hProcess = _ProcessOpen($Process[0],0x800)
$suspend = _ProcessUDResume($hProcess)
EndIf
If GUICtrlRead($Checkbox3) = 1 Then
$hProcess = _ProcessOpen($Process[1],0x800)
$suspend = _ProcessUDResume($hProcess)
EndIf
If GUICtrlRead($Checkbox4) = 1 Then
$hProcess = _ProcessOpen($Process[2],0x800)
$suspend = _ProcessUDResume($hProcess)
EndIf
If GUICtrlRead($Checkbox5) = 1 Then
$hProcess = _ProcessOpen($Process[3],0x800)
$suspend = _ProcessUDResume($hProcess)
EndIf
If GUICtrlRead($Checkbox6) = 1 Then
$hProcess = _ProcessOpen($Process[4],0x800)
$suspend = _ProcessUDResume($hProcess)
EndIf
EndFunc
Func Kill()
If GUICtrlRead($Checkbox2) = 1 Then
$hProcess = _ProcessOpen($Process[0],0x0001)
$suspend = _ProcessTerminate($hProcess)
EndIf
If GUICtrlRead($Checkbox3) = 1 Then
$hProcess = _ProcessOpen($Process[1],0x0001)
$suspend = _ProcessTerminate($hProcess)
EndIf
If GUICtrlRead($Checkbox4) = 1 Then
$hProcess = _ProcessOpen($Process[2],0x0001)
$suspend = _ProcessTerminate($hProcess)
EndIf
If GUICtrlRead($Checkbox5) = 1 Then
$hProcess = _ProcessOpen($Process[3],0x0001)
$suspend = _ProcessTerminate($hProcess)
EndIf
If GUICtrlRead($Checkbox6) = 1 Then
$hProcess = _ProcessOpen($Process[4],0x0001)
$suspend = _ProcessTerminate($hProcess)
EndIf
EndFunc
Func SetData()
If(ProcessExists($Process[0])) Then
GUICtrlSetData($Label1,"S4 Running...")
Else
GUICtrlSetData($Label1,"Not Running...")
EndIf
EndFunc