Sub getYoutubeLink(content As String) As String
Dim link As String
Try
Dim parser As MiniHtmlParser
parser.Initialize
Dim root As HtmlNode = parser.Parse(content)
Dim sf_result As HtmlNode = parser.FindNode(root,"div",parser.CreateHtmlAttribute("id","sf_result"))
parser.PrintNode(sf_result) 'For debugging
Dim btnbox As HtmlNode = parser.FindNode(sf_result,"div",parser.CreateHtmlAttribute("class","def-btn-box"))
Dim atag As HtmlNode = parser.FindNode(btnbox,"a",Null)
link = parser.GetAttributeValue(atag,"href",Null)
Catch
Log(LastException)
link = "Not Found"
End Try
Return cleanAmp(link)
End Sub
Sub cleanAmp(link As String) As String
Return link.Replace("amp;","")
End Sub
