Question

vbs点击取消怎样退出程序？

我这个现在点击确定与取消都是显示时间，我想让他点击取消后就退出！以下是源代码：
xz=InputBox("时间显示器"& Chr(13) & "点击确定显示现在的时间","时间显示器1.0（侯硕制作）","此处禁止输入任何字符") msgbox now MsgBox "点击确定退出程序？",64,"时间显示器1.0退出" WScript.Quit 请哪位大神帮我看看怎样添加代码？

Answer 1

1. 右击桌面空白处，新建文本文档，重命名为随意名称，如“结束VBS.txt”。

2. 双击打开“结束VBS.txt”，在里面输入：【dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "taskkill /im wscript.exe /f ",0 ,true 】，“【】”不要输入，换行格式，然后保存退出。

3. 保存后，若未显示“txt”扩展名，修改系统显示扩展名设置，然后修改文件扩展名为".vbs"，点击“是”。
   

4. 运行好友给你发的整蛊vbs程序，就会一直循环下去，但是此时此刻，你只要双击“结束VBS.vbs”即可立即退出程序。

Answer 2

'添加IF判断

xz=InputBox("时间显示器"& Chr(13) & "点击确定显示现在的时间","时间显示器1.0（侯硕制作）","此处禁止输入任何字符")
If xz="" Then
WScript.Quit
Else
msgbox now
MsgBox "点击确定退出程序？",64,"时间显示器1.0退出"
WScript.Quit
End If

InputBox 如果点击取消会返回空.

Answer 3

Response=InputBox("时间显示器"& Chr(13) & "点击确定显示现在的时间"& chr(13) &"点击取消退出","时间显示器1.0（侯硕制作）","此处禁止输入任何字符")
If Response=vbcancle Then
Wscript.Quit
Else
Msgbox now
End If
这个的话可以判断在Inputbox按的哪个按钮，然后用if语句进行判断。
望采纳！谢谢！