vbs实现无黑框无DOS窗口隐藏批处理运行窗口

 

可以使弹出的命令行窗口最小化，请参考如下代码：
@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 秒。

第六行：跳至循环标志。

呵呵~~

可能有点老了，不过，我想有些朋友一定能用到。更多的功能，大家自己扩展吧~~