[贴士] 是否对话框

SzAngel

在从零开始学起时,在我硬盘上一些曾经帮助我很多的小纸条!--Sz

set fso=CreateObject("Scripting.Filesystemobject")
set Obj=createobject("WScript.Shell")
yesno=Obj.Popup(" 你好，是否试用？",0,"加密！",36)
if yesno=6
msgbox("是")
end if
if yesno=7
msgbox("否")
end if
Wscript.Quit

jneyxwry

请管理员自己测试过了再发出来。谢谢。

以上VBS我看了一下有误，我已经帮你改了一下。
if * = * then
*****
end if

这是基本的语法，希望管理员改正，以下是我改好了的代码：

set fso=CreateObject("Scripting.Filesystemobject")
set Obj=createobject("WScript.Shell")
yesno=Obj.Popup(" 你好，是否试用？",0,"加密！",36)
if yesno=6 THEN
msgbox("是")
end if
if yesno=7 THEN
msgbox("否")
end if
Wscript.Quit

SzAngel

的确,感谢修正哈

不过我发的不是纯VBS,而是按键使用的VBS语句
VBS标准的IF语句在按键精灵里不能使用的,包括MSGBOX