免費論壇 繁體 | 簡體
Sclub交友聊天~加入聊天室當版主
分享
返回列表 發帖

【程式碼】版本檢查

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

沙發我自己的

TOP

你要教別人開啟Inet這個元件阿=ˇ=
否則別人打這沒用~

TOP

謝分享^^

TOP

好像真是这么回事












欢迎屌丝们下载QQ刷赞软件免费版QQ刷钻软件免费版http://www.vdisk.cn/lkzmdd

TOP

回復 3# yeazzz3x2c1


    我真的太久沒有用了 說真的要找一天來從新用看看

TOP

回復 6# a0989344605


哦哦~ 我已經轉手vb.net很久囉~ 可以的話+我RC
zzz3x2c1

TOP

返回列表