Sign in to follow this  
Followers 0
Paulie

Bsod Faker

15 posts in this topic

#1 ·  Posted (edited)

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



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 :)

[center]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.[/center]

Share this post


Link to post
Share on other sites

#3 ·  Posted (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 by Paulie

Share this post


Link to post
Share on other sites

#4 ·  Posted (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 by The Great 'Awesoma-Powa!'

Share this post


Link to post
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?

If you check out "Send" in the help file, it has all the RCTRL SCROLLLOCK toggle info.

[center]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.[/center]

Share this post


Link to post
Share on other sites

#6 ·  Posted (edited)

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

maybe have some sleep(100) in between?

Share this post


Link to post
Share on other sites

i'll try that. thanks.


Share this post


Link to post
Share on other sites

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

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

#12 ·  Posted (edited)

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

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

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  
Followers 0