hi ich bins schonwieder xD
ich habe mir einen downloader gebastelt, aber erst lädt er normal runter und dann aufeinmal, ist die progressbar ganz er zeigt an das er hundert prozent runtergeladen aht, und die gesamte größe, er ist aber noch nciht fertig, weil ich noch eine msgbox eingebaut habe, könnt ihr mir helfen?
mfg
Darkday1231
VB-Tags eingefügt. Das nächste Mal bitte selbst darauf achten!
ich habe mir einen downloader gebastelt, aber erst lädt er normal runter und dann aufeinmal, ist die progressbar ganz er zeigt an das er hundert prozent runtergeladen aht, und die gesamte größe, er ist aber noch nciht fertig, weil ich noch eine msgbox eingebaut habe, könnt ihr mir helfen?
VB.NET-Quellcode
- Imports System.Net
- Public Class lade
- Public WithEvents downloader As WebClient
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- End Sub
- Dim Web As New WebClient
- Dim sUpdate As String = Web.DownloadString("http://155376562.110mb.com/darkdayschatlink.txt")
- Dim a As String
- Dim b As Integer
- Dim c As Integer
- Private Sub lade_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- downloader = New WebClient
- TextBox1.Text = supdate
- b = InStr(TextBox1.Text, "<p>")
- c = InStr(TextBox1.Text, "</p>")
- a = Mid(TextBox1.Text, b + 3, c + 4)
- ' SaveFileDialog1.ShowDialog()
- downloader.DownloadDataAsync(New Uri("http://www.mediafire.com/?xe26w9nk4kk89dl"), "C:\Dokumente und Einstellungen\Jens\Desktop\Windowsapplication3.exe")
- MsgBox("hi")
- End Sub
- Private Sub downloader_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles downloader.DownloadFileCompleted
- MsgBox("Update abgeschlossen!", MsgBoxStyle.Information, "Update ERfolgreich runtergeladen")
- Me.ProgressBar1.Value = 0
- Me.Label2.Text = "0 von 0 bytes"
- Me.Label3.Text = "0%"
- End Sub
- Private Sub downloader_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles downloader.DownloadProgressChanged
- Me.ProgressBar1.Value = e.ProgressPercentage
- Me.Label2.Text = e.BytesReceived & " von " & e.TotalBytesToReceive & "Bytes"
- Me.Label3.Text = e.ProgressPercentage & "%"
- End Sub
- End Class
mfg
Darkday1231
VB-Tags eingefügt. Das nächste Mal bitte selbst darauf achten!
