latest collection of VBS TRICKS

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)

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

2

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)

3

open notepad and paste this code:

onclick=msgbox (“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

4

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 + 39
WshShell.Popup “In 39 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 50

5

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 To You (Non-Text Version)

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 Get The Computer To Talk To You (Text Version)

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 Another Chatbox

6

7

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 Timer Using Notepad

Open Notepad and type this in;

For i = 1 to 10
wscript.echo i
Next

save it as whatever.vbs

How To Make Your CDRom Open 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

DONE, ENJOY IT.

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s