2. 安装WScript.Shell对象:regsvr32 WShom.Ocx
卸载WScript.Shell对象:regsvr32 -u WShom.Ocx或者regsvr32 /u WShom.Ocx
3. 例子,假设mytest*.iso文件均在C:根目录下。建立mytest目录,将mytest*.iso文件拷贝到mytest目录下。
建立testcopy.bat文件,存于C:根目录下。
实现代码如下:
md mytest
copy c:\mytest*.iso mytest
pause
双击testcopy.dat即可看到新建立的mytest目录及被拷贝的mytest*.iso文件。
若隐藏cmd命令行窗口,有两种方法。
(1)创建WScript.Shell对象,由该对象直接运行testcopy.dat文件,对应的vbs文件:testcopy1.vbs,双击testcopy1.vbs即可看到效果。
实现代码如下:
dim objShell
set objShell=wscript.createObject("WScript.Shell")
iReturnCode=objShell.Run("c:\testcopy.bat",0,TRUE)
(2)创建WScript.Shell对象,由该对象直接运行dos命令,及testcopy.dat中的命令,对应的vbs文件:testcopy2.vbs
实现代码如下:
dim objShell
set objShell=wscript.createObject("WScript.Shell")
iReturnCode=objShell.Run("cmd.exe /c md mytest",0,TRUE)
iReturnCode=objShell.Run("cmd.exe /c copy c:\mytest*.iso mytest",0,TRUE)
以上就是【利用WScript.Shell对象隐藏cmd命令行运行框的实现代码】的全部内容了,欢迎留言评论进行交流!