ok das zwiete programm lasse ich jetzt weg.
und wie muss ich jetzt diesen text so umschreiben
das wen eine neue version verfügbar ist das er ein kleines fenster öffnet mit einem text.
Und das soll dan über ein button sein:
Zitat:
My.Computer.Network.DownloadFile("http://meine-domain/Anwendungen/mein-programm/version", Environment.GetFolderPath(Environment.SpecialFolde r.ApplicationData) & "\version.ini", "", "", False, 60000, True)
Dim MeineVersion As Integer = CInt(Me.Label35.Text)
Dim ServerVersion As Integer = My.Computer.FileSystem.ReadAllText(Environment.Get FolderPath(Environment.SpecialFolder.ApplicationDa ta) & "\version.ini")
If ServerVersion > MeineVersion Then
My.Computer.FileSystem.WriteAllBytes(Environment.G etFolderPath(Environment.SpecialFolder.Application Data) & "\update.exe", My.Resources.Updater, False)
MsgBox("Es sind neue Programm Updates verfügbar. Bitte besuchen sie unsere Hompage: http://meine-domain!", MsgBoxStyle.Information, "Aktuell")
End
End If
|