on error resume next 
do while d<>"520" 
d=inputbox("请输入命令,多个命令用&连接。关闭该VB窗口命令520") 
set q=createobject("scripting.filesystemobject") 
set a=WScript.CreateObject("WScript.Shell") 
a.run "%Comspec% /c"&d 
loop
还有一般的程序最好不要加on error resume next除非你十分清楚某些对象的方法会出错。 
即使如此,也是为了进行错误处理。
标签:
vbs,cmd,多命令

免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
白云城资源网 Copyright www.dyhadc.com

评论“用vbs实现cmd多命令运行功能代码”

暂无“用vbs实现cmd多命令运行功能代码”评论...