Как отобразить выходные данные кнопки отправки в 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