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

open notepad and paste this code:

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

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