Guten Tag ,
ich arbeite an einem Patchsystem für mein spiel.
Nunja das läuft soweit alles einzige was nit läuft ist das Patchen folgender Code :
Nunja ich frage auch den Status im Progresschanged event ab so :
Nur irgendwie füllt sich die Progressbar nicht sondern sie dreht völlig ab Sie füllt und leert sich füllt und leer sich aber nicht normal sondern rasend schnell wie ein laggen.
und die datei zum herrunterladen wird auch nicht fertig die wird immer wieder von vorn angefangen.
Mfg
ich arbeite an einem Patchsystem für mein spiel.
Nunja das läuft soweit alles einzige was nit läuft ist das Patchen folgender Code :
VB.NET-Quellcode
- Do
- versioninfo = aStream.ReadLine()
- If IsNothing(versioninfo) Then Exit Do
- infos2 = versioninfo.Split(";")
- dateiname = infos2(0)
- hashneu = infos2(1)
- url = infos2(2)
- ListBox1.Items.Add(datum & " : Prüfe " & dateiname)
- lbl_aktuell.Text = "Prüfe " & dateiname
- hashalt = SHA1FileHash(localdateipfad & "pack\" & dateiname)
- MessageBox.Show(localdateipfad & "pack\" & dateiname)
- If hashneu = hashalt Then
- ListBox1.Items.Add(datum & " : " & dateiname & " ist aktuell")
- Else
- ListBox1.Items.Add(datum & " : Lade " & dateiname & " herunter")
- If My.Computer.FileSystem.FileExists(localdateipfad & "pack\" & dateiname) Then ' Prüfen ob Datei vorhanden ist
- My.Computer.FileSystem.DeleteFile(localdateipfad & "pack\" & dateiname) ' Wenn ja löschen
- End If
- Do
- If WebClient1.IsBusy = True Then ' wenn webclient1 schon am arbeiten ist dann
- ''''nichts machen
- Else ' Falls nicht
- Dim uri As New Uri(url) 'URL für den Webclient setzen mit dem Link aus der Zeile der Textdatei.
- WebClient1.DownloadFileAsync(uri, localdateipfad & "pack\" & dateiname) ' Den Download der Datei starten.
- End If
- Loop
- End If
- Loop
Nunja ich frage auch den Status im Progresschanged event ab so :
VB.NET-Quellcode
- Private Sub WebClient1_DownloadProgressChanged(ByVal sender As System.Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles WebClient1.DownloadProgressChanged
- gesendet = e.BytesReceived 'Die gesendetem Bytes in der Variable gesendet speichern
- gesammt = e.TotalBytesToReceive 'Die gesammten Bytes in die Variable gesammt speichern
- lbl_aktuell.Text = "Lade : " & dateiname & " - " & gesendet & " / " & gesammt
- ProgressBar1.Value = e.ProgressPercentage 'Progressbar füllen.
- End Sub
Nur irgendwie füllt sich die Progressbar nicht sondern sie dreht völlig ab Sie füllt und leert sich füllt und leer sich aber nicht normal sondern rasend schnell wie ein laggen.
und die datei zum herrunterladen wird auch nicht fertig die wird immer wieder von vorn angefangen.
Mfg