ich hab bei meinen Programm einen updater Rein gebaut und der spuckt dass aus:


[/expander]

VB code dazu:


[vb]
Public Class Form2

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim VersionChecker As New System.Net.WebClient
' Erstellt eine neue Instanz von Webclient
Dim ServerVersion As String = VersionChecker.DownloadString("http://www.orbitcraft.de/hobbyscripter/update/version.ini")
'Hier wird der Inhalt der Datei runtergeladen (zB. 1.1)
Dim MeineVersion As String = Me.Label1.Text
' Hier wird der Variable MeineVersion der Text von dem Label zugewiesen zB. 1.0
If Not ServerVersion = MeineVersion Then
MsgBox("Es ist eine Neuere Version von .. verfügbar,es wir nun Automatisch geupdatet", MsgBoxStyle.Information)
Shell(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\updater.exe")
End
End If
End Sub
End Class
[/vb]

[vb]
Imports System.Net

Public Class Form1

Private WithEvents httpclient As WebClient
Dim pfad As String = Nothing
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)

Me.Hide()
ShowDialog:
SaveFileDialog1.ShowDialog()
If SaveFileDialog1.FileName = Nothing Then
GoTo ShowDialog
End If
pfad = SaveFileDialog1.FileName
Try
httpclient = New WebClient
Dim URL As String = "http://www.orbitcraft.de/hobbyscripter/update/setup.exe" 'Hier kommt der Link zur Datei die immer geupdated werden soll
Me.Show()
Application.DoEvents()
httpclient.DownloadFileAsync(New Uri(URL), pfad)
Application.DoEvents()
Catch ex As Exception
MsgBox("Es ist folgender Fehler aufgetreten:" & vbNewLine & ex.ToString, MsgBoxStyle.Critical, "Es ist ein Fehler aufgetreten")
End Try
End Sub
Private Sub httpclient_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles Httpclient.DownloadFileCompleted

MsgBox("Dass update war erfolgreich heruntergeladen") 'Die nachricht die angezeigt werden soll,wenn das update fertig ist
Process.Start(Pfad)
Me.Close()
End Sub
Private Sub httpclient_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles Httpclient.DownloadProgressChanged

Me.ProgressBar1.Value = e.ProgressPercentage
Dim totalbytes As Double = e.TotalBytesToReceive
Dim bytes As Double = e.BytesReceived
Me.Label1.Text = bytes & " KB von " & totalbytes & "KB"
End Sub
End Class
[/vb]

Ich Bedanke mich über hilfreichen kommentar

schade

Danke