主题：自动升级的代码如何不要弹出CMD窗口

直接写 shell(s, 0) 就行。

哦，写错了，这样处理

 

Dim p As new Process()
p.StartInfo.FileName = "cmd.exe"
p.StartInfo.UseShellExecute = False '关闭Shell的使用
p.StartInfo.RedirectStandardInput = True '重定向标准输入
p.StartInfo.RedirectStandardOutput = True '重定向标准输出
p.StartInfo.RedirectStandardError = True '重定向错误输出
p.StartInfo.CreateNoWindow = True '设置不显示窗口
p.Start()
p.StandardInput.WriteLine("d:\test.bat")
p.StandardInput.WriteLine("exit")
Dim strRst As String = p.StandardOutput.ReadToEnd()

msgbox(strRst)

 

 

汗，我测试一下下面的代码，不会弹出doc窗口啊

 

Dim up_vbs As String = "d:\up_vbs.vbs"
Dim Proc As New Process '定义一个新的Process
Proc.File = up_vbs '指定要打开的文件
Proc.Start()
proc.WaitForExit

我测试可以打开某个文件

 

---------------------------------------

 

1、bak文件

 

taskkill /f /im foxtable.exe

ping www.baidu.com > d:\test.txt

start d:\test.txt

 

2、vbs文件

 

Set ws = CreateObject("Wscript.Shell")
ws.run "cmd /c d:\test.bat",vbhide

 

3、运行代码

 

Dim up_vbs As String = "d:\up_vbs.vbs"
Dim Proc As New Process '定义一个新的Process
Proc.File = up_vbs '指定要打开的文件
Proc.Start()