Yahoo Answers is shutting down on May 4th, 2021 (Eastern Time) and beginning April 20th, 2021 (Eastern Time) the Yahoo Answers website will be in read-only mode. There will be no changes to other Yahoo properties or services, or your Yahoo account. You can find more information about the Yahoo Answers shutdown and how to download your data on this help page.

VB 自動更新[20點]

爬文爬很久,就是找不到!

我想寫一個可以連到http的vb自動更新

假如我存放在http裡的updata網址為 >> http://11.tw/updata.txt

而 updata的內容只有一行 " 1.0.0 " 的版本號

然後我要撰寫一個可以從http開啟updata並且對比本地updata的版本號與網上的updata版本號

到底要怎麼弄呢??

拜託各位大大了 >"<

有註解更好 !

Update:

Re: 吼兒

我需要完整的程式碼…

有註解會更好,若是不麻煩

可以加入我的即時通嗎?

1 Answer

Rating
  • Anonymous
    1 decade ago
    Favorite Answer

    抓取網址程式如下

    Sub Updata()

     '更新檢查,執行 GET 指令

     Inet1.Execute "網址", "GET"

    End Sub

    Private Sub Inet1_StateChanged(ByVal State As Integer)

     If State = icResponseCompleted Then '傳送回應完成

      Debug.Print Inet1.GetChunk(1024)

      '以 GetChunk 獲取來自 StateChanged 之資料

     End If

    End Sub

    程式中要放一個Inet1

    到設定使用元件找Microsoft Internet Transfer Control 6.0

    Call Updata 後

    Debug.Print 的內容就是你要的資料

    至於版本判斷

    可用 Split ,以 "." 分割

    分為 主號、次號、修訂號

    然後與 App.Major 、 App.Minor 和 App.Revision 比較

    即可得直是否有較新版本

Still have questions? Get your answers by asking now.