主题：自动升级不要弹出cmd.exe窗口

用了狐友提供的自动升级的确实好用

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=40763&authorid=0&page=0&star=1

但就是有个问题下面这段代码运行后总会先打开一个Cmd.exe的一个升级窗口，很多用户升级时xp都会拦掉这个文件或提示;部分代码如下文件中

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

点击浏览该文件:自动升级部份代码.txt

    'Dim up1 As String = utmp & "\up1.vbs"
    'If FileSys.FileExists(up1) Then
    'FileSys.DeleteFile(up1)
    'End If
    'FileSys.WriteAllText(up1,"Set ws = CreateObject(""Wscript.Shell"")" & vbcrlf,True,Encoding.Default)
    'FileSys.WriteAllText(up1,"ws.run ""cmd /c Update.bat"",vbhide",True,Encoding.Default)

网上查了很久有介绍说把批处理保存为一个VBS的文件如上面红色部份就不会弹出Cmd窗口，但总不成功。现在就是想实现在升级时象QQ等那样，前面只是显示一个正在升级的窗口就行，那些批处理都在后台运行不要显示出来，升级完正常打开程序就可以，要怎么才能实现？ft的方式每次升级完还要提示重新启动不能自动打开也不好？

谢谢！

为什么最近写多点文本上传总出错，传不了，只好写在下面的文本文件中了，谢谢！

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

点击浏览该文件:不弹出cmd窗口问题.txt

但第二句如下，总提示出错没有申明updat.bat变量，不知道是哪个引号没对，要怎么写？

FileSys.WriteAllText(up_vbs,"ws.run "" & utmp & "\Update.bat" & "",0",True,Encoding.Default)

要调用utmp这个变量所代表的目录下的update.bat文件。就是把

ws.run "c:\Update.bat",0  这样的目录C:\换成变量utmp总是写不对。

谢谢，原来是还要加一个双引号，@echo off
taskkill /f /im foxtable.exe
echo Wscript.Sleep Wscript.Arguments(0) * 1000>Delay.vbs
Delay.vbs 3
del Delay.vbs
xcopy /s /e /q /y " & utmp1 & "\*.* " & upath
start " & ProjectPath & "..\" & ename

rd /s /q " & utmp

还有个问题，如果update.bat文件中有参数，运行

FileSys.WriteAllText(up_vbs,"ws.run """ & utmp & "\Update.bat" & """,0",True, Encoding.Default)

时如何传递给bat文件，bat文件中又要如何接收呢？

谢谢甜老师，不知道直接用是怎么用？按下面这样用吗，但升级后会出现错误提示vbs调用中不能用括号()

或者下面这段要怎么写？

Dim up_vbs As String = utmp & "\up_vbs.vbs"
FileSys.WriteAllText(up_vbs,"shell(""" & utmp & "\Update.bat" & """, 0)",False,Encoding.Default)

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