simon123456 發表於 2016-6-9 15:42:57

藤宮香織 發表於 2016-6-9 16:41:47

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
頁: [1]
查看完整版本: 檢查更新問題