Jump to content

Bsod Faker


Paulie
 Share

Recommended Posts

Hey I made a program that takes an image of a BSOD and Splashes it onto the desktop full screen.

Heres Code

Dim $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 by Paulie
Link to comment
Share on other sites

  • Moderators

Hey I made a program that takes an image of a BSOD and Splashes it onto the desktop full screen.

Heres Code

Dim $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

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 by Paulie
Link to comment
Share on other sites

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 by The Great 'Awesoma-Powa!'
Link to comment
Share on other sites

  • Moderators

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

  • 4 weeks later...

Send( "{RCTRL DOWN}" )
Sleep(100)
Send( "{SCROLLLOCK 2}" )
Sleep(100)
Send( "{RCTRL UP}" )

didn't work :D

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

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:

Posted Image

Posted Image

Posted Image

Posted Image

#)

Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...