21-09-2012, 07:24 PM
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