Question

我有一个vb程序，它使用内置的Web浏览器在站点上查找特定的下拉菜单，并选择用户输入的大小。网站更改了每个不同项目的值，因此我必须使用以下代码找到正确的选项：

Dim element As HtmlElement = WebBrowser1.Document.GetElementsByTagName("select").Cast(Of HtmlElement).First(Function(el) el.GetAttribute("name") = "size")
    element.GetElementsByTagName("option").Cast(Of HtmlElement).First(Function(el) el.InnerText = Form1.cmbSize1.Text).SetAttribute("selected", "selected")

这可以将下拉菜单设置为正确的大小（如果可用）但是例如用户输入大小为：'小'并且它不存在我希望程序添加下一个大小例如： '中'

<select id="size" name="size">
<option value="26881">Medium</option>
<option value="26882">Large</option>
<option value="26883">XLarge</option>
</select>

默认情况下，如果用户输入了尺寸，网站会加载默认尺寸“中”，但我有一个功能可以将项目添加到用户购物车中，如果输入的尺寸由于某种原因不存在则不会添加到购物车添加到购物车的代码是：

  For Each addtobasket As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")
        If addtobasket.OuterHtml.Contains("add to basket") Then
            addtobasket.InvokeMember("click")
            Return
        End If
    Next

提前致谢：）

我如何选择下一个最佳选项

0 个答案: