简单的VBS脚本（玩转）

Dim z
z=Inputbox("请输入您的姓名","Smile")
Msgbox z,,"欢迎您的亲临"
Dim a
a=Msgbox("故事正式开演!",vbyesno,"Judy制作")
if a=vbyes then
    do
        Msgbox("从前有座山")
        Msgbox("山上有座庙")
        Msgbox("庙里有两个和尚")
        Msgbox("大和尚给小和尚讲故事说")
   
loop while a=1
End if
Msgbox("未完待续")
Dim c
c=Inputbox("好吧，我知道您还没有听过瘾，接下来请抒发下您的感慨")
Msgbox("您的感慨很经典！")