运维开发网

用vbs实现cmd功能的代码

运维开发网 https://www.qedev.com 2020-01-18 10:45 出处:网络 作者: 网络整理
用vbs实现cmd功能的代码
用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除非你十分清楚某些对象的方法会出错。 

即使如此,也是为了进行错误处理。

0

精彩评论

暂无评论...
验证码 换一张
取 消