中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客注册登录会员网志搜索命令提示符 Bash 上传统计

中国DOS联盟论坛
现在时间是 2026-06-18 00:17

欢迎新会员 luminwei　 RSS
共 47,998 篇主题 / 350,070 篇帖子 / 今日 0 篇 / 48,211 位会员

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » VBS脚本错误... 查看 615　回复 6

楼主 VBS脚本错误... 发表于 2007-12-14 18:26　·　中国江苏无锡宜兴市电信

luckboy45

中级用户

★★

积分 487
发帖 212
注册 2007-04-01 08:22
UID 83597
性别男

状态离线

我想写一个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 楼发表于 2007-12-14 18:43　·　中国上海松江区电信

fastslz

铂金会员

★★★★

DOS一根葱

积分 5,493
发帖 2,315
注册 2006-05-01 10:41
UID 54766
性别男
来自上海

状态离线

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 楼发表于 2007-12-14 18:44　·　中国辽宁本溪联通

jmz573515

银牌会员

★★★

积分 1,212
发帖 464
注册 2006-12-13 21:11
UID 73417
性别男

状态离线

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 楼发表于 2007-12-14 18:51　·　中国江苏无锡宜兴市电信

luckboy45

中级用户

★★

积分 487
发帖 212
注册 2007-04-01 08:22
UID 83597
性别男

状态离线

感谢各位朋友的热情帮助,可惜的是,不能用啊,无法实现3个选项

是,否,取消,这3个按钮,直接跳出的是确定,2楼的朋友,写的代码,无论点退出,或确定都将执行
很不幸,我的朋友,这么简单的问题你都答错,是否访问DU110学习点知识?", 4, "绝对挑战之电脑知识问答")

3楼的朋友则是点确定和退出都是退出....貌似这个只能处理是和否吧,无法写第3个选项....

逍遥@浪子@反病毒

第 5 楼发表于 2007-12-14 18:57　·　中国辽宁本溪联通

jmz573515

银牌会员

★★★

积分 1,212
发帖 464
注册 2006-12-13 21:11
UID 73417
性别男

状态离线



n=msgbox("",vbyesnocancel,"")

if n=vbyes then

	msgbox "是"

elseif n=vbno then

	msgbox "否"

else

	msgbox "取消"

end if

第 6 楼发表于 2007-12-14 19:00　·　中国江苏无锡宜兴市电信

luckboy45

中级用户

★★

积分 487
发帖 212
注册 2007-04-01 08:22
UID 83597
性别男

状态离线

最后我写的是这样....

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 楼发表于 2007-12-14 19:06　·　中国江苏无锡宜兴市电信

luckboy45

中级用户

★★

积分 487
发帖 212
注册 2007-04-01 08:22
UID 83597
性别男

状态离线

呵呵,朋友,我刚想到后,写完贴上来就发现你已经把效果写出来了

逍遥@浪子@反病毒

可打印版本 | 订阅主题 | 收藏主题

论坛跳转: