Arkadaşlar Bir Program Yaptım ve Programa Yeni Özellikler Eklediğimde Güncel Sürüm Var Gibi Bir Mesaj Vermesini İstiyorum Bir Siteye Eklediğimde veya Uzaktan Yönetebilceğim Bir Kod Falan Varmı ? Boş Bir Projede Yapıp Örneğini Bana Atabilirmisiniz Özelden ?
Veya Kodlarını Yazıp Atabilir misiniz?
Elimde Şöyle Bir Kod Var Arkadaşın Birisi Attı
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Function Readwebsite(ByVal urll As String)
Dim r As HttpWebRequest = HttpWebRequest.Create(urll)
Dim re As HttpWebResponse = r.GetResponse()
Dim src As String = New StreamReader(re.GetResponseStream()).ReadToEnd()
Return src
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim kaynak As String = Readwebsite("textuploader") 'textuploader sitesine kayıt ol ve bir text oluştur mesela 1.0
If kaynak.Contains("1.0") Then 'eğer textuploaderdeki textinle uyuşuyorsa
MsgBox("Güncel Sürüm Kullanıyorsunuz!", MsgBoxStyle.Information) '
Else
MsgBox("Eski Sürüm Kullanıyorsun", MsgBoxStyle.Information, "Eski Sürüm")
End If
End Sub
End Class