Vbs Hacks

Vbs stands for virtual basic. It is also a language default on Windows.

 You use the same notepad style way to save but instead save with a .vbs extension.

How to open your cdrom using notepad

open notepad and paste this code:

Set owMP = CreateOBject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
for i= 0 to colCDROMs.Count - 1
colCDROMS.Item(i).Eject
Next ' cdrom
end if

save as whatever.vbs. click the icon and watch

how to make a pop-up (#1)

open notepad and paste this code:

x = MsgBox("whatever you want to say",5+48,"whatever you want to say")

 save as whatever.vbs. click the icon and enjoy

how to make a chatbox

open notepad and paste this code:

dim fname
fname=inputbox("hi whats your name?")

save as whatever.vbs. click the icon and enjoy.

how to make a pop-up (#2)

open notepad and paste this code:

onclick=msgbox ("cody rulez doesn't he (whatever you want to say",20,"whatever you want to say")

 save as whatever.vbs. click icon and ejoy.

how to make notepad tell you how old you will be in 39 years

First open Notepad. Then type this in:

WScript.Echo "Hello!"

Set WshShell = WScript.CreateObject("WScript.Shell")
age = InputBox("how old you are now.")

newage = your age here + 40
WshShell.Popup "In 40 years, you will be " & newage & "."

then save as age.vbs then click the icon and watch.

how to make notepad tell you in what year you will be in 50

First open Notepad. Then type this in:

WScript.Echo "Hello!"

Set WshShell = WScript.CreateObject("WScript.Shell")
birthdate = InputBox("the year you were born.")

newage = the year you were born + 50
WshShell.Popup "In " & newage & " you'll be 50."

then save as years.vbs then click the icon and watch

How to get the computer to talk (speaking computer)

Open Notepad and type this in:

strText  = ("what ever you want to say")
Set objvoice = CreateObject ("SAPI.SpVoice")
ObjVoice.Speak strText

then save as whatever.vbs then click the icon and listen

how to get the computer to talk (text mode)

Open Notepad and type this in:

strText = inputbox("What should Sam say?","Sam")
Set objVoice = CreateObject ("SAPI.SpVoice")
ObjVoice.speak strText

save it as whatever.vbs.

how to make a real chat box

Open Notepad and type this in:

dim fname
fname=inputbox("what ever you want to say here")
msgbox fname

save it as whatever.vbs

how to make a counter using .vbs

Open Notepad and type this in;

For i = 1 to 10
wscript.echo i
Next

save it as whatever.vbs

how to make you cdrom open and shut as many times as you want

Open Notepad and type this in:

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
for i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
Next ' cdrom
End if

'each "colCDROMs.Item(i).Eject" makes the cdrom open and another means shut so if you type it in 50 times it will open and shut 25 times."

 save it as whatever.vbs