从vb.net Get浏览器下拉列表中获取数据

Imports System.Windows.Forms

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 使用WebBrowser控件加载网页
        WebBrowser1.Navigate("https://www.example.com")
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        ' 获取网页的HTML文档对象
        Dim htmlDoc As HtmlDocument = WebBrowser1.Document

        ' 定位到目标下拉列表元素
        Dim dropdown As HtmlElement = htmlDoc.GetElementById("dropdown_id")

        ' 检查下拉列表是否存在
        If dropdown IsNot Nothing Then
            ' 遍历下拉列表的选项
            For Each option As HtmlElement In dropdown.Children
                ' 获取选项的值和文本
                Dim value As String = option.GetAttribute("value")
                Dim text As String = option.GetAttribute("innerText")

                ' 在控制台输出选项的值和文本
                Console.WriteLine("值: " & value & "，文本: " & text)
            Next
        End If
    End Sub
End Class