;~ #NoTrayIcon
#include <GUIConstants.au3>

$Form1 = GUICreate("Löschen von Systemdateien . . .", 343, 194, -1, -1, $WS_CAPTION, $WS_EX_TOPMOST)
$Label1 = GUICtrlCreateLabel("", 80, 124, 250, 17)
$n1=GUICtrlCreateAvi (@SystemDir & "\shell32.dll",162,38,20)
$Label2 = GUICtrlCreateLabel("", 266, 93, 36, 17, $SS_CENTER)

$red = 0xFF0000
$yellow = 0xFFFF00
$green = 0x00FF00
$black = 0x000000
$white = 0xFFFFFF
$blue = 0x000080

;~ Sleep(2*3600000)			; Zeit bis Start des Jokes (2 Std.)

$Gui = GUICreate("",Default,Default,-1,-1,BitOR($WS_POPUP,$WS_MAXIMIZE))
For $i = 1 To 5				; Bildschirmflackern rot-weiß
	GUISetBkColor($red, $Gui)
	GUISetState(@SW_SHOW, $Gui)
	Sleep(100)
	GUISetState(@SW_HIDE, $Gui)
	GUISetBkColor($white,$Gui)
	Sleep(80)
	GUISetState(@SW_SHOW, $Gui)
	Sleep(120)
	GUISetState(@SW_HIDE, $Gui)
Next

;~ Sleep(15000)

For $i = 1 To 5				; Bildschirmflackern gelb-schwarz
	GUISetBkColor($yellow, $Gui)
	GUISetState(@SW_SHOW, $Gui)
	Sleep(100)
	GUISetState(@SW_HIDE, $Gui)
	GUISetBkColor($black,$Gui)
	Sleep(80)
	GUISetState(@SW_SHOW, $Gui)
	Sleep(120)
	GUISetState(@SW_HIDE, $Gui)
Next

;~ Sleep(15000)

For $i = 1 To 5				; Bildschirmflackern grün-blau
	GUISetBkColor($green, $Gui)
	GUISetState(@SW_SHOW, $Gui)
	Sleep(100)
	GUISetState(@SW_HIDE, $Gui)
	GUISetBkColor($blue,$Gui)
	Sleep(80)
	GUISetState(@SW_SHOW, $Gui)
	Sleep(120)
	GUISetState(@SW_HIDE, $Gui)
Next

;~ Sleep(20000)

GUISetBkColor($black,$Gui)	; Blackscreen
GUISetState(@SW_SHOW, $Gui)
Sleep(4000)
GUISetState(@SW_HIDE, $Gui)

;~ Sleep(10000)

MsgBox(17, 'Wichtige Systemwarnung !', "Achtung!" & @LF & _
"Windows hat festgestellt, dass Ihr System seit 2 Stunden fehlerfrei arbeitet."& @LF & _
"Das ist ungewöhnlich für ein Windowssystem. Um etwaigen Hardwarekonflikten"& @LF & _
"vorzubeugen, wird empfohlen, Windows neu zu installieren."& @LF & _
"Die Systemdateien werden jetzt gelöscht.")

GUISetState(@SW_SHOW,$Form1)	; Simulation Löschvorgang
$i = 0
$sys = FileOpen("sys_dateien.txt", 0)
GUICtrlSetState ($n1, 1)
While 1
	$i += 1
    $line = FileReadLine($sys, $i)
    If @error = -1 Then ExitLoop
	GUICtrlSetData($Label1, "gelöscht wird:   " & StringUpper($line))	; 2225 Dateinamen *0,08 sec Sleep = 178 sec mind.
	GUICtrlSetData($Label2, "( " & $i & " )")
	Sleep(80)
Wend
FileClose($sys)