untitled.vbs

来自「最新visualC++编程200例书籍源码包括对数据库的操作」· VBS 代码 · 共 14 行

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