Jump to content
  • Kaydol

YouTube Mp3 [Kod]


POK3M0N
 Share

Önerilen Mesajlar

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("http://www.youtube-mp3.org/")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("Herhangi Bir Link Girmediniz", MsgBoxStyle.Critical, "Uyarı !")
        End If
        WebBrowser1.Document.GetElementById("youtube-url").SetAttribute("Value", TextBox1.Text)
        WebBrowser1.Document.GetElementById("submit").InvokeMember("Click")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim s As String = WebBrowser1.Document.GetElementById("dl_link").InnerHtml
        Dim redirect As String = s.Replace("<A href="https://devilcrafty.net/redirect/?to="", "").Replace("""><B>Download</B></A> · <A onclick=""showLinkBox(); return false;"" href="https://devilcrafty.net/redirect/?to="http://www.youtube-mp3.org/&anchor="">Link this mp3</A>", "")
        TextBox2.Text = redirect
        WebBrowser1.Navigate(redirect)
    End Sub

End Class
Yorum bağlantısı
Sitelerde Paylaş

  • 1 year later...
Misafir
Bu konu kapalıdır ama konuya cevap yazmaya yetkiniz var görünüyor.
 Share

×
×
  • Yeni Oluştur...