Process list killer *simple*

[MerkurAlex]

It basically takes a list and kills the processes.

Code

#include <array.au3>
#include <file.au3>
$list=fileopendialog("Process list killer",@scriptdir,"Text files (*.txt)")
if $list="" Then
    msgbox("","","No file selected.")
    exit
EndIf
$read=_arraycreate("")
$rlist=_FileReadToArray($list,$read)
_arraydisplay($read,"Your selected list.")
for $i=1 to $read[0]
    if processexists($read[$i]) and not $read[$i]="" then processclose($read[$i])
next

Example list.txt

Ventrilo.exe
Trillian.exe
Xfire.exe
Autoit3.exe

Its simple i know but it can be useful if you have alot of processes that don't need to be open.

I may make a list creator later if i do ill post it here.

Edited November 17, 2007 by EagleClaw

[MerkurAlex]

Here is a quick list creator also updated the actual code on the post above.

expandcollapse popup

#include <GUIConstants.au3>
#include <GUIlistview.au3>

$form = GUICreate("Process list killer - list creator", 290, 269, -1, -1, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_TOPMOST,$WS_EX_WINDOWEDGE))
$plist = GUICtrlCreateListView("Process name", 0, 1, 125, 241)
$slist = GUICtrlCreateListView("Process name", 164, 0, 125, 241)
$addbtn = GUICtrlCreateButton(">>", 127, 48, 35, 24, 0)
$delbtn = GUICtrlCreateButton("Delete", 127, 168, 36, 20, 0)
$sbtn = GUICtrlCreateButton("Save it im done!", 1, 246, 288, 21, 0)
GUISetState(@SW_SHOW)
$processlist=processlist()
for $i=1 to $processlist[0][0]
    guictrlcreatelistviewitem($processlist[$i][0],$plist)
next

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        case $addbtn
            $plistsel=_GUICtrlListViewGetItemText($plist)
            GUICtrlCreateListViewItem($plistsel,$slist)
        case $delbtn
            $slistsel=_GUICtrlListViewGetCurSel($slist)
            if not $slistsel="" Then _GUICtrlListViewDeleteItem($slist,$slistsel)
        case $sbtn
            $amount=_GUICtrlListViewGetItemCount($slist)
            guisetstate(@SW_HIDE,$form)
            $file=fileopendialog("Process list killer - list creator",@scriptdir,"TXT files(*.txt)")
            $fo=fileopen($file,2)
            for $i=0 to $amount
                filewrite($fo,_GUICtrlListViewGetItemText($slist,$i)&@crlf)
            next
            fileclose($fo)
            shellexecute($file)
            exit
    EndSwitch
WEnd

[FireLord]

Nice, I actually made one quite similar to this one.

[James]

That's nice! I made something like this at college, so it would disable all the crap they install!