Partykilla 0 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 Share this post Link to post Share on other sites
MvGulik 86 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 ... Share this post Link to post Share on other sites
AdmiralAlkex 126 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 Share this post Link to post Share on other sites
Partykilla 0 Posted November 24, 2010 that one ain't working in win7.. Share this post Link to post Share on other sites
MvGulik 86 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 ... Share this post Link to post Share on other sites
AdmiralAlkex 126 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 Share this post Link to post Share on other sites
hot202 0 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 Share this post Link to post Share on other sites
matthieuvb 0 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] Share this post Link to post Share on other sites