Kalashnikov
Junior Member
- Feb 18, 2011
- 148
- 59
I'm having trouble with my bot, I'm trying to make it click an element that's loaded by javascript but it's not appearing in the elements list.
Any workarounds?
Any workarounds?
soundcloud.com/tenaciousd/low-hangin-fruit
Web browser bot, I've tried before without luck. If anyone could attempt to click the blue bar via a vb.net browser bot I'd appreciate it.
void webBrowser1_DocumentCompleted(object sender, WebBrowserDocumentCompletedEventArgs e)
{
if (e.Url.AbsolutePath != (sender as WebBrowser).Url.AbsolutePath)
return;
HtmlElement head = webBrowser1.Document.GetElementsByTagName("head")[0];
HtmlElement scriptEl = webBrowser1.Document.CreateElement("script");
IHTMLScriptElement element = (IHTMLScriptElement)scriptEl.DomElement;
element.text = "function clickIt() { $('.timestamped-comments:first').click(); }";
head.AppendChild(scriptEl);
webBrowser1.Document.InvokeScript("clickIt");
}
Private Sub webBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs)
If e.Url.AbsolutePath <> TryCast(sender, WebBrowser).Url.AbsolutePath
Then Return
End If
Dim head As HtmlElement = webBrowser1.Document.GetElementsByTagName("head")(0)
Dim scriptEl As HtmlElement = webBrowser1.Document.CreateElement("script")
Dim element As IHTMLScriptElement = DirectCast(scriptEl.DomElement, IHTMLScriptElement)
element.text = "function clickIt() { $('.timestamped-comments:first').click(); }"
head.AppendChild(scriptEl)
webBrowser1.Document.InvokeScript("clickIt")
End Sub
Ok this vb versio:
Code:Private Sub webBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) If e.Url.AbsolutePath <> TryCast(sender, WebBrowser).Url.AbsolutePath Then Return End If Dim head As HtmlElement = webBrowser1.Document.GetElementsByTagName("head")(0) Dim scriptEl As HtmlElement = webBrowser1.Document.CreateElement("script") Dim element As IHTMLScriptElement = DirectCast(scriptEl.DomElement, IHTMLScriptElement) element.text = "function clickIt() { $('.timestamped-comments:first').click(); }" head.AppendChild(scriptEl) webBrowser1.Document.InvokeScript("clickIt") End Sub