Guten Morgen zusammen.
Ich habe heut mal versucht eine Download manager zu gestalten hat auch geklappt habe auch schon eine datei damit runterladen können doch diese datei war 50mb groß ich möchte aber mit diesen Manager eine datei von 4gb runterladen. wen ich versuche die 4gb runter zuladen ladet er kurz an un den ist schon das rar achiv auf dem desktop doch diese hat fehler und ist nicht mal 1mb groß!
Nun ist die frage wie geht das?
Brauch ich was besonderes?
Bin recht neu in Visual Basic
Download der datei die ich runterladen möchte:
Code:
Spoiler anzeigen
mfg SpLuX_
Verschoben. ~Thunderbolt
Ich habe heut mal versucht eine Download manager zu gestalten hat auch geklappt habe auch schon eine datei damit runterladen können doch diese datei war 50mb groß ich möchte aber mit diesen Manager eine datei von 4gb runterladen. wen ich versuche die 4gb runter zuladen ladet er kurz an un den ist schon das rar achiv auf dem desktop doch diese hat fehler und ist nicht mal 1mb groß!
Nun ist die frage wie geht das?
Brauch ich was besonderes?
Bin recht neu in Visual Basic
Download der datei die ich runterladen möchte:
https://doc-08-6k-docs.googleusercontent.com/docs/securesc/qq5s3ef70uv9dabn08l575n7ie560f4n/t2csmpthi101gf0644g2ao0ine6pmjuk/1424232000000/15510700655027992847/07132264917811457109/0BzZrzjizKahvTTFFc3ZLdkl0dDg?e=download
Code:
VB.NET-Quellcode
- Imports System.Net
- Public Class Form1
- Public WithEvents downloader As WebClient
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- downloader = New WebClient
- downloader.DownloadFileAsync(New Uri(TextBox1.Text), TextBox2.Text)
- Me.Button2.Enabled = False
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- Dim Speichern = New FolderBrowserDialog
- Speichern.ShowDialog()
- Me.TextBox2.Text = Speichern.SelectedPath & "\Lakeside-Lifev1-0.rar"
- End Sub
- Private Sub downloader_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles downloader.DownloadFileCompleted
- MsgBox("Download completed!", MsgBoxStyle.Information, "Done")
- Me.ProgressBar1.Value = 0
- Me.Label3.Text = "0/0 Bytes"
- Me.Label4.Text = "0%"
- Me.Button2.Enabled = True
- 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.Label3.Text = e.BytesReceived & "/" & e.TotalBytesToReceive & "Bytes"
- Me.Label4.Text = e.ProgressPercentage & "%"
- End Sub
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- End Sub
- Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
- End Sub
- End Class
mfg SpLuX_
Verschoben. ~Thunderbolt
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Thunderbolt“ ()