下面是打开项目时自动升级的一段代码，但总是会弹出一个CMD的Dos命令窗口，要如何才能不弹出，只是在前面显示一个“---正在升级---”的对话框，完成后自动打开项目就行

代码传不上来，只好放在一个txt文件中了。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:自动升级.txt

但总不成功，应该怎么办？

谢谢！

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

 请问这句shell(s,0)要加在哪个位置？象下面这样吗？还是哪里？

。。。。

FileSys.WriteAllText(up_vbs,"ws.run ""cmd /c " & utmp & "\\Update.bat" & """,vbhide",True,Encoding.Default)

shell(s,0) 

Dim Proc As New Process \'定义一个新的Process
Proc.File = s \'指定要打开的文件
Proc.Verb = "Open" \'指定动作
Proc.Start()
proc.WaitForExit

谢谢！

哦，写错了，这样处理

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)

谢谢！这样是不会弹出那个窗口了，但是还有两个问题：

1、怎么才能做到升级时在前面一直显示一个“。。。正在升级的窗口。。。”的窗口，直到升级完成时关闭。

2、下面的代码升级后项目不能自动打开，如何才可以升级完成后自动打开项目呢？

\'建立升级批处理命令文件--------------------
Dim s As String = utmp & "\\update.bat"
If FileSys.FileExists(s) Then
    FileSys.DeleteFile(s)
End If
FileSys.WriteAllText(s,"@echo off" & vbcrlf,True,Encoding.Default)
FileSys.WriteAllText(s,"taskkill /f /im foxtable.exe" & vbcrlf,True,Encoding.Default)
FileSys.WriteAllText(s,"@cls" & vbcrlf,True,Encoding.Default) \'清除屏幕.清除删除 foxtable.exe 进程后屏幕反馈的信息.
FileSys.WriteAllText(s,"echo Wscript.Sleep Wscript.Arguments(0) * 1000>Delay.vbs" & vbcrlf,True,Encoding.Default)
FileSys.WriteAllText(s,"Delay.vbs 3" & vbcrlf,True,Encoding.Default)
FileSys.WriteAllText(s,"del Delay.vbs" & vbcrlf,True,Encoding.Default)
FileSys.WriteAllText(s,"xcopy /s /e /q /y " & utmp1 & "\\*.* " & upath & vbcrlf,True,Encoding.Default) \'复制升级文件,采用upath变量自动判断升级路径
FileSys.WriteAllText(s,"@cls" & vbcrlf,True,Encoding.Default) \'清除屏幕.清除升级文件后屏幕反馈的信息.
FileSys.WriteAllText(s,"start " & ProjectPath & "..\\" & ename & vbcrlf,True,Encoding.Default) \'重启
FileSys.WriteAllText(s,"rd /s /q " & utmp & vbcrlf,True,Encoding.Default) \'删除临时文件夹

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(utmp & "\\update.bat")

p.WaitForExit

汗，我测试一下下面的代码，不会弹出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()