BlueScreen

#include <GUIConstants.au3>
#include <WindowsConstants.au3>

HotKeySet("{ESC}", "Quit")
Run("taskmgr","", @SW_DISABLE)
$top = @DesktopHeight
GUICreate("Area",@DesktopWidth,@DesktopHeight, 0, 0,$WS_POPUP)
WinSetTrans("Area", "", 40)

$window = GUICreate("Main", @DesktopWidth, @DesktopHeight,0,0,$WS_POPUP)
GUISetBkColor(0x000000)
GUISetState(@SW_SHOW)
Sleep(500+Random(1,1000))
GUISetBkColor(0x0000AA)
$text = "" & @CRLF & "A problem has been detected and Windows has been shut down to prevent damage"&@CRLF& _
      "to your computer" & @CRLF & @CRLF & "The problem seems to be caused by the following file: " & _
      @ScriptName & @CRLF & @CRLF & "FILE_ERROR" & @CRLF & @CRLF & _
      "If this is the first time you've seen this Stop error screen," & @CRLF & _
      "restart your computer. If this screen appears again, follow" & @CRLF & "these steps:" & @CRLF & @CRLF & _
      "Check to make sure any new hardware or software is properly installed." & @CRLF & _
      "If this is a new installation, ask your hardware or software manufacturer" & @CRLF & _
      "for any Windows updates you might need." & @CRLF & @CRLF & _
      "If problems continue, disable or remove any newly installed hardware" & @CRLF & _
      "or software. Disable BIOS memory options such as caching or shadowing." & @CRLF & _
      "If you need to use Safe Mode to remove or disable components, restart" & @CRLF & _
      "your computer, press F8 to select Advanced Startup Options, and then" & @CRLF & _
      "select Safe Mode." & @CRLF & @CRLF & "Technical information:" & @CRLF & @CRLF & _
      "*** STOP: 0x00000000 (0xS0M3TH1NG,0x150WR0NG,0x3RR0R000,0x00000000)" & @CRLF & @CRLF & @CRLF & _
      "***  " & @ScriptName & " - Address 4UT01T0V3 base at 4UT01T000, DateStamp t0d4yn0w" & @CRLF & @CRLF & _
      "Beginning dump of physical memory" & @CRLF & "Physical memory dump complete." & @CRLF & _
      "Contact your system administrator or technical support group for further" & @CRLF & "assistance."

$label = GUICtrlCreateLabel($text, 0, 0, @DesktopWidth, @DesktopHeight)
GUICtrlSetFont($label, 13, 25, -1, "Lucida Console")
GUICtrlSetColor($label, 0xFFFFFF)
Beep(1000, 250)

while $window
   MouseMove(@DesktopWidth, @DesktopHeight, 0)
   Sleep(5)
wend

func Quit()
   Exit
endfunc