- UID
- 93337
- 帖子
- 2297
- 主題
- 240
- 精華
- 0
- 積分
- 860
- 楓幣
- 1273
- 威望
- 486
- 存款
- 6706
- 贊助金額
- 1300
- 推廣
- 1
- GP
- 636
- 閱讀權限
- 150
- 性別
- 保密
- 在線時間
- 987 小時
- 註冊時間
- 2015-2-26
- 最後登入
- 2024-4-24
|
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 |
|