PC-SPEAK

MAKE YOUR COMPUTER SPEAK WHAT YOU TYPE

CODE

   Dim Message, Speak

   Message=InputBox("Enter text","Speak")

   Set Speak=CreateObject("sapi.spvoice")

   Speak.Speak Message

SAVE IT AS SPEAK.VBS

output

Read More

POPUP CD-ROM PRANK

POPUP CD-ROM

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 5000

loop

SAVE IT AS CD.VBS

:p

Read More

MESSAGE LOOP PRANK

MSG LOOP

CODE

Set wshShell = wscript.CreateObject("WScript.Shell")

do

wscript.sleep 100

wshshell.sendkeys "This is a Virus. You have been infected."

loop

SAVE IT AS MSG.VBS

:p

Read More