OldSchoolHack

Registrieren / Anmelden Deutsch

Visual Basic 2010 Anderer Updater?

icon Thema: Visual Basic 2010 Anderer Updater?

Anmeldungsdatum: Aug 2011

Beiträge: 10

Imports System.Net

TEXT Code:
  1. 'Check for Updates
  2. Dim Lesen as String
  3. Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://DeinServer/version.txt")
  4. Dim response As System.Net.HttpWebResponse = request.GetResponse()
  5.  
  6. Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
  7.  
  8. Dim newestversion As String = sr.ReadToEnd()
  9. Dim currentversion As String = Application.ProductVersion
  10. If newestversion.Contains(currentversion) Then 'Falls die version im server mit der Productversion übereinstimmt, dann soll der fortfahren
  11.  
  12.  
  13.  
  14. Else
  15. My.Computer.Network.DownloadFile("http://deinserver/update.txt", "C:\Update.txt")
  16. My.Computer.FileSystem.ReadAllText("C:\Update.txt")
  17. End If

Hoffe das hilft dir.