Question

我正在尝试编写一个程序，使用WebBrowser控件在www.google.com中模拟简单的浏览器搜索。我真的只是想模拟互联网活动。

我想出了使用循环将数字发送到谷歌搜索框然后按回车的想法。

第WebBrowser1.Document.GetElementById("q").SetAttribute("value", i)行成功将循环中的每个号码发送到Google搜索框，但下一行WebBrowser1.Document.GetElementById("btnK").InvokeMember("Click")不会启动Google搜索按钮。我没有任何错误。

有没有人知道为什么WebBrowser1.Document.GetElementById("btnK").InvokeMember("Click")不起作用？

此外，我注意到当我运行此代码然后启动Internet Explorer时，代码停止。有没有人对此有任何想法？

非常感谢任何帮助！

此致

乔治

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    Call LoadBrowser()

End Sub

Private Sub LoadBrowser()

    WebBrowser1.Navigate("http://www.google.com/")

End Sub 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    ' Send search string 'i' to browser n times
    Dim i As Integer
    For i = 1 To 100
        ' Browser search 
        WebBrowser1.Document.GetElementById("q").SetAttribute("value", i)
        WebBrowser1.Document.GetElementById("btnK").InvokeMember("Click")
        ' Pause n seconds before next loop
        For x As Integer = 0 To 5 * 100 ' Pause for 5 seconds
            Threading.Thread.Sleep(10)
            Application.DoEvents()
        Next
    Next

End Sub

Answer 1

好的，取消你给我们的例子。
试试这个。

Adapter

很抱歉，我只是想帮助您了解代码正在执行的操作以及您可能遇到或可能未遇到的错误以及可能的修复和/或解决方法。
祝好运。

使用WebBrowser控件模拟Web搜索

1 个答案: