Prozess Manager

[Banana.Crafts]

So das hier ist mein Prozeess Manager:




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):

 Spoiler

#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

Ich hoffe mal, dass das hier nicht als sinnlos erklärt wird und der Thread geschlossen wird.

[Cholik]

Poste halt den Source, dann erklär ichs nicht für ganz so sinnlos wie es eigentlich ist...

Weitaus bessere Alternativen mit mehr Funktionen:
- Task-Manager
-
-

Und was kann dein Tool alles so ? (Vorsicht rhetorische Frage)

[Banana.Crafts]

Ich check die rhetorische Frage net.
Das einzige, was besser ist als z.B. TaskManager ist die Blacklist, weil du damit mehr Prozesse auf einenmal closen kannst.

Source wird bld geposted, geht nur grad net.

[Cascraft]

Ich hätte gern den Source erklärt.(kein "Copy an Paste" )

[Banana.Crafts]

Originally Posted by Cascraft

Ich hätte gern den Source erklärt.(kein "Copy an Paste" )

Sry aber ich kann dir net alles erklären.
Du kannst ja mal sagen was du nicht verstehst, bzw wissen möchtest

[HardCore.1337]

Ich hätte gern den Source erklärt.(kein "Copy an Paste" )

Glaubst ihm nicht, das er das selbst programmiert hat stimmts (dir ist es nämlich total egal wie das prog. geht. DU willst nur das er zu gibt das es C&P ist).

Aber mal ernsthaft. Du kannst nicht erwarten das er dir den ganzen Sourcecode erklärt. Wenn du auch sowas machen möchtest erkundige dich im INet. Aber ich glaube eh oberes.

[Banana.Crafts]

Alles von mir;D
Ich mein, ist ja net soooooo anspruchsvoll;D

[●ROBBY●]

Danke dass mit der Processlist und so interessiert mich THX
Kann man bestimmt für nen netten Bot benutzen.