Paulie Posted May 13, 2006 Share Posted May 13, 2006 (edited) Hey I made a program that takes an image of a BSOD and Splashes it onto the desktop full screen. Heres Code expandcollapse popupDim $check = 1 $Install = FileInstall("C:\Documents and Settings\AO\Desktop\bsod.jpg", @TempDir,1) If $install = 0 Then $check = 0 MsgBox(0,"Install Failed","File Install Failed") Else $check = 1 FileSetAttrib(@TempDir&"\bsod.jpg", "+H") Endif Dim $on = 1 ;------Turn on Hotkeyset("{Home}", "Turn_On") ;------Turn off For $letter = 97 to 122 $key = Chr($letter) HotkeySet($key, "Minimize") Next Hotkeyset("{SPACE}", "Minimize") Hotkeyset("{ESC}", "Minimize") Hotkeyset("{ENTER}", "Minimize") Hotkeyset("{TAB}", "Minimize") Hotkeyset("{UP}", "Minimize") Hotkeyset("{RIGHT}", "Minimize") Hotkeyset("{LEFT}", "Minimize") Hotkeyset("{DOWN}", "Minimize") ;------Defualt Func While 1 Sleep(1000) Wend ;------Hotkey Funtions Func Turn_On() If $check = 1 then WinMinimizeAll() SoundPlay("C:\WINDOWS\Media\Windows XP Error.wav) SplashImageOn("","C:\Documents and Settings\AO\Desktop\bsod.jpg", @DesktopWidth, @DesktopHeight, -1, -1, 1) Do Sleep(100) Until $on = 0 Endif Endfunc Func Minimize() $on = 0 Splashoff() Endfunc This one is not working as script because it has Fileinstall in it so i'll give the .au3 then it works (i think) Edited May 13, 2006 by Paulie Link to comment Share on other sites More sharing options...
Moderators SmOke_N Posted May 13, 2006 Moderators Share Posted May 13, 2006 Hey I made a program that takes an image of a BSOD and Splashes it onto the desktop full screen. Heres Code expandcollapse popupDim $check = 1 $Install = FileInstall("C:\Documents and Settings\AO\Desktop\bsod.jpg", @TempDir,1) If $install = 0 Then $check = 0 MsgBox(0,"Install Failed","File Install Failed") Else $check = 1 FileSetAttrib(@TempDir&"\bsod.jpg", "+H") Endif Dim $on = 1 ;------Turn on Hotkeyset("{Home}", "Turn_On") ;------Turn off For $letter = 97 to 122 $key = Chr($letter) HotkeySet($key, "Minimize") Next Hotkeyset("{SPACE}", "Minimize") Hotkeyset("{ESC}", "Minimize") Hotkeyset("{ENTER}", "Minimize") Hotkeyset("{TAB}", "Minimize") Hotkeyset("{UP}", "Minimize") Hotkeyset("{RIGHT}", "Minimize") Hotkeyset("{LEFT}", "Minimize") Hotkeyset("{DOWN}", "Minimize") ;------Defualt Func While 1 Sleep(1000) Wend ;------Hotkey Funtions Func Turn_On() If $check = 1 then WinMinimizeAll() SoundPlay("C:\WINDOWS\Media\Windows XP Error.wav) SplashImageOn("","C:\Documents and Settings\AO\Desktop\bsod.jpg", @DesktopWidth, @DesktopHeight, -1, -1, 1) Do Sleep(100) Until $on = 0 Endif Endfunc Func Minimize() $on = 0 Splashoff() Endfunc This one is not working as script because it has Fileinstall in it so i'll give the .au3 then it works (i think)The .au3 is the same as the code posted no? You should upload the .bmp and have the users comment out the FileInstall more than likely, or upload the .exe along with the .au3 Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer. Link to comment Share on other sites More sharing options...
Paulie Posted May 13, 2006 Author Share Posted May 13, 2006 (edited) The .au3 is the same as the code posted no? You should upload the .bmp and have the users comment out the FileInstall more than likely, or upload the .exe along with the .au3 Ok then heres the .jpg and a .rar wit all 3 files(.jpg, .au3, .exe) Edited May 13, 2006 by Paulie Link to comment Share on other sites More sharing options...
jacksont123 Posted May 14, 2006 Share Posted May 14, 2006 (edited) you can create a real bsod with this code: RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\i8042prt\Parameters", "CrashOnCtrlScroll", "REG_DWORD", "00000001") you can trigger the bsod by pressing "Right CTRL + ScrollLock Twice" does anyone know a way of using the Send function to press those buttons? Edited May 14, 2006 by The Great 'Awesoma-Powa!' Link to comment Share on other sites More sharing options...
Moderators SmOke_N Posted May 14, 2006 Moderators Share Posted May 14, 2006 you can create a real bsod with this code:RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\i8042prt\Parameters", "CrashOnCtrlScroll", "REG_DWORD", "00000001")you can trigger the bsod by pressing "Right CTRL + ScrollLock Twice"does anyone know a way of using the Send function to press those buttons?If you check out "Send" in the help file, it has all the RCTRL SCROLLLOCK toggle info. Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer. Link to comment Share on other sites More sharing options...
jacksont123 Posted May 14, 2006 Share Posted May 14, 2006 (edited) I tried: Send( "{RCTRL DOWN}{SCROLLLOCK 2}{RCTRL UP}" ) but it wouldn't work :\ Edited May 14, 2006 by The Great 'Awesoma-Powa!' Link to comment Share on other sites More sharing options...
DarkAngelBGE Posted May 14, 2006 Share Posted May 14, 2006 maybe have some sleep(100) in between? Link to comment Share on other sites More sharing options...
jacksont123 Posted May 14, 2006 Share Posted May 14, 2006 i'll try that. thanks. Link to comment Share on other sites More sharing options...
jacksont123 Posted May 14, 2006 Share Posted May 14, 2006 Send( "{RCTRL DOWN}" ) Sleep(100) Send( "{SCROLLLOCK 2}" ) Sleep(100) Send( "{RCTRL UP}" ) didn't work Link to comment Share on other sites More sharing options...
spyrorocks Posted May 14, 2006 Share Posted May 14, 2006 SoundPlay("C:\WINDOWS\Media\Windows XP Error.wav") Fixed minor error. [center] My Projects: Online AutoIt Compiler - AutoForum - AutoGuestbook - AutoIt Web-based Auto Installer - Pure AutoIt Zipping Functions - ConfuseGen - MindReader - P2PChat[/center] Link to comment Share on other sites More sharing options...
jvanegmond Posted May 14, 2006 Share Posted May 14, 2006 Send( "{RCTRL DOWN}" ) Sleep(100) Send( "{SCROLLLOCK 2}" ) Sleep(100) Send( "{RCTRL UP}" ) didn't work You need to restart your PC. (maybe just rebooting OS will work too -> AutoIt can do this) github.com/jvanegmond Link to comment Share on other sites More sharing options...
jacksont123 Posted May 14, 2006 Share Posted May 14, 2006 (edited) how can AutoIt do that? with this: "Shutdown (6)"? or a different method... Edited May 14, 2006 by The Great 'Awesoma-Powa!' Link to comment Share on other sites More sharing options...
spyrorocks Posted May 14, 2006 Share Posted May 14, 2006 heer are a few BSOD images that are good:BSOD #1BSOD #2BSOD #3 [center] My Projects: Online AutoIt Compiler - AutoForum - AutoGuestbook - AutoIt Web-based Auto Installer - Pure AutoIt Zipping Functions - ConfuseGen - MindReader - P2PChat[/center] Link to comment Share on other sites More sharing options...
Pa Callender Posted June 10, 2006 Share Posted June 10, 2006 Send( "{RCTRL DOWN}" ) Sleep(100) Send( "{SCROLLLOCK 2}" ) Sleep(100) Send( "{RCTRL UP}" ) didn't work Maybe because the Send() function is a Windows API, and, because the "Crashonscroll" is a windows setting, Windows is looking out for "RCtrl + Scroll Lock x2" on the keyboard, not in its APIs. All the API does is send the keypress to a program. The keyboard sends the keypress to the API, and then to the program. So what if the "RCtrl + Scroll Lock x2" catching program is between the API and the keyboard. Hmm? : Erm, am I gibbering again? : [size="4"]YOU SHALL NOT PARSE!![/size] Link to comment Share on other sites More sharing options...
nfwu Posted June 12, 2006 Share Posted June 12, 2006 Nope, you are not gibbering. I think there is some truth in that statement, which is the reason why some application cannot be automated.@The Great 'Awesoma-Powa!': Search for a function that has the word refresh in it. I can't remember the exact function at this moment.Some nice BSOD and Black SODs:#) TwitterOut of date stuff:Scripts: Sudoku Solver | Webserver | 3D library (Pure AutoIt) | Wood's GadgetsUDFs: _WoodUniqueID() | _DialogEditIni() | _Console*() | _GetIPConfigData() | _URLEncode/Decode() 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