bashkaru Ответов: 1

Как отобразить выходные данные кнопки отправки в webbrowser1 во втором webbrowser2 в VB.NET


Привет, я использую один веб-браузер в форме. я просматриваю сайт, как указано в коде, вводю текст и автоматически нажимаю кнопку.

в случае отправки кнопки в фоновом режиме веб-сайта запускается javascript, который проверяет введенное значение, и открывается окно результата.

когда я использую один webbrowser1, это прекрасно работает, но я хочу, чтобы страница результатов отображалась во втором webbrowser2, чего я не могу достичь. пожалуйста помочь.

я не могу понять, как нажать на код в событии submit (функция javascript) и передать переменную второму веб-браузеру.

пожалуйста помочь

Что я уже пробовал:

WebBrowser1.Navigate("https://www.notams.faa.gov/dinsQueryWeb/")


Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

'Locate the Radio button and set the radio button to "RAW"
    Dim theElementCollection As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
    Do Until counter = 1
        For Each curElement As HtmlElement In theElementCollection
            Dim controlVal As String = curElement.GetAttribute("Value").ToString
            If controlVal = "Raw" Then
                curElement.InvokeMember("Click")
                Exit For
            End If
        Next

        'Locate the textbox area and input some ICAO Code ...
        Dim viewTextBox As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
        viewTextBox = WebBrowser1.Document.GetElementsByTagName("textarea")
        For Each curElement As HtmlElement In viewTextBox
            Dim controlName As String = curElement.GetAttribute("name").ToString
            If controlName = "retrieveLocId" Then
                curElement.SetAttribute("value", "OOMS")
                Exit For
            End If
        Next

        'After inputing the ICAO Code, locate the sbumit button and click it automatically.
        Dim theXelementcollection As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
        For Each cursElement As HtmlElement In theXelementcollection
            Dim controlName As String = cursElement.GetAttribute("name").ToString
            If controlName.Equals("submit") Then
                cursElement.InvokeMember("click")
                counter = counter + 1
                Exit Do
                Exit For
            End If
        Next
    Loop

    Dim htmlSourceCode As String = WebBrowser1.DocumentText.ToString()
    Dim bodyContent As String = WebBrowser1.Document.Body.InnerHtml
    RichTextBox1.Text = bodyContent 'sourcecode
    End Sub


Private Sub WebBrowser1_NewWindow1(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow
    e.Cancel = True
    WebBrowser1.Navigate("https://www.notams.faa.gov/dinsQueryWeb/queryRetrievalMapAction.do")
    Exit Sub
End Sub

1 Ответов

Рейтинг:
1

Gerry Schmitz

Подключите событие навигации в браузере 1, перехватите url-адрес и передайте его браузеру 2.

объект WebBrowser.События Navigated (Системы.Окна.Формы) | Microsoft Docs[^]