Anmeldungsdatum: Aug 2011
Beiträge: 10
|
Imports System.Net
TEXT Code: 'Check for Updates Dim Lesen as String Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://DeinServer/version.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 'Falls die version im server mit der Productversion übereinstimmt, dann soll der fortfahren Else My.Computer.Network.DownloadFile("http://deinserver/update.txt", "C:\Update.txt") My.Computer.FileSystem.ReadAllText("C:\Update.txt") End If
Hoffe das hilft dir.
|