Hata Yardım Visual Basic

Arkadaşlar Merhaba Youtube Video İndirme Programı Yaptım Kodları Yazdım Programı başlatım Youtube Linki Yapıştırım Yükle Dediğim Zaman Şöyle Bir Hata Alıyorum.

kodu atarmısın buraya

Imports System.Text.RegularExpressions
Imports System.Net
Imports System.IO


Public Class Form1

Public Request As HttpWebRequest
Public Response As HttpWebResponse
Public Source As String

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Url As String
WebBrowser1.Navigate(Replace(TextBox1.Text, "Watch?v=", "v/"))
ComboBox1.Items.Clear()
Url = TextBox1.Text
Request = DirectCast(HttpWebRequest.Create(Url), HttpWebRequest)
Response = DirectCast(Request.GetResponse, HttpWebResponse)
Source = New StreamReader(Response.GetResponseStream, System.Text.Encoding.Default).ReadToEnd
Dim Expression As New Regex("[^\=]*o-o[^\,]*")
Dim m As Match = Expression.Match(Source)
Do While m.Success
ComboBox1.Items.Add(m.Value)
m = m.NextMatch
Loop
For I = 0 To 1
ComboBox1.Items.RemoveAt(0)
Next
For I = 0 To ComboBox1.Items.Count - 1
ComboBox1.SelectedIndex = I
ComboBox1.Items(I) = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace _
(ComboBox1.Items(I), "%3A", ":"), _
"2C", ","), _
"%2F", "/"), _
"%3F", "?"), _
"%3D", "_"), _
"%25", ""), _
"%26", "&"), _
"---", "."), _
"%38", ";")



Next

End Sub

Private Sub Combobox1_SelecetedIndexChanged(ByVal Sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim Expression As New Regex("[^\=]*video/[^\;\\]*")
Dim m As Match = Expression.Match(ComboBox1.Text)
TextBox2.Text = Replace(m.Value, "video/", "")

Dim Expression2 As New Regex("[\\^]*quality[^\\]*")
Dim m2 As Match = Expression2.Match(ComboBox1.Text)
TextBox3.Text = m2.Value
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim expression As New Regex("[^""]* ")
Dim m As Match = expression.Match(ComboBox1.Text)
If m.Success Then
Try
SaveFileDialog1.FileName = "video." & TextBox2.Text
If SaveFileDialog1.ShowDialog = System.Windows.Forms.DialogResult.OK Then
My.Computer.Network.DownloadFile(m.Value, SaveFileDialog1.filename, _
vbNullString, vbNullString, True, 5000, True)



End If
Catch ex As Exception

End Try
End If
End Sub

End Class

Imports System.Text.RegularExpressions
Imports System.Net
Imports System.IO


Public Class Form1

Public Request As HttpWebRequest
Public Response As HttpWebResponse
Public Source As String

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Url As String
WebBrowser1.Navigate(Replace(TextBox1.Text, "Watch?v=", "v/"))
ComboBox1.Items.Clear()
Url = TextBox1.Text
Request = DirectCast(HttpWebRequest.Create(Url), HttpWebRequest)
Response = DirectCast(Request.GetResponse, HttpWebResponse)
Source = New StreamReader(Response.GetResponseStream, System.Text.Encoding.Default).ReadToEnd
Dim Expression As New Regex("[^\=]*o-o[^\,]*")
Dim m As Match = Expression.Match(Source)
Do While m.Success
ComboBox1.Items.Add(m.Value)
m = m.NextMatch
Loop
For I = -1 To 1
ComboBox1.Items.RemoveAt(0)
Next
For I = 0 To ComboBox1.Items.Count - 1
ComboBox1.SelectedIndex = I
ComboBox1.Items(I) = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace _
(ComboBox1.Items(I), "%3A", ":"), _
"2C", ","), _
"%2F", "/"), _
"%3F", "?"), _
"%3D", "_"), _
"%25", ""), _
"%26", "&"), _
"---", "."), _
"%38", ";")



Next

End Sub

