CODICE
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
Opt("GUICloseOnESC", 1)
Opt("MustDeclareVars", 0)
HotKeySet("{esc}", "esci")
If $CMDLine[0] > 0 Then
$modalita = StringRegExpReplace($CMDLine[1], "-", "/", 1)
EndIf
If $CMDLine[0] = 0 Then
MsgBox(0, "RiKI ScreenSaver - Format C: Version", " Modalitą di prova dello screensaver... ", 10)
$GUI = GUICreate("", @DesktopWidth, @DesktopHeight, 0, 0, BitOR($WS_POPUP,$WS_CLIPSIBLINGS))
GUISetBkColor(0x000000)
GUISetState(@SW_SHOW, $GUI)
GUISetCursor(16, 1, $GUI)
Sleep(1000)
Global $mouse = MouseGetPos()
While 1
screensaver()
Sleep(500)
controlla_mouse()
Sleep(500)
controlla_mouse()
Sleep(500)
controlla_mouse()
Sleep(500)
controlla_mouse()
Sleep(500)
controlla_mouse()
Sleep(500)
controlla_mouse()
Sleep(500)
controlla_mouse()
Sleep(500)
controlla_mouse()
WEnd
ElseIf $CMDLine[0] > 0 AND $modalita = "/c" Then
MsgBox(0, "RiKI ScreenSaver - Format C: Version", "© 2010 by RiKI, vietata la copia anche parziale.")
ElseIf $CMDLine[0] > 0 AND $modalita = "/s" Then
$GUI = GUICreate("", @DesktopWidth, @DesktopHeight, 0, 0, BitOR($WS_POPUP,$WS_CLIPSIBLINGS))
GUISetBkColor(0x000000)
GUISetState(@SW_SHOW, $GUI)
Sleep(1000)
Global Const $mouse = MouseGetPos()
While 1
screensaver()
Sleep(500)
controlla_mouse()
Sleep(500)
controlla_mouse()
Sleep(500)
controlla_mouse()
Sleep(500)
controlla_mouse()
Sleep(500)
controlla_mouse()
Sleep(500)
controlla_mouse()
Sleep(500)
controlla_mouse()
Sleep(500)
controlla_mouse()
WEnd
EndIf
Func screensaver()
controlla_mouse()
$font = "Courier New"
$lbl1 = GUICtrlCreateLabel("C:\Windows>format c:", 10, 5, @DesktopWidth - 10)
GUICtrlSetFont(-1, 13, 400, "", $font)
GUICtrlSetColor(-1, 0xFFFFFF)
controlla_mouse()
Sleep(500)
controlla_mouse()
Sleep(500)
controlla_mouse()
Sleep(500)
controlla_mouse()
Sleep(500)
$lbl2 = GUICtrlCreateLabel("Formatting C: Drive. Please, wait...", 10, 24, @DesktopWidth - 10)
GUICtrlSetFont(-1, 13, 400, "", $font)
GUICtrlSetColor(-1, 0xFFFFFF)
controlla_mouse()
Sleep(500)
$percent = GUICtrlCreateLabel("Completed: 0%", 10, 43, @DesktopWidth - 10)
GUICtrlSetFont(-1, 13, 400, "", $font)
GUICtrlSetColor(-1, 0xFFFFFF)
$n_daeseguire = 72
$n_esec = 0
While $n_esec < $n_daeseguire
$n_esec = $n_esec + 1
Sleep(120)
GUICtrlSetData($percent, "Completed: " & $n_esec & "%")
controlla_mouse()
WEnd
Sleep(500)
controlla_mouse()
Sleep(500)
controlla_mouse()
Sleep(500)
controlla_mouse()
Sleep(500)
controlla_mouse()
$lbl3 = GUICtrlCreateLabel("Fatal Error. System shutdown in progress... Ma non posso perchč sono uno Screen Saver!", 10, 62, @DesktopWidth - 10)
GUICtrlSetFont(-1, 13, 400, "", $font)
GUICtrlSetColor(-1, 0xFFFFFF)
controlla_mouse()
Sleep(500)
controlla_mouse()
Sleep(500)
controlla_mouse()
Sleep(500)
controlla_mouse()
Sleep(500)
controlla_mouse()
Sleep(500)
controlla_mouse()
Sleep(500)
controlla_mouse()
Sleep(500)
controlla_mouse()
Sleep(500)
controlla_mouse()
GUICtrlDelete($lbl1)
GUICtrlDelete($lbl2)
GUICtrlDelete($lbl3)
GUICtrlDelete($percent)
EndFunc
Func controlla_mouse()
$xy = $mouse[0] + $mouse[1]
$c_xy = MouseGetPos(0) + MouseGetPos(1)
If $xy = $c_xy Then
NOP()
Else
Exit 1
EndIf
EndFunc
Func NOP()
$a = 1
EndFunc
Func esci()
Exit 2
EndFunc