Salut à tous,
Suite à la demande de @RmK Oasix | Lobby dans ce topic http://reality-gaming.fr/threads/aexone-youtube-mp3-converter.309835/
Donc commençons ^^
Première étape, nous allons avoir besoin de:
Ensuite, double cliquez sur le BebBrowser et entrez y ce code:
Dans le button "Convert" ajoutez ce code:
et enfin dans le button "Download MP3" ajoutez:
Voilà vous avez fini votre convertisseur de vidéo YouTube en son MP3
J'espère que ce tuto vous aura plu et si vous avez des questions ou des proposition de tuto n'hésitez pas à m'en parler
Cordialement,
Aexone.
Suite à la demande de @RmK Oasix | Lobby dans ce topic http://reality-gaming.fr/threads/aexone-youtube-mp3-converter.309835/
Donc commençons ^^
Première étape, nous allons avoir besoin de:
- 1 WebBrowser (Visible - False)
- 2 Buttons (Button 1 - Convert) (Button 2 - Download MP3)
Code:
WebBrowser1.Navigate("http://www.youtube-mp3.org/")
Button1.Enabled = False
Ensuite, double cliquez sur le BebBrowser et entrez y ce code:
Code:
Dim text As String = WebBrowser1.DocumentText
If text.Contains("submit-form") Then
Button1.Enabled = True
Else
Button1.Enabled = False
MsgBox("Could not connect to the internet!", MsgBoxStyle.Information, "Error")
End If
Dans le button "Convert" ajoutez ce code:
Code:
WebBrowser1.Document.GetElementById("youtube-url").SetAttribute("value", TextBox1.Text)
WebBrowser1.Document.GetElementById("submit").InvokeMember("click")
Code:
Dim dl_link As HtmlElement = WebBrowser1.Document.GetElementById("dl_link")
Dim links As HtmlElementCollection = dl_link.GetElementsByTagName("a")
Dim url As String = links(0).GetAttribute("href")
System.Diagnostics.Process.Start(url)
Voilà vous avez fini votre convertisseur de vidéo YouTube en son MP3
J'espère que ce tuto vous aura plu et si vous avez des questions ou des proposition de tuto n'hésitez pas à m'en parler
Cordialement,
Aexone.