Partykilla Posted November 24, 2010 Share Posted November 24, 2010 (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! Best Regards EDIT: Corrected an MINOR Error. Edited November 24, 2010 by Crysis Link to comment Share on other sites More sharing options...
MvGulik Posted November 24, 2010 Share Posted November 24, 2010 "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 ... Link to comment Share on other sites More sharing options...
AdmiralAlkex Posted November 24, 2010 Share Posted November 24, 2010 You have a cute cat .Some of my scripts: ShiftER, Codec-Control, Resolution switcher for HTC ShiftSome of my UDFs: SDL UDF, SetDefaultDllDirectories, Converting GDI+ Bitmap/Image to SDL Surface Link to comment Share on other sites More sharing options...
Partykilla Posted November 24, 2010 Author Share Posted November 24, 2010 that one ain't working in win7.. Link to comment Share on other sites More sharing options...
MvGulik Posted November 24, 2010 Share Posted November 24, 2010 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.) "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 ... Link to comment Share on other sites More sharing options...
AdmiralAlkex Posted November 24, 2010 Share Posted November 24, 2010 (how would he know I have on of those running around.) What? Not you .Some of my scripts: ShiftER, Codec-Control, Resolution switcher for HTC ShiftSome of my UDFs: SDL UDF, SetDefaultDllDirectories, Converting GDI+ Bitmap/Image to SDL Surface Link to comment Share on other sites More sharing options...
hot202 Posted November 25, 2010 Share Posted November 25, 2010 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 Link to comment Share on other sites More sharing options...
matthieuvb Posted November 26, 2010 Share Posted November 26, 2010 NICE! but this is the bluescreen of older windows versions!!! NICE! [font=Helvetica, Arial, sans-serif][background=rgb(252, 252, 250)][/background][/font] Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now