Programmversion überprüfen auf Update! Mit diesem Quellcode ist es ganz einfach, ein UpdateCheck durchzuführen!
Autor:   Samir Ben Kheder	Bewertung:	Views:  8.415
www.bk-software.de	System:  WinXP, Win7, Win8, Win10, Win11	kein Beispielprojekt

Mit diesem Quellcode ist es ganz einfach, ein UpdateCheck durchzuführen! Getestet unter Windows 8 Pro 64bit.

Public Class Form1
 
  Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    UpdateCheck()
  End Sub
 
  Private Sub UpdateCheck()
    ' Variablen deklaieren...
    Dim wc As New Net.WebClient
    Dim Inhalt As String = ""
 
    ' Versionsinformationen downloaden...
    Try
      Inhalt = wc.DownloadString("http://MeineURL.de/programmversion.txt")
    Catch
    End Try
 
    ' Versionsinformationen anzeigen...
    Me.lblAktuelleProgrammVersion.Text = Inhalt
 
    ' Programmversion Check...
    If Inhalt = My.Application.Info.Version.ToString Then ' z.B "1.0.0.0"
      MessageBox.Show("Sie besitzen bereits die neuste Version!", _
        Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Information)
    Else
      MessageBox.Show("Diese Programmversion ist veraltet!", _
        Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Warning)
      ' Process.Start("http://MeineURLZumUpdate.de")
    End If
  End Sub
 
End Class

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.