用vbs实现cmd多命令运行功能代码
摘要：onerrorresumenextdowhiled"520"d=inputbox("请输入命令,多个命令用&连接。关闭该VB窗口命令520"...
onerrorresumenext
dowhiled<>"520"
d=inputbox("请输入命令,多个命令用&连接。关闭该VB窗口命令520")
setq=createobject("scripting.filesystemobject")
seta=WScript.CreateObject("WScript.Shell")
a.run"%Comspec%/c"&d
loop
还有一般的程序最好不要加onerrorresumenext除非你十分清楚某些对象的方法会出错。
即使如此，也是为了进行错误处理。
【用vbs实现cmd多命令运行功能代码】相关文章：