|
簽到天數: 9 天 連續簽到: 1 天 [LV.3]偶爾看看II - 積分
- 325
- 威望
- 14
- G幣
- 1372
- 聲望
- 69
- 貢獻
- 80
- 金錢
- 35
- 嘉獎
- 1 次
- 嚴重警告
- 0 次
- 閱讀權限
- 20
- 註冊時間
- 2012-4-19
  
|
Private Sub Command1_Click()
Form2.Show
Unload Form1
End Sub
Private Sub Form_Load()
Text2.Text = Inet1.OpenURL("") ' 在免費空間裡上傳個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 |
|
新浪微博
QQ空间
人人网
腾讯微博
Facebook
Google+
Plurk
Twitter
Line
