Question

我有一个autoclicker脚本，每隔几秒钟提交一次（大约每秒1次）。当我测试它时，我注意到它只能运行大约20分钟然后它会没有响应，我想到解决这个问题的唯一方法就是让脚本每秒都刷新页面。但是，当我尝试这个时，它不会起作用，因为它会刷新它仍然会尝试自动点击，从而给我一个无响应的错误：http://gyazo.com/cfc3d673573d725042e3acc7142a53b9

我能想到解决这个问题的唯一方法是在刷新时点击按钮或等到文档完成后再添加一个暂停。看起来这会很好但我永远无法让它工作......：\任何帮助？如果有帮助，我决定发布我的脚本来源：http://pastebin.com/4WMcn5Ln 我会发布更多但我只能发布2个链接...

Answer 1

以下是使用DocumentCompleted事件的方法：

Private Sub navBtnClick(sender As Object, e As EventArgs)
    Dim wbrowser = New WebBrowser()
    wbrowser.DocumentCompleted += New WebBrowserDocumentCompletedEventHandler(WebBrowser_DocumentCompleted)
    wbrowser.Navigate("http://www.somesite.com/login")
End Sub

Public Sub WebBrowser_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs)
    Dim webBrowser = TryCast(sender, WebBrowser)
    webBrowser.DocumentCompleted -= WebBrowser_DocumentCompleted
    'MessageBox.Show(webBrowser.Url.ToString())
    webBrowser.Document.GetElementById("login").SetAttribute("value", txtUsername.Text)
    webBrowser.Document.GetElementById("passwd").SetAttribute("value", txtPassword.Text)
    webBrowser.Document.GetElementById("SI").InvokeMember("Click")
End Sub

如果要导航到的文档具有嵌入其他网页的iframe，则会多次触发DocumentCompleted事件。如果您只想要一次接收事件，只需取消订阅DocumentCompleted处理程序，如上所示。

使用自动闪烁刷新页面

1 个答案: