srdemo.txt

如何使用MS Script OCX控件的例子

'***********************************
' VB Script Demo for Script Runner *
'***********************************
Const TITLE = "Script Runner Demo"

Sub Main()
Dim MyDate

  Select Case Msgbox("Hello! Do you want to know the Date ?", _
                     vbYesNo + vbQuestion, TITLE)

    Case vbYes
      GetDate MyDate
      If Msgbox("Today is " & MyDate & vbCrLf & "And also want to know the time ?" & _
                vbCrLf & "Dont say no or I will Raise an Exception !!!", _
                vbYesNo + vbExclamation + vbDefaultButton2, TITLE) = vbYes then
        Msgbox "The time is " & GetTime(), vbInformation, TITLE     
        Msgbox "See ya!!"    
      Else
        Err.Raise 1000, "Script Runner Demo", "Refuse to get time error :)"
      End If

    Case vbNo
      Call Msgbox("Bye!!", vbInformation, TITLE) 

  End Select
End Sub

Sub GetDate(X)
  X = CStr(Date())
End Sub

Function GetTime()
  GetTime = CStr(Time())
End Function