主题：项目发布后，如何自动检测当前版本并在后台升级

升级程序的“确定升级”代码：
此主题相关图片如下：升级窗口.jpg

Dim szdj As String =e.Form.Controls("TextBox1").Value
Dim bcdj As String =e.Form.Controls("TextBox2").value
Dim yfm As String =e.Form.Controls("TextBox3").value
Dim mm As String =e.Form.Controls("TextBox4").value
Network.DownloadFile(szdj,bcdj,"","",True,1000,True)
Dim s As String =e.Form.Controls("TextBox6").value
Dim c As String =s & "\" & e.Form.Controls("TextBox5").value
If FileSys.DirectoryExists(c) Then '如果目录C:\MyFolder存在
    FileSys.DeleteDirectory(c,3,2)'则删除之
End If
Dim Proc As New Process
Proc.File = bcdj
Proc.Verb = "open"
Proc.Start()
Proc.WaitForInputIdle()
Sendkeys.SendWait(s) '发送按键信息
Sendkeys.SendWait("{ENTER}")
Sendkeys.sendwait("{RIGHT 1}")
Sendkeys.Sendwait("{ENTER}")
Dim Result As DialogResult
Result = MessageBox.Show("升级完成,请重新打开本系统!","提示")
If Result = DialogResult.OK Then
    Syscmd.Project.Exit()
End If

怎么不能用啊?

远程服务器没有响应.

yan兄...我对这行代码不懂,不知道它有什么作用..

请指教..