Hiiii Co ich habe heute/eben ein Youtube downloader programmiert aber er zeigt mir nen fehler an und ich komm nicht weiter 
Projekt screen: i39.tinypic.com/2duww6.png
Errorscreen: i43.tinypic.com/20g1m2x.png
fehler code:
vollständiger code:
Bitte Um Hilfe
Lg Getsha
Edit by Manschula: Bitte Code-Tags sowie einen aussagekräftigen Titel (<> "Hilfe") verwenden --> VB-Tag eingefügt, Titel geändert
Projekt screen: i39.tinypic.com/2duww6.png
Errorscreen: i43.tinypic.com/20g1m2x.png
fehler code:
vollständiger code:
VB.NET-Quellcode
- Imports System.Net
- Imports System.IO
- Imports System.Text.RegularExpressions
- Public Class Form1
- Public Sub Get_Video_Info(ByVal Link As String)
- Dim Request As HttpWebRequest = HttpWebRequest.Create(Link)
- Dim Response As HttpWebResponse = Request.GetResponse()
- Dim reader As StreamReader = New StreamReader(Response.GetResponseStream)
- Dim httpContent As String
- httpContent = reader.ReadToEnd
- Dim TitleRegEx As New Regex("title=""(?(.*))"" />")
- Dim title As String
- title = TitleRegEx.Match(httpContent).Groups("Title").ToString
- Dim i As ListViewItem
- i = ListView1.Items.Add(Link)
- With i
- .SubItems.Add(title)
- End With
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- If ListView1.SelectedItems.Count <> 1 Then
- Dim Link As String
- Link = InputBox("Bitte Ihr Youtube Link Eingeben ;)")
- Get_Video_Info(Link)
- Button3.Enabled = True
- Else
- Dim t As String = ListView1.FocusedItem.Tag
- Dim ID As String = ListView1.FocusedItem.Text
- End If
- End Sub
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
- If ListView1.SelectedItems.Count <> 1 Then
- Else
- Dim t As String = ListView1.FocusedItem.Tag
- Dim ID As String = ListView1.FocusedItem.Text
- End If
- SaveFileDialog1.ShowDialog()
- End Sub
- Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
- Button3.Enabled = False
- Button3.Text = "Downloading"
- Dim ID As String
- ID = ListView1.Text.Replace("http://www.youtube.com/watch?v=", "")
- Dim link1 As String
- link1 = "http://www.youtube.com/get_video_info?video_id=" & ID & "&fmt=37"
- Dim inhalt As String
- inhalt = WebClient1.DownloadString(link1)
- Dim pos As Integer = inhalt.IndexOf("url_encoded_fmt_stream_map=")
- Dim Part1 As String = inhalt.Substring(pos).Replace("%3F", "?").Replace("%3D", "=").Replace("%26", "&").Replace("%25", "%").Replace("%2C", ",").Replace("%25", "%").Replace("%3A", ":").Replace("%2F", "/").Substring(31)
- Dim Part2 As String = Part1.Substring(0, Part1.IndexOf("&fallback_host"))
- Dim Downloadlink As String
- Downloadlink = Part2.Replace("%3F", "?").Replace("%3D", "=").Replace("%26", "&").Replace("%25", "%").Replace("%2C", ",").Replace("%25", "%").Replace("%3A", ":").Replace("%2F", "/")
- WebClient1.DownloadFileAsync(New Uri(Downloadlink), SaveFileDialog1.FileName)
- End Sub
- Private Sub WebClient1_DownloadFileCompleted(ByVal sender As System.Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles WebClient1.DownloadFileCompleted
- Dim i As Integer = MessageBox.Show("Datei wurde erfolgreich runtergeladen." & vbNewLine & "Wollen sie diese nun öffnen ?", "Finish", MessageBoxButtons.OKCancel)
- If i = "1" Then
- Process.Start(SaveFileDialog1.FileName)
- Else
- Application.Exit()
- End If
- End Sub
- Private Sub WebClient1_DownloadProgressChanged(ByVal sender As System.Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles WebClient1.DownloadProgressChanged
- ProgressBar1.Value = e.ProgressPercentage
- Button3.Text = "Downloading " & e.ProgressPercentage & "%"
- End Sub
- End Class
Bitte Um Hilfe
Lg Getsha
Edit by Manschula: Bitte Code-Tags sowie einen aussagekräftigen Titel (<> "Hilfe") verwenden --> VB-Tag eingefügt, Titel geändert
Public Signatur
Dim Mfg As Mit freundlichen grüßen
Dim Getsha As User.Getsha
Mfg.Getsha()
End Signatur
Dim Mfg As Mit freundlichen grüßen
Dim Getsha As User.Getsha
Mfg.Getsha()
End Signatur
