Twitch Wakery
Süper Üye
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
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