主题：如何避免升级时出现错误界面

 11楼的步骤，你根本就没有可能点3次，也不可能提示最新

 无语，这你也不会么

 

1、你调整项目属性的发布日期，往后调；

 

2、发布项目；

 

3、去到publish文件夹打开发布的exe文件啊

 那你现在出现什么问题，打开exe以后，点升级，要么提示超时，要么就是升级啊。

测试，从来没有你这种问题。叫你打开publish文件夹运行exe啊。点多少次都没问题

 你按钮代码是这样些么？

 

Dim url As String = "http://www.foxtable.com/data/update.txt"  '请按实际升级的路径填写
Dim Flag As Boolean = True
try
    Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)
    rqst.TimeOut = 1000 '一秒
    Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse
    rsps.Close
catch ex As Exception
    msgbox(ex.message)
    Flag = False
End try

 呃，那改再试

 下面这段代码，无论怎样测试，都不会有问题。

 

 要不你就把禁用，不允许重复点击啊

 

Dim url As String = "http://foxtable.com/data/update.txt"  '请按实际升级的路径填写
Dim Flag As Boolean = True
try
    Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)
    rqst.TimeOut = 1000
    Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse
    rsps.Close
catch ex As Exception
    msgbox(ex.message)
    Flag = False
End try
 
If Flag Then
    'If Syscmd.Project.Update(False,False) = False Then '如果没有升级
         'Forms("远程升级").open()
    'End If
End If

 点击按钮的时候，把按钮设置成不可用的状态就行。

 win7打开项目的时候，要右键选择管理员身份打开。

 呃，运行foxtable的时候，是一定要用管理员权限才行的。