用vbs实现cmd功能
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基础编程教程 (第1篇)
,如果你想接触以下VBScript也可以,但既然有编程基础推荐直接去找一些参考书来读,会比较快.什么是VBScript呢?VBScript的全称是:MicrosoftVisualBasicScriptEditon.(微

VBS编程教程 (第2篇)
第二篇：我真没想到,第一次的作业竟然有人不会.看来要讲的非常非常细致才行,嗯,今天讲各种"量"和基本运算先说常量,这个比较简单.什么是常量呢,常

VBS基础编程教程 (第3篇)
第三篇（共六篇）：首先,我来解决一下上次课程的几个疑问第一,那个余数问题,16/5=3...1,是因为我改过前面的部分,后面的忘了改了,不好意思.第二,请看