Problem beim Programm, Downloaden nicht möglich.

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von der_Kurt.

    Problem beim Programm, Downloaden nicht möglich.

    Ich Habe ein Problem, Wenn ich versuche etwas zu Downloaden, kommt bei mir folgende Meldung:

    Ein Fehler ist aufgetreten und die angeforderte Datei (en) konnte nicht heruntergeladen werden.
    Dies wird normalerweise durch Änderungen an der You-Tube Webseite verursacht.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. #Region "Generate You-Tube URL"
    2. Public Sub MakeDownloadURL(ByVal url
    3. As String, ByRef output As String, Optional ByRef type As String = "",
    4. Optional ByRef size As Integer = 0)
    5. 'PERFORMS CLEANUP
    6. downloadurl = ""
    7. If request IsNot Nothing Then
    8. Try
    9. request.Abort()
    10. Catch
    11. End Try
    12. End If
    13. If response IsNot Nothing Then
    14. Try
    15. response.Close()
    16. Catch
    17. End Try
    18. End If
    19. Try
    20. source = ""
    21. Catch
    22. End Try
    24. request = DirectCast(HttpWebRequest.Create(url.ToString), HttpWebRequest)
    25. Try
    26. response = DirectCast(request.GetResponse, HttpWebResponse)
    27. Catch
    28. type = ""
    29. Exit Sub
    30. End Try
    31. source = New StreamReader(response.GetResponseStream, System.Text.Encoding.Default).ReadToEnd
    33. If source.IndexOf("video_id") > -1 Then
    34. 'This grabs the .flv location URL ready for doownloading.
    35. Dim signature As String = source
    36. If signature.Contains("&fmt_url_map=") = True Then
    37. Try
    38. signature = System.Text.RegularExpressions.Regex.Split(signature, "&fmt_url_map=")(1)
    39. Catch
    40. End Try
    41. ElseIf signature.Contains(Chr(34) + "fmt_url_map" + Chr(34) + ": " + Chr(34)) = True Then
    42. Try
    43. signature = System.Text.RegularExpressions.Regex.Split(signature, Chr(34) + "fmt_url_map" + Chr(34) + ": " + Chr(34))(1)
    44. Catch
    45. End Try
    46. Else
    47. Debug.WriteLine("Kritischer Fehler: Download URL konnte nicht hergestellt werden.")
    48. type = ""
    49. Exit Sub
    50. End If
    52. 'This changes the URL to conform to internet standards eg. %20 = " "
    53. signature = signature.Remove(0, 5)
    54. signature = signature.Replace("%252C", ",")
    55. signature = signature.Replace("%2F", "/")
    56. signature = signature.Replace("%3D", "=")
    57. signature = signature.Replace("%3F", "?")
    58. signature = signature.Replace("%3A", ":")
    59. signature = signature.Replace("%26", "&")
    60. Dim sig2 As String = signature
    61. sig2 = sig2.IndexOf("http", 30)
    62. signature = signature.Remove(sig2, signature.Length - sig2)
    63. signature = signature.Remove(signature.IndexOf("%"), 7)
    64. 'Removes any remaining % characters from the string.
    65. signature = signature.Replace("%", "")
    67. 'Checks for and fixes any malformed http requests in the string.
    68. If signature.StartsWith("ttp://") Then
    69. signature = signature.Replace("ttp://", "http://")
    70. End If
    72. 'Checks for and Removes any remaining C characters from the string.
    73. If signature.Chars(signature.Length - 1) = "C" Then
    74. signature = signature.Remove(signature.Length - 1, 1)
    75. End If
    77. If signature.Contains("rv.2.rating") Then
    78. Dim n As Integer = signature.IndexOf(ChrW(34) + ",")
    79. signature = signature.Remove(n, signature.Length - n)
    80. End If
    82. 'PERFORMS CLEANUP
    83. If request2 IsNot Nothing Then
    84. Try
    85. request2.Abort()
    86. Catch
    87. End Try
    88. End If
    89. If response2 IsNot Nothing Then
    90. Try
    91. response2.Close()
    92. Catch
    93. End Try
    94. End If
    96. Try
    97. request2 = DirectCast(HttpWebRequest.Create(signature), HttpWebRequest)
    98. Catch
    99. type = ""
    100. Exit Sub
    101. End Try
    102. response2 = DirectCast(request2.GetResponse, HttpWebResponse)
    103. If response2.ContentType = "video/x-flv" Then
    104. type = ".flv"
    105. output = signature
    106. size = response2.ContentLength
    107. ElseIf response2.ContentType = "video/mp4" Then
    108. type = ".mp4"
    109. output = signature
    110. size = response2.ContentLength
    111. Else
    112. type = ""
    113. output = ""
    114. Exit Sub
    115. End If
    116. End If
    117. End Sub
    118. #End Region
    120. Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
    121. web.DownloadFileAsync(New Uri(downloadurl), SaveFileDialog1.FileName)
    122. If CType(sender, System.ComponentModel.BackgroundWorker).CancellationPending Then
    123. web.CancelAsync()
    124. End If
    125. End Sub
    126. Public
    127. Sub DownloadingFile(ByVal sender As Object, ByVal e As
    128. DownloadProgressChangedEventArgs) Handles Web.DownloadProgressChanged
    129. Dim deleg As New OneArgD(AddressOf SetValue)
    130. ProgressBar1.Invoke(deleg, e.ProgressPercentage)
    131. If e.ProgressPercentage = 100 Then
    132. MsgBox("Download abgeschlossen.", MsgBoxStyle.Information)
    133. End If
    134. End Sub
    135. Private Sub SetValue(ByVal max As Object)
    136. Me.ProgressBar1.Value = CInt(max)
    137. Me.lblper.Text = ProgressBar1.Value.ToString + " %"
    138. End Sub
    140. Private Sub AdvantiumButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AdvantiumButton1.Click
    142. Dim filetype As String = ""
    143. Dim size As Integer = 0
    144. MakeDownloadURL(TextBox1.Text, downloadurl, filetype, size)
    146. If filetype = ".flv" Then
    147. SaveFileDialog1.Filter = "FLV Files (.flv) |*.flv"
    148. ElseIf filetype = ".mp4" Then
    149. SaveFileDialog1.Filter = "MP4 Files (.mp4) |*.mp4"
    150. Else
    151. MsgBox("Ein
    152. Fehler ist aufgetreten und die angeforderte Datei (en) konnte nicht
    153. heruntergeladen werden." + vbCrLf + "Dies wird normalerweise durch
    154. Änderungen an der You-Tube Webseite verursacht.", MsgBoxStyle.Critical)
    155. Exit Sub
    156. End If
    158. If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
    159. BackgroundWorker1.RunWorkerAsync()
    160. Else
    161. MsgBox("Download abgebrochen!")
    162. End If
    163. End Sub


    Wie kann ich dies beheben?

    Was muss ich erneuern?

    Edit by der_Kurt:
    Bitte längere Code-Passagen in den Expander-Tag setzen. Es ist den Users nicht zuzumuten, immer nach unten zu scrollen, um den Thread verfolgen zu können
    * Expander-Tag wurde eingefügt *
    100%
    Radio-Player Modul >>1.0<<:
    Fertigstellung: 100%

    Download gibt es per PN :)

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Cybkill“ ()

    Nur mal zur Info: Der Code ist furchbar formatiert. Ich mache mir keine Mühe, diesen Code zu lesen (Sorry!). Und ich denke, die meisten haben zu auch keine Lust.
    Es gibt im Forum ein paar Beträge mit Hinweis und Tips, wie man VB-Code richtig postet.
    Bitte nachlesen und deie Frage nochmal editieren, sonst ist die Chance sehr gering, dass eine(r) Dir in diesem Thread hilft.

    Cybkill schrieb:

    If filetype = ".flv" Then
    SaveFileDialog1.Filter = "FLV Files (.flv) |*.flv"
    ElseIf filetype = ".mp4" Then
    SaveFileDialog1.Filter = "MP4 Files (.mp4) |*.mp4"
    Else
    MsgBox("Ein
    Fehler ist aufgetreten und die angeforderte Datei (en) konnte nicht
    heruntergeladen werden." + vbCrLf + "Dies wird normalerweise durch
    Änderungen an der You-Tube Webseite verursacht.", MsgBoxStyle.Critical)
    Exit Sub
    End If

    Hast Du den Code verstanden?
    Anscheinend is die variable "filetype" nicht richtig gesetzt, da sie weder ".flv" noch ".mp4" zu seien scheint, sodass der else-zweig aufgerufen wird.
    SᴛᴀʀGᴀᴛᴇ01

    In den Boardregeln steht auch dies:

    Wenn ihr Regelverstöße seht, so macht das Forumteam über die foreninterne Melden-Funktion
    darauf aufmerksam und spielt nicht den "Hilfs-Mod", indem ihr den User selbst darauf hinweist.

    PS: Startpost wurde korrigiert

Facebook
Telefonspende