Если кто-то сталкивается с той же проблемой, вот решение:
Выход из Facebook:
Dim allelements As HtmlElementCollection = WebBrowser1.Document.All
For Each webpageelement As HtmlElement In allelements
If webpageelement.GetAttribute("data-sigil") = "logout" Then
WebBrowser1.Navigate(webpageelement.GetAttribute("href"))
End If
Next
Страница Facebook Нравится:
Dim allelements As HtmlElementCollection = WebBrowser1.Document.All
For Each webpageelement As HtmlElement In allelements
If webpageelement.GetAttribute("value") = "Like" Then
webpageelement.InvokeMember("click")
End If
Next