untitled.vbs

visual c++ 实例编程

Message_Text    = "This script ......"
Title_Text      = "Windows Scripting Host sample"
Call Welcome()

' ***************************************************************
' * Welcome
Sub Welcome()
    Dim intDoIt
    intDoIt =  MsgBox(Message_Text, vbOKCancel + vbInformation, Title_Text )
    If intDoIt = vbCancel Then
        WScript.Quit
    End If
End Sub