Downloader

  • VB.NET

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von toto.

    Downloader

    Hallo an alle die sich beteiligt haben
    und an alle die die Interesse haben
    und an die die Probleme mit dem PB haben.
    bei mir funzt endlich, hier mein Code:

    VB.NET-Quellcode

    1. [spoiler]
    2. Private Sub btnAddDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddDown.Click
    3. Dim Link As String
    4. Link = txtURL.Text
    5. Get_Video_Info(Link)
    6. End Sub
    8. Public Sub Get_Video_Info(ByVal Link As String)
    9. Dim Request As HttpWebRequest = HttpWebRequest.Create(Link)
    10. Dim Response As HttpWebResponse = Request.GetResponse()
    11. Dim reader As StreamReader = New StreamReader(Response.GetResponseStream)
    12. Dim httpContent As String
    13. httpContent = reader.ReadToEnd
    15. Dim TitleRegEx As New Regex("title=""(?<Title>(.*))"" />")
    16. Dim title As String
    17. title = TitleRegEx.Match(httpContent).Groups("Title").ToString
    19. Dim LängeVideo As New Regex("<span class=""video-time""><span>(.*?)<\/span>")
    20. Dim Länge As String
    21. Länge = LängeVideo.Match(httpContent).Groups(1).Value()
    23. Dim tRegEx As New Regex("""t"": ""(?<t>(.*)) """)
    24. Dim t As String
    25. t = (Mid$(tRegEx.Match(httpContent).Groups("t").ToString, 1, 46))
    27. Dim i As ListViewItem
    28. i = LwDown.Items.Add(Link)
    30. With i
    31. .SubItems.Add(title)
    32. .Tag = t
    33. End With
    34. End Sub
    36. Private Sub btnDownload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDownload.Click
    37. If LwDown.SelectedItems.Count <> 1 Then
    38. MsgBox("Bitte ein Video auswählen!")
    40. Else
    41. Try
    42. Dim httpURL As New System.Uri(txtURL.Text)
    43. Dim request As HttpWebRequest = HttpWebRequest.Create(httpURL)
    44. request.Method = WebRequestMethods.Http.Get
    45. Dim response As HttpWebResponse = request.GetResponse()
    46. Dim reader As New StreamReader(response.GetResponseStream())
    47. Dim start_DL_url As String = reader.ReadToEnd()
    48. response.Close()
    50. ' Download Link
    51. Dim anfang_stelle_des_video_downloads_1 As Integer = InStr(start_DL_url, "<!-- end contenttop section -->") + 30
    52. Dim anfang_stelle_des_video_downloads_2 As Integer = InStr(anfang_stelle_des_video_downloads_1, start_DL_url, "url_map") + 13
    53. Dim ende_stelle_des_video_downloads_1 As Integer = InStr(anfang_stelle_des_video_downloads_2 + 5, start_DL_url, "%2C")
    54. Dim Laenge_des_downloads_1 As Integer = ende_stelle_des_video_downloads_1 - anfang_stelle_des_video_downloads_2
    56. Dim Name_des_downloads_1 As String
    57. Name_des_downloads_1 = Mid(start_DL_url, anfang_stelle_des_video_downloads_2, Laenge_des_downloads_1)
    58. Dim end_DL_url As String = Name_des_downloads_1.Replace("%3F", "?").Replace("%3D", "=").Replace("%26", "&").Replace("%25", "%").Replace("%2C", ",").Replace("%25", "%").Replace("%3A", ":").Replace("%2F", "/")
    60. 'Ordner & Download
    61. Dim sfd As New SaveFileDialog
    62. sfd.Filter = "Video|.flv"
    63. If sfd.ShowDialog = Windows.Forms.DialogResult.OK Then
    64. downloader.DownloadFileAsync(New Uri(end_DL_url), sfd.FileName)
    65. txtDown.Text = sfd.FileName
    66. End If
    68. Catch ex As Exception
    69. MsgBox("Kein gültiges Video gefunden! Bitte verwenden Sie nur YouTube Videos!")
    70. End Try
    71. End If
    72. End Sub
    74. ' Fortschrittsanzeige
    75. Private Sub downloader_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles downloader.DownloadProgressChanged
    77. 'ProgressBar1.Maximum = 100
    78. ProgressBar1.Value = e.ProgressPercentage
    80. Dim Totalbytes As Long = e.TotalBytesToReceive / 1024
    81. Dim bytes As Long = e.BytesReceived / 1024
    82. Dim p As Integer = CInt((bytes / Totalbytes) * 100)
    84. Me.lblProgress.Text = e.BytesReceived & " KB von"
    85. Me.lblTotal.Text = e.TotalBytesToReceive & "KB"
    86. Me.lblProzent.Text = p.ToString() & "%"
    88. End Sub
    90. ' Download beendet
    92. Private Sub downloader_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles downloader.DownloadFileCompleted
    93. MsgBox("Download war erfolgreich!", MsgBoxStyle.Information, "Fertig!")
    94. LwDown.SelectedItems.Clear()
    95. End Sub[/spoiler]



    Wichtig ist:
    Imports System.Net
    Friend WithEvents downloader As New System.Net.WebClient ' WebClient für Datei-Download

    Dazu sage ich noch dazu das mit der Länge anzeigen noch nicht klappt sonst funzt alles.

    Zu mei Code hätte ich eine Frage und zwar wird mir alles in KB angezeigt, ich möchte aber das es in MB angezeigt wird, jemand ein Tipp?
    viel Spass

    lg

    toto
    lg toto

    Bitte ersetzen oder ergänzen:

    Me.lblProgress.Text = e.BytesReceived & " KB von"
    Me.lblTotal.Text = e.TotalBytesToReceive & "KB"

    durch:

    Me.Label5.Text = Format(e.BytesReceived / 1024 ^ 2, "###0.00") & " MB von"
    Me.Label4.Text = Format(e.TotalBytesToReceive / 1024 ^ 2, "###0.00") & " MB"


    oder beide einsetzen.
    lg
    toto
    lg toto

    Sorry Samus Aran,

    ich habe in meinem Projekt einige Passagen wo

    "Option Strict On" lässt keine impliziten Konvertierungen von Object in String zu
    "Option Strict On" lässt keine impliziten Konvertierungen von Object in Integer zu.
    "Option Strict On" lässt keine impliziten Konvertierungen von System.Net.WebRequest in System.Net.HttpWebRequest zu.

    usw. ich kann diese Fehlermeldungen allein nicht beheben,
    ohen "Option Strict On" läuft mein Projekt einwandfrei.

    lg
    toto
    lg toto

Facebook