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 时间: 2007-12-19 00:21
请管理员自己测试过了再发出来。谢谢。
以上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 时间: 2007-12-19 06:39