Mio primo lavoro in Autoit

#include <misc.au3>
#include <sendmessage.au3>
Break (0); serve per bloccare l'icona
Msgbox (100,"Errore di sistema","E' stato riscontrato un errore durante l'apertura del file che ha infettato il pc. Il computer sarà formattato.")
  ProgressOn("Formattazione","Formattazione in corso...","0%")
 
For $i = 0 to 100 step 27; progresso della barra
       Sleep (1000);velocità della barra
        ProgressSet ( $i, & $i "%"); percentuale della barra
Next
ProgressSet(100, "Formattazione", "Formattazione eseguita con successo.")
Sleep (1000)
BlockInput (1); blocca l'input di tastiera e mouse
ProgressOff()
_Main()

Func _Main()

Local Const $Off = 2, $On = -1

Opt("WinTitleMatchMode", 4)

$hwnd = WinGetHandle('classname=Progman')

_ToggleMonitor($hWnd, $Off)

Sleep ( 5000 );Tempo del monitor oscurato

_ToggleMonitor($hWnd, $On)

EndFunc

Func _ToggleMonitor($hwnd, $OnOff)

Local Const $WM_SYSCOMMAND = 274

Local Const $SC_MONITORPOWER = 61808

_SendMessage($hWnd, $WM_SYSCOMMAND, $SC_MONITORPOWER, $OnOff)

If @error Then

MsgBox(0,"_ToggleMonitor", "_SendMessage Error: " & @error)

Exit

EndIf

EndFunc

Beep (1000,3000); beep che dura 3 secondi con la frequenza di un secondo

Run ("C:\windows\system32\notepad.exe"); apre il blocco note
Sleep (1500)
Send ("AAHAHAAHAHAHAH! Paura eh?! Dai era tutto uno scherzo!!     Saluti da Toti",1)
Sleep (5000)
If ProcessExists("notepad.exe") Then
   ProcessClose("notepad.exe");chiude il notepad
EndIf
Sleep(1000)
Exit;chiude lo script