Jump to content
Sign in to follow this  
Paulie

Bsod Faker

Recommended Posts

Paulie

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

Share this post


Link to post
Share on other sites
SmOke_N

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.

Share this post


Link to post
Share on other sites
Paulie

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

Share this post


Link to post
Share on other sites
jacksont123

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!'

Share this post


Link to post
Share on other sites
SmOke_N

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.

Share this post


Link to post
Share on other sites
jacksont123

I tried:

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

but it wouldn't work :\

Edited by The Great 'Awesoma-Powa!'

Share this post


Link to post
Share on other sites
DarkAngelBGE

maybe have some sleep(100) in between?

Share this post


Link to post
Share on other sites
jacksont123

i'll try that. thanks.


Share this post


Link to post
Share on other sites
jacksont123

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

didn't work :)


Share this post


Link to post
Share on other sites
jvanegmond

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)

Share this post


Link to post
Share on other sites
jacksont123

how can AutoIt do that?

with this: "Shutdown (6)"?

or a different method...

Edited by The Great 'Awesoma-Powa!'

Share this post


Link to post
Share on other sites
Pa Callender

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]

Share this post


Link to post
Share on other sites
nfwu

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

#)

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  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.