Hallo Leute... da ist ein kleines Skript von mir was ich aus langweile geschriebn habe....
Spoiler anzeigen
Opt("TrayIconHide", 1)
Opt("WinTitleMatchMode", 3)
Opt("GUIOnEventMode", 1)
Opt("GUICloseOnEsc", 0)
If _Singleton("Kicker Pro", 1) = 0 Then
MsgBox(64, "Actung", "Kicker Pro wird bereits ausgeführt!", 3)
Exit
EndIf
#include<GUIConstants.au3>
#include<Process.au3>
#include<Misc.au3>
; GUI
$GUI = GuiCreate("Kicker Pro -DE", 362, 425,(@DesktopWidth-362)/2, (@DesktopHeight-425)/2)
GUISetBkColor (0xFFFFFF)
; System Menu
Global Const $MF_BYPOSITION = 0x0400
Global Const $MF_SEPARATOR = 0x0800
CreateSystemMenuItem("")
$sysmenu = CreateSystemMenuItem("Team sl4")
CreateSystemMenuItem("")
Func InsertMenu($hMenu, $nPosition, $nFlags, $nIDNewItem, $lpNewItem)
Local $nResult = DllCall("user32.dll", "int", "InsertMenu", _
"hwnd", $hMenu, _
"int", $nPosition, _
"int", $nFlags, _
"int", $nIDNewItem, _
"str", $lpNewItem)
Return $nResult[0]
EndFunc
Func CreateSystemMenuItem($sText, $hMenu = -1)
If $hMenu = -1 Then $hMenu = GetSystemMenu($GUI)
Local $nID = GUICtrlCreateDummy()
Local $nFlags = 0
If $sText = "" Then $nFlags = $MF_SEPARATOR
$nFlags = BitOr($MF_BYPOSITION, $nFlags)
InsertMenu($hMenu, 0xFFFFFFFF, $nFlags, $nID, $sText)
Return $nID
EndFunc
Func GetSystemMenu($GUI, $bRevert = 0)
Local $hMenu = DllCall("user32.dll", "hwnd", "GetSystemMenu", _
"hwnd", $GUI, _
"int", $bRevert)
Return $hMenu[0]
EndFunc
; List
$list = GuiCtrlCreateList("", 30, 30, 130, 253)
; Radios
GUISetFont(9,"","","Comic Sans MS")
$susp = GuiCtrlCreateRadio("Einfrieren", 190, 50, 140, 20)
$susp_close = GuiCtrlCreateRadio("Einfrieren/Schließen", 190, 80, 140, 20)
GUICtrlSetState ($susp_close,$GUI_CHECKED)
$resume = GuiCtrlCreateRadio("Wiederherstellen", 190, 110, 140, 20)
$open = GuiCtrlCreateRadio("Öffnen", 190, 140, 140, 20)
; Buttons
GUISetFont(11,"","","Comic Sans MS")
$apply = GuiCtrlCreateButton("Bestätigen", 190, 200, 140, 30)
$update_list = GuiCtrlCreateButton("Liste aktualisieren", 190, 240, 140, 30)
; Groups
GuiCtrlCreateGroup("", 10, 10, 340, 290)
GuiCtrlCreateGroup("Optionen", 180, 30, 160, 140)
GuiCtrlCreateGroup("Auswahl", 180, 180, 160, 100)
; About Box
GUISetFont(9,"","","Comic Sans MS")
GuiCtrlCreateGroup("Über", 10, 310, 340, 80)
GuiCtrlCreatePic("Pic12", 20, 330, 140, 50)
GUICtrlCreateIcon("shell32.dll",23,20,330,100,50)
GuiCtrlCreateLabel("© Team sl4 // http://www.team-sl4.co.cc", 140, 360)
GUISetFont(14,"","","Comic Sans MS")
GuiCtrlCreateLabel("by Andreas J.", 140, 330)
GUISetFont(10,"","","Comic Sans MS")
; Trans-Slider
$trans = GuiCtrlCreateSlider(10, 400, 340, 20)
GUICtrlSetLimit(-1,255,1)
GUICtrlSetData($trans,230)
WinSetTrans($GUI,"",230)
; Set List
$list_1 = ProcessList()
For $i = 1 To $list_1[0][0]
GUICtrlSetData($list, $list_1[$i][0])
Next
WinSetOnTop($GUI,"",1)
GuiSetState()
$radio = "2"
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]; Events
; Radios
GUICtrlSetOnEvent($susp,"susp")
GUICtrlSetOnEvent($susp_close,"susp_close")
GUICtrlSetOnEvent($resume,"resume")
GUICtrlSetOnEvent($open,"open")
GUICtrlSetOnEvent($apply,"apply")
GUICtrlSetOnEvent($sysmenu,"sysmenu")
GUICtrlSetOnEvent($trans,"trans")
GUICtrlSetOnEvent($update_list,"update_list")
GUISetOnEvent($GUI_EVENT_CLOSE, "close")
; Functions
While 1
If ProcessExists("explorer.exe") = 0 Then
Run("explorer.exe")
EndIf
Sleep(100)
WEnd
; Radios
Func susp()
$radio = "1"
EndFunc
Func susp_close()
$radio = "2"
EndFunc
Func resume()
$radio = "3"
EndFunc
Func open()
$radio = "4"
EndFunc
Func apply()
If $radio = "1" Then
$SProcessName = GUICtrlRead($list)
$Process = _MProcessSuspend($SProcessName)
If $Process = 0 Or @error = 1 Or @error = 2 Then
MsgBox(64, "Fehler aufgetreten", "Prozess kann nicht supsendiert werden wegen 1 der folgenden Gründen:" & @CRLF & "1.Keine Verbiendung mit kernel32.dll oder ntdll.dll" & @CRLF & "2.Prozess existiert nicht oder konnte nicht gefunden werden" & @CRLF & _
"3.Externer Programm Fehler", 3)
Return
EndIf
ElseIf $radio = "2" Then
$SProcessName = GUICtrlRead($list)
$Process = _MProcessSuspend($SProcessName)
If $Process = 0 Or @error = 1 Or @error = 2 Then
MsgBox(64, "Fehler aufgetreten", "Prozess kann nicht supsendiert werden wegen 1 der folgenden Gründen:" & @CRLF & "1.Keine Verbiendung mit kernel32.dll oder ntdll.dll" & @CRLF & "2.Prozess existiert nicht oder konnte nicht gefunden werden" & @CRLF & _
"3.Externer Programm Fehler", 3)
Return
EndIf
Sleep(500)
ProcessClose($SProcessName,1)
ElseIf $radio = "3" Then
$RProcessName = GUICtrlRead($list)
$Process = _MProcessResume($RProcessName)
If $Process = 0 Or @error = 1 Or @error = 2 Then
MsgBox(64, "Fehler aufgetreten", "Prozess kann nicht supsendiert werden wegen 1 der folgenden Gründen:" & @CRLF & "1.Keine Verbiendung mit kernel32.dll oder ntdll.dll" & @CRLF & "2.Prozess existiert nicht oder konnte nicht gefunden werden" & @CRLF & _
"3.Externer Programm Fehler", 3)
Return
EndIf
ElseIf $radio = "4" Then
$openfile = FileOpenDialog("Kicker Pro","","")
Run($openfile)
EndIf
EndFunc
; Apply
Func sysmenu()
$oIE=ObjCreate("InternetExplorer.Application.1")
$URL = "http://www.team-sl4.co.cc/"
$oIE.Navigate( $URL )
EndFunc
Func trans()
WinSetTrans($GUI,"",GUICtrlRead($trans))
EndFunc ; Trans
Func update_list()
$list_1 = ProcessList()
For $i = 1 To $list_1[0][0]
GUICtrlSetData($list, $list_1[$i][0])
Next
EndFunc ;==>Refresh
Func _MProcessSuspend($SProcessName)
$SProcessPid = ProcessExists($SProcessName)
If $SProcessPid Then
$ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $SProcessPid)
$i_sucess = DllCall("ntdll.dll", "int", "NtSuspendProcess", "int", $ai_Handle[0])
DllCall('kernel32.dll', 'ptr', 'CloseHandle', 'ptr', $ai_Handle)
If IsArray($i_sucess) Then
Return 1
Else
SetError(1)
Return 0
EndIf
Else
SetError(2)
Return 0
EndIf
EndFunc ;==>_MProcessSuspend
Func _MProcessResume($RProcessName)
$RProcessPid = ProcessExists($RProcessName)
If $RProcessPid Then
$ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $RProcessPid)
$i_sucess = DllCall("ntdll.dll", "int", "NtResumeProcess", "int", $ai_Handle[0])
DllCall('kernel32.dll', 'ptr', 'CloseHandle', 'ptr', $ai_Handle)
If IsArray($i_sucess) Then
Return 1
Else
SetError(1)
Return 0
EndIf
Else
SetError(2)
Return 0
EndIf
EndFunc ;==>_MProcessResume
Func close()
Exit
EndFunc
Edit peethebee: Schriftgröße normalisiert und Verwendungszweck entfernt sowie übertriebene Werbung für die Webseite.
