|
luckboy45
中级用户
积分 487
发帖 212
注册 2007-4-1
状态 离线
|
『楼 主』:
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
|
逍遥@浪子@反病毒 |
|
 2007-12-14 18:26 |
|
|
fastslz
铂金会员
DOS一根葱
积分 5493
发帖 2315
注册 2006-5-1
来自 上海
状态 离线
|
『第
2 楼』:
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
|
第一高手 第二高手
我的小站
 |
|
|
2007-12-14 18:43 |
|
|
jmz573515
银牌会员
积分 1212
发帖 464
注册 2006-12-13
状态 离线
|
『第
3 楼』:
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
|
|
|
2007-12-14 18:44 |
|
|
luckboy45
中级用户
积分 487
发帖 212
注册 2007-4-1
状态 离线
|
『第
4 楼』:
感谢各位朋友的热情帮助,可惜的是,不能用啊,无法实现3个选项
是,否,取消,这3个按钮,直接跳出的是确定,2楼的朋友,写的代码,无论点退出,或确定都将执行
很不幸,我的朋友,这么简单的问题你都答错,是否访问DU110学习点知识?", 4, "绝对挑战之电脑知识问答")
3楼的朋友则是点确定和退出都是退出....貌似这个只能处理是和否吧,无法写第3个选项....
|
逍遥@浪子@反病毒 |
|
|
2007-12-14 18:51 |
|
|
jmz573515
银牌会员
积分 1212
发帖 464
注册 2006-12-13
状态 离线
|
『第
5 楼』:
n=msgbox("",vbyesnocancel,"")
if n=vbyes then
msgbox "是"
elseif n=vbno then
msgbox "否"
else
msgbox "取消"
end if
|
|
|
2007-12-14 18:57 |
|
|
luckboy45
中级用户
积分 487
发帖 212
注册 2007-4-1
状态 离线
|
『第
6 楼』:
最后我写的是这样....
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
|
逍遥@浪子@反病毒 |
|
|
2007-12-14 19:00 |
|
|
luckboy45
中级用户
积分 487
发帖 212
注册 2007-4-1
状态 离线
|
『第
7 楼』:
呵呵,朋友,我刚想到后,写完贴上来就发现你已经把效果写出来了
|
逍遥@浪子@反病毒 |
|
|
2007-12-14 19:06 |
|
|
