冰楓論壇

標題: 檢查更新問題 [打印本頁]

作者: simon123456 時間: 2016-6-9 15:42
提示: 作者被禁止或刪除內容自動屏蔽

作者: 藤宮香織 時間: 2016-6-9 16:41
Private Sub Form_Load()
Text2.Text = Inet1.OpenURL("http://dl.mediafire.com/download/6pn9419cwuqhdak/1.0.txt")
If Text2.Text = Text1.Text Then '偵測是否與本地的版本相同
Text3.Text = "版本正確，可以開啟主程式"
Text3.ForeColor = &HFF0000
Command1.Enabled = True

Else
Text3.Text = "版本錯誤，請自行下載最新版本！"
Text3.ForeColor = &HFF&
Command2.Enabled = True
End If

End Sub

歡迎光臨冰楓論壇 (https://bingfong.com/)