Foxtable(狐表)用户栏目专家坐堂 → 如何避免升级时出现错误界面


  共有3862人关注过本帖平板打印复制链接

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

帅哥哟,离线,有人找我吗?
乡里出城
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:426 积分:3505 威望:0 精华:0 注册:2015/4/17 9:13:00
如何避免升级时出现错误界面  发帖心情 Post By:2015/7/6 10:52:00 [只看该作者]

请教各位高手,用IF应该怎么表达,才能当第一段代码出错误时,就不再执行第二段代码,如果第一段的url正常,就正常执行第二段代码

第一段:
Dim url As String = "http://www.baidu.com/data/update.txt"  '请按实际升级的路径填写
try
    Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)
    Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse
catch ex As Exception
    msgbox(ex.message)
End try


第二段:
 If Syscmd.Project.Update(False,False) = False Then '如果没有升级
     Forms("远程升级").open()
 End If
[此贴子已经被作者于2015/7/6 10:52:58编辑过]

 回到顶部
总数 39 1 2 3 4 下一页