Spoiler anzeigen
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.8.1
Author: m47
Version: 1.0
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]; Script Start - Add your code below here#
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Opt("MustDeclareVars", 1) ;1 = Variable muss deklariert werden
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]#include <Misc.au3>
Local $Script = "ProcessClose"
If _Singleton($Script,1) = 0 Then
Beep(200,200)
Exit
EndIf
Global $i
Global $x
Global $_0_bis_19[20] = [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19]
Global $counter = 0
;Process
Dim $Process[20] ;Der hier eingetragene Text wird mit der Prozessliste verglichen.
$Process[0] = "Firefox" ;Ist der Text im Prozessnamen enthalten so wird dieser Prozess beendet.
$Process[1] = "FlashPlayerPlugin"
$Process[2] = ""
$Process[3] = ""
$Process[4] = ""
$Process[5] = ""
$Process[6] = ""
$Process[7] = ""
$Process[8] = ""
$Process[9] = ""
$Process[10] = ""
$Process[11] = ""
$Process[12] = ""
$Process[13] = ""
$Process[14] = ""
$Process[15] = ""
$Process[16] = ""
$Process[17] = ""
$Process[18] = ""
$Process[19] = ""
;Tooltip_Text
Dim $Tooltip_Text[4]
$Tooltip_Text[0] = "Process closed:"
$Tooltip_Text[1] = ""
$Tooltip_Text[2] = "["
$Tooltip_Text[3] = "]"
Dim $Tooltip_Sleep_Delay = 10000 ;Millisekunden warten um die Tooltipanzeige aufrecht zu halten
;Tooltip_Text_Info
Dim $Tooltip_Text_Info[20]
For $i In $_0_bis_19
$Tooltip_Text_Info[$i] = ""
Next
;Start
;Prozesse durchsuchen
Local $ProcessList = ProcessList()
For $i = 1 To $ProcessList[0][0]
For $x In $_0_bis_19
StringReplace($ProcessList[$i][0],$Process[$x],$Process[$x])
If @extended Then
Local $PID = ProcessClose($ProcessList[$i][1])
If $PID Then ProcessClose($PID)
$Tooltip_Text_Info[$counter] = $Tooltip_Text[1] & $ProcessList[$i][0] & $Tooltip_Text[2] & $ProcessList[$i][1] & $Tooltip_Text[3]
$counter +=1
;~ MsgBox(0,0, $Tooltip_Text_Info[$x])
If $Tooltip_Text_Info[0] <> "" Then
ToolTip($Tooltip_Text[0] & @CRLF & _
$Tooltip_Text_Info[0] & @CRLF & _
$Tooltip_Text_Info[1] & @CRLF & _
$Tooltip_Text_Info[2] & @CRLF & _
$Tooltip_Text_Info[3] & @CRLF & _
$Tooltip_Text_Info[4] & @CRLF & _
$Tooltip_Text_Info[5] & @CRLF & _
$Tooltip_Text_Info[6] & @CRLF & _
$Tooltip_Text_Info[7] & @CRLF & _
$Tooltip_Text_Info[8] & @CRLF & _
$Tooltip_Text_Info[9] & @CRLF & _
$Tooltip_Text_Info[10] & @CRLF & _
$Tooltip_Text_Info[11] & @CRLF & _
$Tooltip_Text_Info[12] & @CRLF & _
$Tooltip_Text_Info[13] & @CRLF & _
$Tooltip_Text_Info[14] & @CRLF & _
$Tooltip_Text_Info[15] & @CRLF & _
$Tooltip_Text_Info[16] & @CRLF & _
$Tooltip_Text_Info[17] & @CRLF & _
$Tooltip_Text_Info[18] & @CRLF & _
$Tooltip_Text_Info[19] & @CRLF _
, @DesktopWidth/2, @DesktopHeight/2)
EndIf
EndIf
Next
Next
For $i In $_0_bis_19
Consolewrite($i & " " & $Tooltip_Text_Info[$i]&@LF)
Next
Sleep($Tooltip_Sleep_Delay)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Exit
;Ende