VB WebBrowser控件下拉列表

Question

在此网页上：https://www.youtube.com/upload_defaults 我想控制下拉列表。

当我检查元素时，我找不到ID，所以我不能使用GetElementById。

我已经尝试过这段代码，但它不起作用：

Dim allelements As HtmlElementCollection = WebBrowser1.Document.All

For Each webpageelement As HtmlElement In allelements

    If webpageelement.GetAttribute("value") = "category_id" Then
        webpageelement.SetAttribute("value", "20")

    End If

提前致谢。

Answer 1

在检查元素后，您是正确的，类别下拉列表没有ID，但名称为category_id。您检查当前循环HtmlElement是否为类别下拉列表的条件是错误的。替换此行：

 If webpageelement.GetAttribute("value") = "category_id" Then

有了这个：

If webpageelement.GetAttribute("name") = "category_id" Then

或者这个：

If InStr(webpageelement.Name, "category_id") Then

因为，不要忘记，category_id是下拉列表的名称。