AutoIt Français

Code : Tout sélectionner

$List = ProcessList()
Dim $Exeptions[3] = ["csrss.exe","dwm.exe","explorer.exe"]

For $i = 2 To UBound($List)-1 Step 1
    $Find = False
    For $i2 = 0 To UBound($Exeptions)-1 Step 1
        If $List[$i][0] [color=#FF0000]=[/color] $Exeptions[$i2] Then
            $Find = True
            ExitLoop
        EndIf
    Next
    If $Find = False Then
        ProcessClose($List[$i][0])
    EndIf
Next

Code : Tout sélectionner

#include "array.au3"

Dim $Exeptions[12] = ["csrss.exe","dwm.exe","smss.exe","winlogon.exe","svchost.exe","dllhost.exe","lsm.exe", _
                      "lsass.exe","nvvsvc","services.exe","Wininit.exe", "SlowinKiller.exe"]

If MsgBox(4, "Fermeture des applications", "Slowin' Killer a besoin de couper tous les processus en cours" & _
        @CRLF & "en cours d'exécution afin de pouvoir garantir la meilleure restauration possible." & _
        @CRLF & @CRLF & "Souhaitez-vous y procéder maintenant ?" ) <> 6 Then Exit

Local $Idx, $Cmd, $List = ProcessList()


For $i = 1 To $List[0][0]
    If  $List[$i][1] > 4 Then       ;exclusion process system (peut se faire autrement ... style si pas de .exe ...)
        $Idx = _ArraySearch($Exeptions, $List[$i][0])
        If @error = 6 Then          ;non trouvé dans le tableau
            $Cmd = @ComSpec & ' /c taskkill /pid ' & $List[$i][1] & ' /t /f'
            ConsoleWrite('on arrête ' & $List[$i][0] & ' via ' & $Cmd & @crlf)
        ;   RunWait($Cmd)           ;ne pouvant pas me permettre de virer mes process je la met en comment
                                    ; néanmoins une commande testée sur un EXE fonctionne :)
         EndIf
    EndIf
Next