Prozess Manager

#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