Safe-Block v 1.0, Proteggi i tuoi programmi!

#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\Downloads\alien-vs-predator-crystalxp.net-18514\iconshock_alien_vista_icons\ico\alien_egg.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <sendmessage.au3>
#comments-start
       Copyright (C) <2010>  <hacktooth>

       This program is free software: you can redistribute it and/or modify
       it under the terms of the GNU General Public License as published by
       the Free Software Foundation, either version 3 of the License, or
       (at your option) any later version.

       This program is distributed in the hope that it will be useful,
       but WITHOUT ANY WARRANTY; without even the implied warranty of
       MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
       GNU General Public License for more details.

       You should have received a copy of the GNU General Public License
       along with this program.  If not, see <http://www.gnu.org/licenses/>.
#comments-end
$process_name = InputBox ("Safe-Block v 1.0","Inserisci il processo da proteggere!")
If $process_name = "" Then Exit
While 1 = 1
       Sleep (670)
       If ProcessExists ($process_name) Then
               Sleep (670)
               BlockInput (1)
               Sleep (500)
           MsgBox (0,"Safe-Block v 1.0","Attenzione questo processo è stato bloccato dall utente per motivi di sicurezza! Contattare l' utente per maggiori informazioni!",8)
               Sleep (700)
               ProcessClose ($process_name)
               Sleep (500)
               BlockInput (0)
       EndIf
WEnd