VBS实现无黑框无DOS窗口批处理运行窗口

vbs实现无黑框无DOS窗口隐藏批处理运行窗口 2010-01-13 15:47:31 标签：dos vbs  可以通过执行vbs脚本来隐藏执行bat: (将以下代码保存为.vbs文件,假设要执行c:\x.bat) createobject("wscript.shell").run "c:\x.bat",0 可以使弹出的命令行窗口最小化，请参考如下代码： @echo off mode con cols=15 lines=1 if exist "Temp.bat" goto Start >Temp.bat echo start/min "" "%~nx0"^&exit start/min Temp.bat&exit :Start del "Temp.bat">nul pause 把它放在程序的开头。   启动批处理文件隐藏窗口脚本 Set ws = CreateObject("Wscript.Shell")   ws.run "cmd /c 批处理文件.bat",vbhide 保存文件格式为: *.vbs 例: Set ws = CreateObject("Wscript.Shell")   ws.run "cmd /c 清除系统LJ.bat",vbhide         createobject("wscript.shell").run "a.bat",0 "0是隐藏运行的意思       Option Explicit Dim WshShell, Pro Set WshShell = WScript.CreateObject("WScript.Shell") Pro = "D:\Program Files\千千静听\TTPlayer.exe D:\千千静听\默认.ttpl" WshShell.Run Chr(34) & Pro & Chr(34),0 支持路径或文件名带空格     代码一： ==================================================== Dim Wsh Set Wsh = WScript.CreateObject("WScript.Shell") WScript.Sleep(0000) Wsh.Run "sihochina.bat",0,True '其中sihochina.bat即为你要运行的批处理命令，此时英语这个VBS脚本放在同一目录下 Set Wsh=NoThing WScript.quit ==================================================== 代码二： ==================================================== DIM objShell set objShell=wscript.createObject("wscript.shell") iReturn=objShell.Run("cmd.exe /C d:\sihochina.bat", 0, TRUE) '其中d:\sihochina.bat即为你要运行的批处理命令 ====================================================           好多从dos时代走过来的朋友，都感叹于dos功能的强大。可遗憾的是dos程序在执行的时候会有一个黑窗口一闪而过，也许你会说这样看起来比较cool。但好多批处理我们都想要它“悄无声息”的执行。。。   那怎么办呢？   呵呵~~ dos 是16位的编程，不借助其它工具，很难做到彻底隐藏那个黑窗口。   最简单的就是写一个vbs.   下面我贴出一个能在后台循环调用一个批处理文件的vbs，能用的上的别忘了回来留言。。。   将下面的文字复制粘贴到文本文件里，然后将扩展名改成 .vbs就行了。 on error resume next set hs=createobject("wscript.shell") do hs.run ".\civen.bat",0 wscript.sleep 3000 loop  简单解释一下： 第一行：程序遇到错误自动返回，不至于弹出一个错误警告窗口。 第二行：创建一个vbs。 第三行：循环标记。 第四行：隐藏执行 .bat 文件。0 示隐藏，1 表示显现。 第五行：休眠 3 秒。 第六行：跳至循环标志。 呵呵~~ 可能有点老了，不过，我想有些朋友一定能用到。更多的功能，大家自己扩展吧~~