用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功能】相关文章：
上一篇：
可以将Bat转换位VBS文件的VBS脚本
下一篇：
VBS编程教程 (第1篇)