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除非你十分清楚某些对象的方法会出错。
即使如此，也是为了进行错误处理。

三个不同文件停顿二秒弹出不同窗口的批处理
代码如下：@echooffsetlocalenableextensionsecho%time%call:ProcDelay200echo%time%goto:start:ProcDelaydelayMSec_setlocalenableextensionsfor/f"tokens=1-4delims=:."%%hin("%time%")dosetstart_=%%h%%i%%j

写批处理必备的一些命令参数使用技巧
首先批处理文件是一个文本文件，这个文件的每一行都是一条DOS命令（大部分时候就好象我们在DOS提示符下执行的命令行一样），你可以使用DOS下的Edit

一个小助手批处理实例代码
包括ECHO1.显示或隐藏文件ECHO2.清理系统垃圾ECHO3.注册表解除锁定ECHO4.修复IE浏览器ECHO5.关闭默认共享ECHO6.管理控制MMCECHO7.清除多余启动项@ECHOoff@title小助