Hallo nochmal ihr lieben!
Grade das erste Problem gelöst kommt schon das nächste.
Ich habe mir eine sehr einfach gehaltene Update Funktion gemacht.
Diese Funktioniert auch einwandfrei.
Doch allerdings nur wenn man Internet hat. Fehlt das Internet hängt das Programm sich für exakt 36 - 40 Sekunden auf.
Ebenfalls möchte ich nicht umbedingt immer eine Neue exe speichern sondern nur die alte austauschen.
Wie mache ich das?
LG
Grade das erste Problem gelöst kommt schon das nächste.
Ich habe mir eine sehr einfach gehaltene Update Funktion gemacht.
VB.NET-Quellcode
- Function TestInternetConnection()
- Try
- My.Computer.Network.Ping("google.de")
- Return 1
- Catch ex As Exception
- Return 0
- End Try
- End Function
- Dim web As New Net.WebClient
- Sub RunUpdate()
- If TestInternetConnection() = 1 Then
- Try
- Dim version As String = web.DownloadString("http://marvinkleinmusic.bplaced.net/Dezimalrechner/current_ver.txt")
- version = CInt(version)
- If version > CInt(lblversion.Text) Then
- Try
- Dim path As String = "http://marvinkleinmusic.bplaced.net/Dezimalrechner/Umrechner.exe"
- My.Computer.Network.DownloadFile(path, Application.StartupPath & "/[Update" & version & "]" & "Umrechner.exe")
- MsgBox("Das Programm wird Upgedatet.")
- Catch ex As Exception
- MsgBox(ex.ToString)
- End Try
- End If
- Catch ex As Exception
- 'nichts
- End Try
- End If
- End Sub
Diese Funktioniert auch einwandfrei.
Doch allerdings nur wenn man Internet hat. Fehlt das Internet hängt das Programm sich für exakt 36 - 40 Sekunden auf.
Ebenfalls möchte ich nicht umbedingt immer eine Neue exe speichern sondern nur die alte austauschen.
Wie mache ich das?
LG