请vbs高手分析这段代码错在哪里？？ - DOS批处理 & 脚本技术（批处理室） - 中国DOS联盟论坛

作者:

标题: 请vbs高手分析这段代码错在哪里？？

上一主题 | 下一主题

stornager
中级用户

scriptlover

积分 328
发帖 131
注册 2007-3-25
状态离线

『楼主』: 请vbs高手分析这段代码错在哪里？？

Set WshShell=CreateObject("Wscript.Shell") Intnum=Inputbox("Please enter a number: ") If Intnum=>6 Then WshShell.Run "cmd.exe" Wscript.Sleep 6000 Elseif Intnum=>1 and Intnum<6 Then WshShell.Run "iexplorer.exe" Wscript.End 为何运行时脚本提示最后一句缺少`end` 本人正在学习vbs，让高手见笑啦！！

scriptlover Be with script forever!!

2007-5-8 23:16

查看资料发送邮件发短消息网志

baomaboy
银牌会员

积分 1513
发帖 554
注册 2005-12-30
状态离线

『第 2 楼』:

Set WshShell=CreateObject("Wscript.Shell")
Intnum=Inputbox("Please enter a number: ")
If Intnum=>6 Then
WshShell.Run "cmd.exe"
Wscript.Sleep 6000
Elseif Intnum=>1 and Intnum<6 Then
WshShell.Run "iexplorer.exe"
End if

好多菩提树，好多明镜台。本来好多物，好多的尘埃。

2007-5-8 23:38

查看资料发送邮件发短消息网志

lxmxn
版主

积分 11386
发帖 4938
注册 2006-7-23
状态离线

『第 3 楼』:

Set WshShell=CreateObject("Wscript.Shell")
Intnum=Inputbox("Please enter a number: ")
If Intnum=>6 Then
WshShell.Run "cmd.exe"
Wscript.Sleep 6000
Elseif Intnum=>1 and Intnum<6 Then
WshShell.Run "iexplorer.exe"
Wscript.Quit(0)
End if

没有Wscript.End的用法。

2007-5-8 23:39

查看资料发送邮件发短消息网志

stornager
中级用户

scriptlover

积分 328
发帖 131
注册 2007-3-25
状态离线

『第 4 楼』:

谢谢二位指教。本人实在疏忽，在vbs中if......else循环语句必须要有endif作结束标记。刚学没多久，就昏头了。哎！！！！！

scriptlover Be with script forever!!

2007-5-9 14:51

查看资料发送邮件发短消息网志