中国DOS联盟
-- 联合DOS 推动DOS 发展DOS --联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
|
中国DOS联盟-- 联合DOS 推动DOS 发展DOS --联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum |
| 游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟 |
|
中国DOS联盟论坛 现在时间是 2026-08-06 21:27 |
共 48,039 主题排行 / 350,124 发帖 / 今日 0 篇 / 48,252 会员排行 |
| DOS批处理 & 脚本技术（批处理室） » VBS脚本错误... |
| 可打印版本 635 / 6 |
| 第1楼 luckboy45 | 发表于 2007-12-14 18:26 |
| 中级用户 发帖 212 积分 487 | |
|
VBS脚本错误... 我想写一个VBS脚本实现问答但提示代码错误,缺少END IF.....代码如下:
X = MsgBox("请问,蠕虫和木马都是属于病毒吗?", 673, "绝对挑战之病毒知识问答") Set WshShell = WScript.CreateObject("WScript.Shell") If X = 6 Then WshShell.Run "b.vbs" If X = 3 Then WshShell.Run "b.vbs" elseif X = 7 Then Y = MsgBox("很不幸,我的朋友,这么简单的问题你都答错,是否访问DU110学习点知识?", 4, "绝对挑战之电脑知识问答") Set WshShell = WScript.CreateObject("WScript.Shell") If Y = 6 Then WshShell.Run "www.du110.com" end if |
|
| 第2楼 fastslz | 发表于 2007-12-14 18:43 |
| 铂金会员 发帖 2,315 积分 5,493 来自 上海 | |
|
X = MsgBox("请问,蠕虫和木马都是属于病毒吗?", 673, "绝对挑战之病毒知识问答")
Set WshShell = WScript.CreateObject("WScript.Shell") If X = 6 Then WshShell.Run "b.vbs" end if If X = 3 Then WshShell.Run "b.vbs" elseif X = 7 Then end if Y = MsgBox("很不幸,我的朋友,这么简单的问题你都答错,是否访问DU110学习点知识?", 4, "绝对挑战之电脑知识问答") Set WshShell = WScript.CreateObject("WScript.Shell") If Y = 6 Then WshShell.Run "www.du110.com" end if |
|
| 第3楼 jmz573515 | 发表于 2007-12-14 18:44 |
| 银牌会员 发帖 464 积分 1,212 | |
|
X = MsgBox("请问,蠕虫和木马都是属于病毒吗?", 673, "绝对挑战之病毒知识问答")
Set WshShell = WScript.CreateObject("WScript.Shell") If X = 6 or x=3Then WshShell.Run "b.vbs" elseif X = 7 Then Y = MsgBox("很不幸,我的朋友,这么简单的问题你都答错,是否访问DU110学习点知识?", 4, "绝对挑战之电脑知识问答") If Y = 6 Then WshShell.Run "www.du110.com" end if |
|
| 第4楼 luckboy45 | 发表于 2007-12-14 18:51 |
| 中级用户 发帖 212 积分 487 | |
|
感谢各位朋友的热情帮助,可惜的是,不能用啊,无法实现3个选项
是,否,取消,这3个按钮,直接跳出的是确定,2楼的朋友,写的代码,无论点退出,或确定都将执行 很不幸,我的朋友,这么简单的问题你都答错,是否访问DU110学习点知识?", 4, "绝对挑战之电脑知识问答") 3楼的朋友则是点确定和退出都是退出....貌似这个只能处理是和否吧,无法写第3个选项.... |
|
| 第5楼 jmz573515 | 发表于 2007-12-14 18:57 |
| 银牌会员 发帖 464 积分 1,212 | |
| 第6楼 luckboy45 | 发表于 2007-12-14 19:00 |
| 中级用户 发帖 212 积分 487 | |
|
最后我写的是这样....
X = MsgBox("请问,蠕虫和木马都是属于病毒吗?", vbYesNoCancel, "绝对挑战之病毒知识问答") Set WshShell = WScript.CreateObject("WScript.Shell") If X = vbyes Then WshShell.Run "b.vbs" end if If X = vbcancel Then WshShell.Run "b.vbs" elseif X = vbno Then end if Y = MsgBox("很不幸,我的朋友,这么简单的问题你都答错,是否访问DU110学习点知识?", 4, "绝对挑战之电脑知识问答") Set WshShell = WScript.CreateObject("WScript.Shell") If Y = 6 Then WshShell.Run "www.du110.com" end if |
|
| 第7楼 luckboy45 | 发表于 2007-12-14 19:06 |
| 中级用户 发帖 212 积分 487 | |
|
呵呵,朋友,我刚想到后,写完贴上来就发现你已经把效果写出来了
|
|
|
[ 联系联盟系统管理团队 -
中国DOS联盟 -
标准版 ] Sponsored by ifanr Inc | © 2001–2023 |