NOTEPAD TRICKS. VBS

Posted by on

Welcome To The .Vbs

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 ("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 + 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

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 

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

That's The End For .Vbs

Comments

Post a Comment