windows脚本(.vbs文件)示例

1.天数计算

Dim birth,msg,day,title
msg="输入你的生日：(1988年9月1日格式例如：09/01/1988)"
birth=Inputbox(msg,"出生天数计算")
day=DateDiff("d",birth,Date)
title="您的出生天数为"
MsgBox day, vbOKOnly + 48, title

2.对话框

Dim name,msg 
msg="请输入你的名字:" 
name=Inputbox(msg,"名称") 
Msgbox(name) 

3.选择

dim ans
ans=MsgBox("想明白生命的意义吗？",vbYesNo,"请选择YES或NO你会找到，生命的意义......") 
if ans=vbyes then 
           set aa=wscript.createobject("wscript.shell") 
           aa.run ("iexplore www.ets.org/gre/index.html") 
             else 
           set aa=wscript.createobject("wscript.shell") 
           aa.run ("iexplore www.mop.com") 
             end if

4.发音

CreateObject("SAPI.SpVoice").Speak  "Hello"