- Offizieller Beitrag
Na, ist der Kollege immer böse zu euch und braucht dringend mal ein Schockerlebnis?
Sofern er Computermäßig nicht sehr bewandert ist könnt ihr ihm hiermit sicher einen schönen Schreck einjagen.
Nach 2 Stunden Laufzeit meldet sich das Skript erstmal mit buntem Bildschirmgeflacker.
Dann folgt eine "Systemwarnung". Egal, wie der User reagiert - jetzt kommt eine GUI die vorgaukelt, dass Systemdateien gelöscht werden. Dazu ist die Datei "sys_dateien.txt" mit in das Scriptverzeichnis zu kopieren. Dort sind 2225 Dateinamen hinterlegt! Der "Löschvorgang" ist mir, denk ich, grafisch recht gut gelungen.
Es gibt auch keine Möglichkeit, das Script zu beenden (außer natürlich über den Taskmanager).
Momentan sind alle vorhandenen "Sleep( )" und das "#NoTrayIcon" auskommentiert, damit man es mal eben testen (und beenden) kann.
Aber denkt dran - es ist zwar ein Scherz, aber er ist ziemlich böse. :rofl_devil:
Seid also in der Nähe, wenn es losgeht um einem Herzinfarkt zuvorzukommen. (Und natürlich um eure Bosheit zu genießen)
Ach ja:
Zu Risiken und Nebenwirkungen fragen sie den Codierer ihres Vertrauens.
Spoiler anzeigen
;~ #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.)
[/autoit] [autoit][/autoit] [autoit]$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)
[/autoit] [autoit][/autoit] [autoit]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)
[/autoit] [autoit][/autoit] [autoit]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)
[/autoit] [autoit][/autoit] [autoit]GUISetBkColor($black,$Gui) ; Blackscreen
GUISetState(@SW_SHOW, $Gui)
Sleep(4000)
GUISetState(@SW_HIDE, $Gui)
;~ Sleep(10000)
[/autoit] [autoit][/autoit] [autoit]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)