Blue Sreen of Death!

[Partykilla]

#include <GUIConstants.au3>
HotKeySet("{Enter}", "terminate")
 MouseMove(@DesktopWidth, 0, 0)
GUICreate ('Bluescreen', @DesktopWidth + '50' , @DesktopHeight + '50')
GUISetBkColor (0x0000AA)
GUISetIcon('shell32.dll', 295)
    $w = GUICtrlCreateButton(" Windows ", @DesktopWidth/2.5, 220, 99, 26)
    GUIctrlSetBkColor($w, 0xC0C0C0)
        GUICtrlSetFont($w, 17, 400, -1, "Lucida Console")
        GUICtrlSetColor($w, 0x0000FF)
    $m1 = GUICtrlCreateLabel ('An critical error has accurred.', @DesktopWidth/3, 300, 700)
        GUICtrlSetFont($m1, 14, 400, -1, "Lucida Console")
        GUICtrlSetColor($m1, 0xFFFFFF)
    $m2 = GUICtrlCreateLabel ('* Press Enter to return to Windows, or', @DesktopWidth/3, 340, 700)
        GUICtrlSetFont($m2, 14, 400, -1, "Lucida Console")
        GUICtrlSetColor($m2, 0xFFFFFF) 
    $m3 = GUICtrlCreateLabel ('* Press CTRL+ALT+DEL to restart your computer. If you do this,', @DesktopWidth/3, 370, 700, 23)
            GUICtrlSetFont($m3, 14, 400, -1, "Lucida Console")
        GUICtrlSetColor($m3, 0xFFFFFF)
    $m4 = GUICtrlCreateLabel ('you will lose any unsaved information in all open applications.', @DesktopWidth/3, 395, 700, 23)
                GUICtrlSetFont($m4, 14, 400, -1, "Lucida Console")
        GUICtrlSetColor($m4, 0xFFFFFF)
    $m5 = GUICtrlCreateLabel ('Error: Most likely you are an fagit :)', @DesktopWidth/3, 445, 700)
                GUICtrlSetFont($m5, 14, 400, -1, "Lucida Console")
        GUICtrlSetColor($m5, 0xFFFFFF)
    $m6 = GUICtrlCreateLabel ('Press any key to continue _', @DesktopWidth/3, 540, 700, 25)
                GUICtrlSetFont($m6, 14, 400, -1, "Lucida Console")
        GUICtrlSetColor($m6, 0xFFFFFF)
GUISetState (@SW_SHOW)
Beep(1500,300)
while 1=1
 MouseMove(@DesktopWidth, 0, 0)
wend
Func terminate()
Exit   
Endfunc

My first script really,

Feedbacks are welcome!

And sure, make my script better please.

-That would be fun!

Best Regards

EDIT: Corrected an MINOR Error.

Edited November 24, 2010 by Crysis

[MvGulik]

[AdmiralAlkex]

You have a cute cat

[Partykilla]

that one ain't working in win7..

[MvGulik]

that one ain't working in win7..

I would'n know. Just linking up similar topics.

You have a cute cat

(how would he know I have on of those running around.)

[AdmiralAlkex]

(how would he know I have on of those running around.)

What? Not you

[hot202]

With _BlockinputEx

expandcollapse popup

#include <BlockInputEx.au3>
#include <GUIConstants.au3>


HotKeySet("^!e", "_Exit")
MouseMove(@DesktopWidth, 0, 0)
GUICreate ('BSoD', @DesktopWidth + '50' , @DesktopHeight + '50')
GUISetBkColor (0x0000AA)
GUISetIcon('shell32.dll', 295)
$Label = GUICtrlCreateLabel("A problem has been detected and Windows has been shut down to prevent damage" & @CRLF & _
"to your computer." & @CRLF & _
@CRLF & _
"DRIVER_POWER_STATE_FAILURE" & @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: 0x0000009F (0x00000004,0x00000258,0x838E5D48,0x00000000)" & @CRLF & _
@CRLF & _
@CRLF & _
@CRLF & _
"Collecting data for crash dump ..." & @CRLF & _
"Initializing disk for crash dump ..." & @CRLF & _
"Beginning dump of physical memory." & @CRLF & _
"Dumping physical memory to disk:  75", 30, 50, @DesktopWidth - 10, @DesktopHeight - 10)
                GUICtrlSetFont($Label, 14, 400, -1, "Lucida Console")
        GUICtrlSetColor($Label, 0xFFFFFF)
GUISetState (@SW_SHOW)
Beep(1500,300)
 _BlockInputEx(2)
while 1
    $pos = MouseGetPos()
    If $pos[0] = @DesktopWidth And $pos[1] = 0 Then
        ;Do Nothing
    Else
         _BlockInputEx(0)
        MouseMove(@DesktopWidth, 0, 0)
         _BlockInputEx(2)
    EndIf
 Sleep(100)
wend
Func _Exit()
Exit
Endfunc

[matthieuvb]

NICE! but this is the bluescreen of older windows versions!!! NICE!