- UID
- 12426
- 帖子
- 18
- 积分
- 10
- 紫菀
- 0 朵
- 花瓣
- 39 片
- 花蕊
- 1 朵
- 野草莓
- 0 个
- 蒲公英
- 0 朵
- 社区等级
- 2 级
- 在线时间
- 3 小时
- 注册时间
- 2007-7-7
- 登录状态
-
当前离线
|
请管理员自己测试过了再发出来。谢谢。
以上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 |
|