(14/12/2012, 22:09)alpeki99 yazdı: Meramınızı anlatmak için dolambaçlı cümleler kullanırsanız hızlıca yardım alamazsınız. Yapmak istediğiniz şey programınızın sürümünün güncel halini internet üzerinden kontrol etmek.

Web üzerindeki metin dosyasını okutmayı biliyorsunuzdur zaten. Okuduğunuz string değişkenin birinci, üçüncü, beşinci ve yedinci karakterlerini aynı sıra ile kendi yerel dosyanızdaki karakterler ile karşılaştıracaksınız. Eğer hepsi aynı ise güncel sürüm kullanıyordur. Sitedeki karakterlerden herhangi biri yereldeki karaktarden büyük ise o halde güncel sürüm var demektir. Bu durumda da güncelleme işlemini yapabilirsiniz.

Sitemizde hemen her alanda olduğu gibi bunun içinde örnek vardı:

Güncel Versiyon Kontrolü / Lisans Koruma Örneği

 Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://www.xxxxxxx/veritabaniversion.txt")

        Dim response As System.Net.HttpWebResponse = request.GetResponse()

        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())

        Dim newestversion As String = sr.ReadToEnd()

        Label1.Text = (newestversion)

        'dosya kontrolü

        Dim dosya As New StreamReader(Application.StartupPath + "\veritabaniversion.txt", Encoding.GetEncoding("windows-1254"))

        Label2.Text = dosya.ReadToEnd

        If Label1.Text > Label2.Text Then

            VerToolStripMenuItem.Visible = True

            VerToolStripMenuItem.Text = "Veritabanı Güncellemesi"

        Else

        End If

        dosya.Close()



        MsgBox("Güncelleme dosyanız yok indirilecek")

        Dim _WebClient As New System.Net.WebClient()

        _WebClient.DownloadFile("http://www.xxxxxxx/veritabaniversion.txt", Application.StartupPath + "\veritabaniversion.txt")