Dân coder bọn mình sau này cũng viết chương trình và cũng sẽ cho ra những phiên bản update mới, nên cái này xem ra không thể thiếu Nên hôm nay mình chia cách nhỏ, đơn giản để các bạn làm cho vui thôi, không được pro lắm, chủ yếu là chia sẽ kiến thức thôi.

Đầu tiên bạn cần phải có host để chương trình có thể kiểm tra version của chương trình. Bạn có thể tạo host free, rồi upload 1 trang HTML với nội dung là thông số phiên bản mới nhất của bạn.

Ví dụ : Mình đang viết chương trình Easy Facebook For You với phiên bản mới nhất là 3.0. Ở đây mình đang dùng Forumotion - Forum miễn phí để tạo 1 trang html với nội dung như sau :

Code:

3.0


Bước 2 : Các bạn xem code dưới đây để tham khảo :

Code:

          Try
            //////Đây là version hiện thời của chương trình
            Dim ThisVer As String = "3.0"

            //////Đường dẫn đến HTML có thông số version của phiên bản mới nhất
            Dim sURL As String = "http://www.windowsviet.com/h59-CheckForUpdate"

            Dim req As System.Net.WebRequest = System.Net.WebRequest.Create(sURL)

            req.Method = "GET"

            //////Đọc dữ liệu trong file HTML
            Dim resp As System.Net.HttpWebResponse = CType(req.GetResponse(), System.Net.HttpWebResponse)

            Dim strmReader As New System.IO.StreamReader(resp.GetResponseStream())

            Dim UpdateVer As String = strmReader.ReadToEnd()

            //////So sánh phiên bản hiện thời với phiên bản mới nhất

            //////Phiên bản hiện thời nhỏ hơn phiên bản update
            If UpdateVer <> ThisVer Then 

                Mesage.Box("Đã có phiên bản mới nhất " & Updatever)

            Else 

                //////Phiên bản hiện thời và phiên bản update bằng nhau
                Dim fr As CheckForUpdate = New CheckForUpdate()

                Mesage.Box("Chúc mừng! Bạn đang dùng phiên bản mới nhất!")

            End If

        Catch ex As Exception

            //////Nếu không có Internet sẽ hiện thông báo
            MessageBox.Show("Bạn phải có kết nối internet để kiểm tra Update", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

        End Try