Sign in to follow this  
Followers 0
Partykilla

Blue Sreen of Death!

8 posts in this topic

#1 ·  Posted (edited)

#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! :graduated:

Best Regards

EDIT: Corrected an MINOR Error.

Edited by Crysis

Share this post


Link to post
Share on other sites



:graduated:

that one ain't working in win7..

Share this post


Link to post
Share on other sites

that one ain't working in win7..

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

You have a cute cat :graduated:

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

"Straight_and_Crooked_Thinking" : A "classic guide to ferreting out untruths, half-truths, and other distortions of facts in political and social discussions."
"The Secrets of Quantum Physics" : New and excellent 2 part documentary on Quantum Physics by Jim Al-Khalili. (Dec 2014)

"Believing what you know ain't so" ...

Knock Knock ...
 

Share this post


Link to post
Share on other sites

With _BlockinputEx

#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

Share this post


Link to post
Share on other sites

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


[font=Helvetica, Arial, sans-serif][background=rgb(252, 252, 250)][/background][/font]

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0