If User.Type <> UserTypeEnum.Developer Then'根据是否开发者,再检查升级
Dim hc As New HttpClient(UpdatePath & "/update.txt")
hc.SkipError = True
Dim str As String = hc.GetData()
If str.Contains("|") Then
Dim ary() As String = str.split("|")
Dim d As Date = ary(0)
Dim dv As Date = ary(1)
If PublishDate < d Then
If MessageBox.show("发现新版本{" & d & "},是否升级?", "在线升级提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
If dv > ApplicationVertion Then
MessageBox.show("本次升级内容较多,请耐心等待" & vbcrlf & vbcrlf & "升级后需要【手动启动软件】!", "升级重要提醒", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
If Syscmd.Project.Update(False, False, True) = True Then
If dv <= ApplicationVertion Then '小版本更新,可以用自动重启,大版本绝对不能用,会无限升级!
Application.ReStart '升级成功后重启项目
End If
End If
Return
Else
MessageBox.show("旧版程序运行过程中,可能会有报错,请尽快升级", "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
Else '无需升级,正常启动
End If
End If
End If
我没有想明白的是，为什么对txt拆分以后对字符判断是需要升级的，但是Syscmd.Project.Update()始终判断是已经最新版本了
加好友 
发短信
Post By：2022/11/28 23:11:00 [显示全部帖子]
Post By：2022/11/29 14:01:00 [显示全部帖子]
此主题相关图片如下：1.jpg
