Visual basic yeni surum cıkarmadan program guncelleme

[alcatraz56]

Visual basic de tv programı yapıyorum tv programlarında linkler zamanla kırık hale gelıyor boyle oldugundada programı yenıden yazıp yayınlamam gerekıyor bunu yapmadan uzaktan guncelleyebılırmıyım boyle bır ımkan varmı

 

[yasin52200]

sql veritabanı kullan linkleri veritabanından çek

 

[alcatraz56]

bunu googledan bulabılırmıyım

 

[Gr££D]

Cok farkli yontemler mevcut

 

[alcatraz56]

analatabilirmisin rica etsem

 

[Küçük-Mavi]

Buyrun tıklayınız hocam

 

[alcatraz56]

Buyrun tıklayınız hocam [
eyvlllh ustam

 

[DarkLiqht]

Benim mantığı kullan.
Mesela bi label ekle o label bi siteden yazı çeksn.
Eğer yazıda güncelle yazıyorsa bi linkten otomatik olarak güncelleme ypsn.
Yazmıyorsa devam etsn.
Gçn aklıma gldi çalışıyor.

 

[|SE|HiperActive]

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("Güncelleme Belirleme Paneli.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()
        Dim currentversion As String = Application.ProductVersion

        If newestversion.Contains(currentversion) Then
            MessageBox.Show("suanda her hangibir güncelleme bulunmamaktadır.")

        Else
            MessageBox.Show("programın yeni sürümü güncellenmiş.")
            End
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
         Dim result As MsgBoxResult = MessageBox.Show("güncellemeyi yüklemeyi ve  kullanıcı sözleşmesini kabul ediyormusunuz", "sözleşme",  MessageBoxButtons.YesNo, MessageBoxIcon.Question)

        If result = MsgBoxResult.Yes Then

            MessageBox.Show("program yüklemeye başlayacaktır.")
             My.Computer.Network.DownloadFile("Program İnecek Adres",  My.Computer.FileSystem.SpecialDirectories.Desktop + " /Programın İsmi")
            MsgBox("program güncellendi")


        Else
            MessageBox.Show("güncellemeyi yüklemeyi ve kullanıcı sözleşmesini kabul etmeniz gerekir.")

        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

Buyur Kardeşim Güncelleme Kodları Ben Bunları Kullanıyorum Güle Güle Kullan