如何用VBScript代码创建一个简单的交互对话框，要求用户输入“爸爸”

该文章介绍通过vbs代码创建一个交互对话框要求用户输入"爸爸"才能退出，否则会一直弹出对话框。隐藏了黑窗口让用户不能直接通过关闭黑窗口而直接关闭对话框，只能通过任务管理器关闭或者输入"爸爸"关闭。

注意事项：

        用记事本编写完代码后，改为.vbs文件如果报错，记得在另存为时选择正确的编码格式，如果UTF-8不行则改为ANSI。

代码如下： 

Option Explicit

' 隐藏黑窗口
If WScript.FullName = "C:\Windows\System32\wscript.exe" Then
    ' 如果是通过 wscript 启动的，继续执行主体代码
Else
    ' 如果是通过 cscript 启动的，启动 wscript 来运行
    Dim objShell
    Set objShell = CreateObject("WScript.Shell")
    objShell.Run "wscript //nologo " & Chr(34) & WScript.ScriptFullName & Chr(34), 0, False
    WScript.Quit
End If

' 主体功能代码
Sub funny()
    Dim a
    Do
        a = InputBox("叫爸爸！")
        
        If a = "爸爸" Then
            MsgBox "儿子真乖！", 0, "恭喜"
            Exit Do  ' 输入正确，退出循环
        Else
            MsgBox "调皮，不叫爸爸还想跑?", 0, "再来一次！"
        End If
    Loop
End Sub

' 调用函数
funny()

结果展示：