之前的问题还是没有解决，大多数电脑都可以正常下载，少数电脑卡死在下载界面。
空格去掉了，换了个地址，还是不行。
代码是放在登录窗口确认按钮里的。
Network.DownloadFile("ftp://XX.XX.XX.XX/update/Management/Update/update.txt", "D:\update.txt" ,"XX" ,"XX" ,True, 100000, True)
Dim str As String = publishdate
Dim strs As String = FileSys.ReadAllText("D:\update.txt" )
Dim index As Integer = str.lastindexof(":")
Dim s As String = str.remove(Index)
Dim index1 As Integer = strs.lastindexof("|")
Dim s1 As String = strs.remove(Index1)
If s1 <> s
messagebox.show("检测到目前程序版本不是最新版本,请升级后再试!")
Syscmd.Project.Exit()
End If
[此贴子已经被作者于2021/6/16 11:46:22编辑过]
加好友 
发短信
Post By：2021/2/27 10:30:00 [显示全部帖子]
此主题相关图片如下：113.png