Was er kann/macht:
Oben seht ihr die aktuellen Prozesse. Ihr könnt eine PID oder den einen Prozessnamen eingegben, und der Prozeess wird geschlossen.
Auf Kill Blacklist schließt ihr alle Prozesse die auf der "Blacklist" stehen.
Bei Add Process fügt ihr einen Process zur Blacklist hinzu.
Bei Edit Blacklist könnt ihr die Blacklist löschen.
Source(AutoIt):
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Process-Manager by Banana.Crafts", 301, 292, 192, 124)
$Edit1 = GUICtrlCreateEdit("", 8, 8, 289, 201)
GUICtrlSetData(-1, "Edit1")
TraySetIcon(@ScriptDir&"\Data\Icon.ico")
GuiSetIcon(@ScriptDir&"\Data\Icon.ico")
TraySetToolTip ("Prozess Closer")
$open=TrayCreateItem("Öffnen")
$info=TrayCreateItem("Über")
$website=TrayCreateItem("Website")
$exit=TrayCreateItem("Exit")
$Input1 = GUICtrlCreateInput("Name oder PID", 8, 224, 121, 21)
$Button1 = GUICtrlCreateButton("Kill", 136, 224, 75, 25)
$Button2 = GUICtrlCreateButton("Aktualisieren", 216, 224, 75, 25)
$Button4 = GUICtrlCreateButton("Kill Blacklist", 8, 256, 123, 25)
$Button5 = GUICtrlCreateButton("Add Process", 136, 256, 75, 25)
$Button3 = GUICtrlCreateButton("Edit Blacklist", 216, 256, 75, 25)
GUISetState(@SW_SHOW)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Opt("TrayMenuMode",1)
_process()
_filecheck()
While 1
$nMsg1 = GUIGetMsg()
$msg = TrayGetMsg()
Switch $nMsg1
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_kill()
Case $Button2
_process()
Case $Button5
_blackadd()
Case $Button4
_blackkill()
Case $Button3
_blackedit()
EndSwitch
Switch $msg
Case $info
MsgBox(64,"Info","Made by Banana.Crafts. Sponsored by Pudding-Artworks!")
Case $exit
Exit
Case $website
ShellExecute("http://pudding-artworks.jimdo.com/")
Case $open
WinActivate("Process-Manager by Banana.Crafts")
EndSwitch
WEnd
Func _process()
$list = ProcessList()
GuiCtrlSetData($Edit1,"")
for $i = 1 to $list[0][0]
$read=GUICtrlRead($Edit1)
GUICtrlSetData($Edit1,"Prozessname: "&$list[$i][0]&" PID: "&$list[$i][1]&@CRLF&$read)
next
EndFunc
Func _kill()
$proc=GUICtrlRead($Input1)
$check=ProcessExists($proc)
If $check=0 Then
$kill=ProcessClose($proc)
If @error Then MsgBox(16,"Error!","Prozess konnte nicht geschlossen werden!")
Else
ProcessClose($check)
If @error Then MsgBox(16,"Error!","Prozess konnte nicht geschlossen werden!")
EndIf
_process()
GUICtrlSetData($Input1,"PID oder Name")
EndFunc
Func _blackadd()
$input=InputBox("Blacklist bearbeiten", "Gibt den Namen des Prozesses ein, den du auf die Blacklist setzen möchtest!")
$pn=IniRead("process.ini","Number","exact","")
$pnnew=$pn+1
Iniwrite("process.ini","Process",$pnnew,$input)
IniWrite("process.ini","Number","exact",$pnnew)
EndFunc
Func _blackedit()
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$opForm1 = GUICreate("Blacklist bearbeiten", 360, 125, 192, 124)
GuiSetIcon(@ScriptDir&"\Data\Icon.ico")
$opEdit1 = GUICtrlCreateEdit("", 8, 8, 193, 105)
GUICtrlSetData(-1, "Edit1")
$opButton1 = GUICtrlCreateButton("Blacklist löschen", 216, 8, 131, 65)
$opButton2 = GUICtrlCreateButton("Info", 217, 80, 127, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$pn=IniRead("process.ini","Number","exact","")
GuiCtrlSetData($opEdit1,"")
for $b = 1 to $pn
$pnan=IniRead("process.ini","Process",$b,"")
$opread=GUICtrlRead($opEdit1)
GUICtrlSetData($opEdit1,$opread&@CRLF&"Prozessname : "&$pnan)
next
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUIDelete()
ExitLoop
Case $opButton1
FileDelete(@ScriptDir&"\process.ini")
_filecheck()
Case $opButton2
MsgBox(64,"Info","Kill: Beendet den Prozess aus der Eingabebox"&@CRLF&"Aktualisieren: Läd die Prozessliste neu"&@CRLF&"Kill Blacklist: Beendet die Prozesse, die auf der Blacklist stehen"&@CRLF&"Add Blacklist: Fügt einen neuen Prozess zu Blacklist hinzu"&@CRLF&"Edit Blacklist: Zeigt die aktuelle Blacklist. Diese kann mit Blacklist löschen gelöscht werden"&@CRLF&@CRLF&"Made by Banana.Crafts. Sponsored by Pudding-Artworks!")
EndSwitch
WEnd
EndFunc
Func _blackkill()
$pn=IniRead("process.ini","Number","exact","")
for $a=1 to $pn
$kp=IniRead("process.ini","Process",$a,"")
$close=ProcessClose($kp)
if not $close=1 Then MsgBox(16,"Error","Die Blacklist konnte nicht vollständig beendet werden!")
next
EndFunc
Func _filecheck()
If not FileExists(@ScriptDir&"\process.ini") Then IniWrite("process.ini","Number","exact",0)
EndFunc
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Process-Manager by Banana.Crafts", 301, 292, 192, 124)
$Edit1 = GUICtrlCreateEdit("", 8, 8, 289, 201)
GUICtrlSetData(-1, "Edit1")
TraySetIcon(@ScriptDir&"\Data\Icon.ico")
GuiSetIcon(@ScriptDir&"\Data\Icon.ico")
TraySetToolTip ("Prozess Closer")
$open=TrayCreateItem("Öffnen")
$info=TrayCreateItem("Über")
$website=TrayCreateItem("Website")
$exit=TrayCreateItem("Exit")
$Input1 = GUICtrlCreateInput("Name oder PID", 8, 224, 121, 21)
$Button1 = GUICtrlCreateButton("Kill", 136, 224, 75, 25)
$Button2 = GUICtrlCreateButton("Aktualisieren", 216, 224, 75, 25)
$Button4 = GUICtrlCreateButton("Kill Blacklist", 8, 256, 123, 25)
$Button5 = GUICtrlCreateButton("Add Process", 136, 256, 75, 25)
$Button3 = GUICtrlCreateButton("Edit Blacklist", 216, 256, 75, 25)
GUISetState(@SW_SHOW)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Opt("TrayMenuMode",1)
_process()
_filecheck()
While 1
$nMsg1 = GUIGetMsg()
$msg = TrayGetMsg()
Switch $nMsg1
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_kill()
Case $Button2
_process()
Case $Button5
_blackadd()
Case $Button4
_blackkill()
Case $Button3
_blackedit()
EndSwitch
Switch $msg
Case $info
MsgBox(64,"Info","Made by Banana.Crafts. Sponsored by Pudding-Artworks!")
Case $exit
Exit
Case $website
ShellExecute("http://pudding-artworks.jimdo.com/")
Case $open
WinActivate("Process-Manager by Banana.Crafts")
EndSwitch
WEnd
Func _process()
$list = ProcessList()
GuiCtrlSetData($Edit1,"")
for $i = 1 to $list[0][0]
$read=GUICtrlRead($Edit1)
GUICtrlSetData($Edit1,"Prozessname: "&$list[$i][0]&" PID: "&$list[$i][1]&@CRLF&$read)
next
EndFunc
Func _kill()
$proc=GUICtrlRead($Input1)
$check=ProcessExists($proc)
If $check=0 Then
$kill=ProcessClose($proc)
If @error Then MsgBox(16,"Error!","Prozess konnte nicht geschlossen werden!")
Else
ProcessClose($check)
If @error Then MsgBox(16,"Error!","Prozess konnte nicht geschlossen werden!")
EndIf
_process()
GUICtrlSetData($Input1,"PID oder Name")
EndFunc
Func _blackadd()
$input=InputBox("Blacklist bearbeiten", "Gibt den Namen des Prozesses ein, den du auf die Blacklist setzen möchtest!")
$pn=IniRead("process.ini","Number","exact","")
$pnnew=$pn+1
Iniwrite("process.ini","Process",$pnnew,$input)
IniWrite("process.ini","Number","exact",$pnnew)
EndFunc
Func _blackedit()
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$opForm1 = GUICreate("Blacklist bearbeiten", 360, 125, 192, 124)
GuiSetIcon(@ScriptDir&"\Data\Icon.ico")
$opEdit1 = GUICtrlCreateEdit("", 8, 8, 193, 105)
GUICtrlSetData(-1, "Edit1")
$opButton1 = GUICtrlCreateButton("Blacklist löschen", 216, 8, 131, 65)
$opButton2 = GUICtrlCreateButton("Info", 217, 80, 127, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$pn=IniRead("process.ini","Number","exact","")
GuiCtrlSetData($opEdit1,"")
for $b = 1 to $pn
$pnan=IniRead("process.ini","Process",$b,"")
$opread=GUICtrlRead($opEdit1)
GUICtrlSetData($opEdit1,$opread&@CRLF&"Prozessname : "&$pnan)
next
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUIDelete()
ExitLoop
Case $opButton1
FileDelete(@ScriptDir&"\process.ini")
_filecheck()
Case $opButton2
MsgBox(64,"Info","Kill: Beendet den Prozess aus der Eingabebox"&@CRLF&"Aktualisieren: Läd die Prozessliste neu"&@CRLF&"Kill Blacklist: Beendet die Prozesse, die auf der Blacklist stehen"&@CRLF&"Add Blacklist: Fügt einen neuen Prozess zu Blacklist hinzu"&@CRLF&"Edit Blacklist: Zeigt die aktuelle Blacklist. Diese kann mit Blacklist löschen gelöscht werden"&@CRLF&@CRLF&"Made by Banana.Crafts. Sponsored by Pudding-Artworks!")
EndSwitch
WEnd
EndFunc
Func _blackkill()
$pn=IniRead("process.ini","Number","exact","")
for $a=1 to $pn
$kp=IniRead("process.ini","Process",$a,"")
$close=ProcessClose($kp)
if not $close=1 Then MsgBox(16,"Error","Die Blacklist konnte nicht vollständig beendet werden!")
next
EndFunc
Func _filecheck()
If not FileExists(@ScriptDir&"\process.ini") Then IniWrite("process.ini","Number","exact",0)
EndFunc
Ich hoffe mal, dass das hier nicht als sinnlos erklärt wird und der Thread geschlossen wird.
