两段运行批处理不显示DOS窗口(直接后台运行)的VBS代码
http://hi.baidu.com/sihochina/blog/item/47551e7f13159c0928388aa4.html
代码一:
==================================================== 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即为你要运行的批处理命令 ==================================================== |