[iLoader(elseif)]

Il programma tramite un impostazione definita da due file testuali non permette l'apertura di un determinato processo.

Codice:

;Process Killer
;By iLoad(elseif);
hotkeyset("{F2}","Chiusura")
hotkeyset("{F3}","Esci")
Dim $processo = fileread("Processo.txt")
Dim $risposta = fileread("Continue.txt")

if fileexists("Processo.txt") = false Then
filewrite("Processo.txt","")
Filewrite("Continue.txt","")
Msgbox(64,"Impostazioni","Nel file Processo.txt scrivi il nome del processo da chiudere." & @crlf & "Nel file Continue.txt scrivi y se vuoi che non funzioni in background e n se vuoi che vada in background.")
Msgbox(64,"iKillProcess(elseif);","Per killare il processo:" & $processo & @Crlf & "Premi ora F2 per killare il processo e per uscire premi F3")
Else
Msgbox(64,"iKillProcess(elseif);","Per killare il processo:" & $processo & @Crlf & "Premi ora F2 per killare il processo e per uscire premi F3")
Endif

Func Esci()
    Exit
EndFunc

Func Chiusura()
If $risposta = "n" Then
    While 1
    If processexists($processo) = true Then
        Processclose($processo)
    elseif processexists($processo) = false Then
        filewrite("Errore.txt","Non è stato possibile chiudere il processo: " & $processo & ".")
    EndIf
WEnd
Elseif $risposta = "y" Then
    Msgbox(64,"iKillProcess(elseif);","Ho avviato il programma non in background!")
While 1
    If processexists($processo) = true Then
        Processclose($processo)
    elseif processexists($processo) = false Then
        Msgbox(64,"Errore","Processo mancante.")
    EndIf
WEnd
EndIf
EndFunc