Hey
Habe hier mal eine Funktion für euch mit der ihr momentan die Videos von YouTube Downloaden könnt.
In end_DL_url steht jetzt der Download Link und über den WebClient heruntergeladen.
Viel spaß damit hoffe ich konnte euch ein bischen helfen.
Viele Grüße
Croasider
Habe hier mal eine Funktion für euch mit der ihr momentan die Videos von YouTube Downloaden könnt.
VB.NET-Quellcode
- Imports System.Net
- Imports System.IO
- Dim httpURL As New System.Uri(*YOUTUBE-LINK*)
- Dim request As HttpWebRequest = HttpWebRequest.Create(httpURL)
- request.Method = WebRequestMethods.Http.Get
- Dim response As HttpWebResponse = request.GetResponse()
- Dim reader As New StreamReader(response.GetResponseStream())
- Dim start_DL_url As String = reader.ReadToEnd()
- response.Close()
- ' Download Link
- 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)
- 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", "/")
- 'Ordner & Download
- Dim sfd As New SaveFileDialog
- sfd.Filter = "Video|.flv"
- If sfd.ShowDialog = Windows.Forms.DialogResult.OK Then
- Dim Http_Download as new WebClient
- Http_Download.DownloadFileAsync(New Uri(end_DL_url), sfd.FileName)
- End If
In end_DL_url steht jetzt der Download Link und über den WebClient heruntergeladen.
Viel spaß damit hoffe ich konnte euch ein bischen helfen.
Viele Grüße
Croasider
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Croasider“ ()