Antwort schreiben 
 
Themabewertung:
  • 0 Bewertungen - 0 im Durchschnitt
  • 1
  • 2
  • 3
  • 4
  • 5
youtube downloader
26.05.2012, 17:45
Beitrag: #1
youtube downloader
hallo habe gerade deinen youtube downloader versucht zu programmiern
hab es auch mit der update gemacht aber das kommentar
"Das Argument Length muss größer als oder gleich 0 (null) sein."
tritt noch immer auf und zwar bei hersteller

Code:
Public Sub ERMITTELN_ROUTINE_EINZELN()
        Dim anfang_stelle_des_video_namens As Integer
        anfang_stelle_des_video_namens = InStr(start_DL_url, "<meta name=""title"" content=""") + 28
        Dim ende_stelle_des_video_namens As Integer
        ende_stelle_des_video_namens = InStr(start_DL_url, "<meta name=""description"" content=""") - 6
        Dim Laenge_des_namens As Integer
        Laenge_des_namens = ende_stelle_des_video_namens - anfang_stelle_des_video_namens

        Name_des_videos = Mid(start_DL_url, anfang_stelle_des_video_namens, Laenge_des_namens)

        '##########################################################################​############

        Dim anfang_stelle_des_video_herstellers As Integer
        anfang_stelle_des_video_herstellers = InStr(start_DL_url, "var watchUsername = '") + 21
        Dim ende_stelle_des_video_herstellers As Integer
        ende_stelle_des_video_herstellers = InStr(anfang_stelle_des_video_herstellers, start_DL_url, "';")
        Dim Laenge_des_herstellers As Integer
        Laenge_des_herstellers = ende_stelle_des_video_herstellers - anfang_stelle_des_video_herstellers

        Name_des_herstellers = Mid(start_DL_url, anfang_stelle_des_video_herstellers, Laenge_des_herstellers)

        '##########################################################################​############

        ' Get the Name of the Video
        Dim anfang_stelle_des_video_namens1 As Integer
        anfang_stelle_des_video_namens1 = InStr(start_DL_url, "<meta name=""title"" content=""") + 28
        Dim ende_stelle_des_video_namens1 As Integer
        ende_stelle_des_video_namens1 = InStr(start_DL_url, "<meta name=""description"" content=""") - 6
        Dim Laenge_des_namens1 As Integer
        Laenge_des_namens1 = ende_stelle_des_video_namens1 - anfang_stelle_des_video_namens1
        Name_des_videos = Mid(start_DL_url, anfang_stelle_des_video_namens1, Laenge_des_namens1)

        ' Get the Name of the Autor
        Dim anfang_stelle_des_video_herstellers1 As Integer = InStr(start_DL_url, "'VIDEO_USERNAME': '") + 19
        Dim ende_stelle_des_video_herstellers1 As Integer = InStr(anfang_stelle_des_video_herstellers1, start_DL_url, "'")
        Dim Laenge_des_herstellers1 As Integer = ende_stelle_des_video_herstellers1 - anfang_stelle_des_video_herstellers1
        Name_des_herstellers = Mid(start_DL_url, anfang_stelle_des_video_herstellers1, Laenge_des_herstellers1)

        ' Get the first String of the Download-String
        Dim anfang_stelle_des_video_downloads_1 As Integer = InStr(start_DL_url, "<!-- end contenttop section -->") + 30
        Dim anfang_stelle_des_video_downloads_2 As Integer = InStr(anfang_stelle_des_video_downloads_1, start_DL_url, "url_map") + 13
        Dim ende_stelle_des_video_downloads_1 As Integer = InStr(anfang_stelle_des_video_downloads_2 + 5, start_DL_url, "%2C")
        Dim Laenge_des_downloads_1 As Integer = ende_stelle_des_video_downloads_1 - anfang_stelle_des_video_downloads_2

        Dim Name_des_downloads_1 As String
        Name_des_downloads_1 = Mid(start_DL_url, anfang_stelle_des_video_downloads_2, Laenge_des_downloads_1)
        end_DL_url = Name_des_downloads_1.Replace("%3F", "?").Replace("%3D", "=").Replace("%26", "&").Replace("%25", "%").Replace("%2C", ",").Replace("%25", "%").Replace("%3A", ":").Replace("%2F", "/")



        Dim Request As HttpWebRequest
        Dim Response As HttpWebResponse
        Try
            Request = DirectCast(HttpWebRequest.Create(end_DL_url), HttpWebRequest)
            Request.Timeout = 5000
            Response = DirectCast(Request.GetResponse(), HttpWebResponse)
            sizes = Math.Round(Response.ContentLength / 1024 / 1024, 2)
        Catch
        End Try

    End Sub



was ist falsch?
Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren
26.05.2012, 21:46
Beitrag: #2
RE: youtube downloader
Hi, der Code ist schon Jahre alt.

Er funktioniert einfach nicht mehr. Das Verhalten ist daher normal.

Kostet mich leider zu viel Zeit immer ein Update rauszubringen. Code musst du anpassen, damit es wieder geht.

Grüße

kwoxer.de - das kwoxt!
Webseite des Benutzers besuchen Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren
Antwort schreiben 


Gehe zu:


Kontakt | kwoxer.de Forum | Nach oben | Zum Inhalt | Archiv-Modus | RSS-Synchronisation