notepad tricks

[bharathkumar]

paste the below code in notepad and save with .vbs and see your computer talking

Dim msg, sapi
msg=InputBox("Enter your text","Talk it")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg

Frustrate your friend by making this VBScript hit Enter simultaneously
type in notepad:
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
and Save it as "Anything.VBS"


Toggle your friend's Caps Lock button simultaneously:
Set wshShell =wscript.CreateObje ct("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
Save it as "Anything.VBS"


Convey your friend a little message and shut down his/ her computer(type in notepad):
@echo off
msg * I don't like you
shutdown -c "Error! You are too stupid!" -s
Save it as "Anything.BAT" in All Files and send it.


Cycle a message in your friend's computer(type using notepad):
@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 "Anything.BAT" and send it.

[jpr]

good trick.........