Datei aus Link Downloaden

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von Benni1000.

    Datei aus Link Downloaden

    Jo hallo ich habe eine URL zu einem Download und wollte fragen wie man die Runterladen und z.b auf dem Desktop Speichern kann ei n Verweis auf die richtige Funktion würd mir schon reichen ^^
    Danke schonmal.

    Danke das mitm Runterladen hat nach ein bisschen rumprobieren geklappt aber ich krieg die ProgressBar nicht hin es ist zwar kein fehler da aber sie wird nicht angesprochen kann mir einer sagen wo der fehler liegt Danke schomal :)
    Hab die Vermut ung das es an :

    Quellcode

    1. Private WithEvents HttpClient As WebClient
    Liegt aber ich kann WebClient nicht durch Webclient1 ersetzten weil er dann sagt: Der Typ WebClient1 ist nicht definiert?

    Quellcode

    1. Imports System.Net
    2. Imports System.IO
    3. Imports System.Text.RegularExpressions
    4. Public Class Form1
    6. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    7. Dim Request As HttpWebRequest = HttpWebRequest.Create("URL")
    8. Dim Response As HttpWebResponse = Request.GetResponse()
    9. Dim reader As StreamReader = New StreamReader(Response.GetResponseStream)
    10. Dim httpContent As String = httpContent = reader.ReadToEnd
    11. End Sub
    13. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    14. Dim endung As String
    15. Dim fmt As String
    16. If RadioButton1.Checked Then
    17. fmt = "18"
    18. endung = ".mp4"
    19. End If
    20. If RadioButton2.Checked Then
    21. fmt = "24"
    22. endung = ".mp4"
    23. End If
    24. If RadioButton3.Checked Then
    25. fmt = "17"
    26. endung = ".flv"
    27. End If
    28. If RadioButton4.Checked Then
    29. fmt = "17"
    30. endung = ".3gp"
    31. End If
    32. If TextBox1.Text.Contains("http://") Then
    33. Dim pfad As String
    34. SaveFileDialog1.ShowDialog()
    35. pfad = (SaveFileDialog1.FileName)
    36. Dim Link As String = TextBox1.Text()
    37. Dim Request As HttpWebRequest = HttpWebRequest.Create(Link)
    38. Dim Response As HttpWebResponse = Request.GetResponse()
    39. Dim reader As StreamReader = New StreamReader(Response.GetResponseStream)
    40. Dim httpContent As String
    41. httpContent = reader.ReadToEnd
    42. Dim tRegEx As New Regex("""t"": ""(?<t>(.*)) """)
    43. Dim t As String
    44. t = (Mid$(tRegEx.Match(httpContent).Groups("t").ToString, 1, 46))
    45. Dim ID As String = TextBox1.Text
    46. ID = ID.Replace("http://www.youtube.com/watch?v=", "")
    47. Dim DownloadURL As String = "http://www.youtube.com/get_video?fmt=" & fmt & "&video_id=" & ID & "&t=" & t
    48. WebClient1.DownloadFile(DownloadURL, pfad & endung)
    49. End If
    50. If TextBox1.Text.Length < 1 Then
    51. MessageBox.Show("Bitte eine Video URL eingeben!")
    52. End If
    53. End Sub
    55. Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
    57. End Sub
    59. Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
    61. End Sub
    62. Private WithEvents HttpClient As WebClient
    63. Private Sub HttpClient_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles HttpClient.DownloadProgressChanged
    64. Dim bytes As Long
    65. Dim totalbytes As Long
    66. ProgressBar1.Value = e.ProgressPercentage
    67. bytes = e.BytesReceived / 1024
    68. totalbytes = e.TotalBytesToReceive / 1024
    69. Dim percent As Integer
    70. percent = (bytes / totalbytes) * 100
    71. Me.Text = percent.ToString & " %"
    72. ProgressBar1.Value = e.ProgressPercentage
    73. label.Visible = True
    74. label.Text = bytes.ToString & "kb von " & totalbytes.ToString & "kb" & " heruntergeladen " & "( " & percent & " % )"
    75. End Sub
    76. End Class

    Lg Benni ;(

    dein code ist sehr unübersichtlicht verwende mal [ vb][/ vb].
    WebClient1 wurde doch gar nicht deklariert?

    und was bringt dir das?

    VB.NET-Quellcode

    1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    2. Dim Request As HttpWebRequest = HttpWebRequest.Create("URL")
    3. Dim Response As HttpWebResponse = Request.GetResponse()
    4. Dim reader As StreamReader = New StreamReader(Response.GetResponseStream)
    5. Dim httpContent As String = httpContent = reader.ReadToEnd
    6. End Sub


    des kannst du ja dann nur in der Sub Load verwenden, also machts ja nicht viel sinn?

    So ladest du eine Datei herunter:

    VB.NET-Quellcode

    1. Dim Downloader As New Net.WebClient
    2. Downloader.DownloadFileAsync(New Uri("http://adresse.de/datei.zip"), "C:\datei.zip")


    Erklärung:
    Argument 1: Adresse der Datei.
    Argument 2: Wo die Datei am lokalen PC gespeichert werden soll.

    LG, Michael.

Facebook
Telefonspende