Private Sub Combobox1_SelecetedIndexChanged(ByVal Sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim Expression As New Regex("[^\=]*video/[^\;\\]*")
Dim m As Match = Expression.Match(ComboBox1.Text)
TextBox2.Text = Replace(m.Value, "video/", "")

Dim Expression2 As New Regex("[\\^]*quality[^\\]*")
Dim m2 As Match = Expression2.Match(ComboBox1.Text)
TextBox3.Text = m2.Value
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim expression As New Regex("[^""]* ")
Dim m As Match = expression.Match(ComboBox1.Text)
If m.Success Then
Try
SaveFileDialog1.FileName = "video." & TextBox2.Text
If SaveFileDialog1.ShowDialog = System.Windows.Forms.DialogResult.OK Then
My.Computer.Network.DownloadFile(m.Value, SaveFileDialog1.filename, _
vbNullString, vbNullString, True, 5000, True)



End If
Catch ex As Exception

End Try
End If
End Sub

End Class

nöyle denermisin

LAMBYFear' Alıntı:

Imports System.Text.RegularExpressions
Imports System.Net
Imports System.IO


Public Class Form1

Public Request As HttpWebRequest
Public Response As HttpWebResponse
Public Source As String

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Url As String
WebBrowser1.Navigate(Replace(TextBox1.Text, "Watch?v=", "v/"))
ComboBox1.Items.Clear()
Url = TextBox1.Text
Request = DirectCast(HttpWebRequest.Create(Url), HttpWebRequest)
Response = DirectCast(Request.GetResponse, HttpWebResponse)
Source = New StreamReader(Response.GetResponseStream, System.Text.Encoding.Default).ReadToEnd
Dim Expression As New Regex("[^\=]*o-o[^\,]*")
Dim m As Match = Expression.Match(Source)
Do While m.Success
ComboBox1.Items.Add(m.Value)
m = m.NextMatch
Loop
For I = -1 To 1
ComboBox1.Items.RemoveAt(0)
Next
For I = 0 To ComboBox1.Items.Count - 1
ComboBox1.SelectedIndex = I
ComboBox1.Items(I) = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace _
(ComboBox1.Items(I), "%3A", ":"), _
"2C", ","), _
"%2F", "/"), _
"%3F", "?"), _
"%3D", "_"), _
"%25", ""), _
"%26", "&"), _
"---", "."), _
"%38", ";")



Next

End Sub

Private Sub Combobox1_SelecetedIndexChanged(ByVal Sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim Expression As New Regex("[^\=]*video/[^\;\\]*")
Dim m As Match = Expression.Match(ComboBox1.Text)
TextBox2.Text = Replace(m.Value, "video/", "")

Dim Expression2 As New Regex("[\\^]*quality[^\\]*")
Dim m2 As Match = Expression2.Match(ComboBox1.Text)
TextBox3.Text = m2.Value
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim expression As New Regex("[^""]*

Bağlantıları görmek için lütfen Giriş Yap

")
Dim m As Match = expression.Match(ComboBox1.Text)
If m.Success Then
Try
SaveFileDialog1.FileName = "video." & TextBox2.Text
If SaveFileDialog1.ShowDialog = System.Windows.Forms.DialogResult.OK Then
My.Computer.Network.DownloadFile(m.Value, SaveFileDialog1.filename, _
vbNullString, vbNullString, True, 5000, True)



End If
Catch ex As Exception

End Try
End If
End Sub

End Class

Post automatically merged: 5 May 2019

nöyle denermisin

Genişletmek için tıklayın ...

Aynı Hatayı Alıyorum

comboBox1.Items.RemoveAt(0); ";" ekle

Character is not valid şeklinde error verior

Projenin Başına On Resume Error Next
Seçeneğini Ekledim Videoyu Programa Yüklüyor Ama
bu seferde alt kısımda kalite seçme dosya türü seçme (.mp4-.mp3) seçenekleri gelmedi
sanırsam proje çöp

henüz çöp demek için geç millet 1 günde yapmıyor zaten

LAMBYFear' Alıntı:

henüz çöp demek için geç millet 1 günde yapmıyor zaten

Genişletmek için tıklayın ...

Haklısın korktum senden biraz napmamız lazım ?

konunun başında attığın ss gibi bir daha atarmısın bu hatayıda

LAMBYFear' Alıntı:

konunun başında attığın ss gibi bir daha atarmısın bu hatayıda

Genişletmek için tıklayın ...

şu an programda hata yok kodlar aynı sadece başa on resume error next ekledim.
webbrowser videoyu tanıyor ama video kalitesini ve türünü seçme bölümü gelmiyor

bölüm videonun altında kalmıştır

LAMBYFear' Alıntı:

bölüm videonun altında kalmıştır

Genişletmek için tıklayın ...

Projeyi Size Versem Düzenleyip Tekrardan Bana Atma Şansınız Varmıdır Vaktiniz Varsa?

cercer16' Alıntı:

Projeyi Size Versem Düzenleyip Tekrardan Bana Atma Şansınız Varmıdır Vaktiniz Varsa?

Genişletmek için tıklayın ...

sen hala devam et ben vaktim oldukça bakarım

ahh pardon bu bilgisayarda vb.net yok

sen yolla ben pc değişince bakarım

LAMBYFear' Alıntı:

sen hala devam et ben vaktim oldukça bakarım

Post automatically merged: 5 May 2019

ahh pardon bu bilgisayarda vb.net yok

Post automatically merged: 5 May 2019

sen yolla ben pc değişince bakarım

Genişletmek için tıklayın ...

buyrun link Teşekkür Ederim