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

还是不行，全按你代码和步聚，经常暴力测试后还是存在问题，哎，你能上传一个你发布的项目给我测试一下，就知道是不是我这边的原因了，哎，今天网络不知道干嘛，我压缩分七块（每块1M大），都上传不了，弄了两个小时

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

 

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

 

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

要不我这两天有空，录个完全如你所说的代码与操作视频，你看一下，你看会不会存在我说的问题，不然很难解决问题

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

这样说吧，在不同的操作系统上，出现不同的效果，在WIN2003测试基本正常，在WIN7系统上操作就存在我说的问题，我刚试了

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

关键是给用户用，他们怎么懂分管不管理员

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

在exe文件右键选择属性，兼容性处设置成管理员运行就好了，只需要设置一次