使用 sendkeys 导航并等待 webbrowser 响应

Question

是否可以打开网页、导航一次/单击按钮并第二次导航页面而无需使用三个按钮（三个按钮都可以正常工作）？

我尝试了 sleep（不起作用）和 SendKeys.SendWait（也不起作用）。

代码如下：

Dim browser As New WebBrowser
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        With browser
            browser.Name = "mybrowser"
            .Dock = DockStyle.Fill
            .Url = New Uri("http://pretraga2.apr.gov.rs/ObjedinjenePretrage/Search/Search")
            .Visible = True
        End With
        Me.Controls.Add(browser)
        browser.Focus()
        'browser.Focus()
        SendKeys.SendWait("{TAB}" & "{TAB}" & "08727988" & "{ENTER}") ' & "{TAB}" & "{ENTER}")
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        browser.Focus()
        SendKeys.Send("{TAB}" & "{TAB}" & "20084693" & "{ENTER}") ' & "{TAB}" & "{ENTER}")
        SendKeys.SendWait("{TAB}" & "{TAB}" & "{TAB}" & "{TAB}" & "{ENTER}")
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        browser.Focus()
        SendKeys.Send("{TAB}" & "{TAB}" & "{TAB}" & "{TAB}" & "{ENTER}")
    End Sub

Answer 1

是的，我认为这是可能的，但您必须等到浏览器完成加载。您使用什么浏览器控件？我在这个例子中使用了 SHDocVw.InternetExplorer：

 Public Sub browse(ByVal szURL As String, Optional ByVal bWaitTillDone As Boolean = True)

    Dim nTickStart As Long
    Dim nTickEnde As Long = 0

    Dim i As Integer = 0

    Do
        Try

            IE.Navigate(szURL)

            If bWaitTillDone Then

                nTickStart = System.Environment.TickCount

                While IE.Busy
                    fnSleepMS(15)

                    nTickEnde = System.Environment.TickCount
                    If nTickEnde - nTickStart > IEBrowser.nMaxWaitSeconds * 1000 Then
                        Throw New Exception("Browse hat zu lange gedauert!")
                    End If

                End While
            End If

            Exit Do

        Catch ex As Exception
            i += 1
            If i >= 5 Then
                Throw New Exception("IEBrowser.browse(): " & szURL & "--> " & ex.Message)
            Else
                LOG.add("IEBrowser.browse() - Versuch (" & i & ")" & ex.Message)
                fnSleep(1, LOG)
            End If
        End Try
    Loop

End Sub    

使用此浏览器控件，您可以读出所有 ahref-Tags 和 Buttons 并直接单击它们，这样您就可以建立一个序列。

希望我对您的理解正确，这对您有所帮助。但是请告诉您在哪个环境中使用哪个浏览器控件（Framework + Visual Studio）