Html Visual Studio-getElementsByTagName（）-

我是VisualBasic的新手，希望创建一个程序，加载浏览器并将您登录到特定站点

但是，我尝试登录的网站的用户名和密码字段没有可供使用的id或名称

有没有办法

GetElementByClass

？ 感谢您的帮助。我似乎在网上找不到多少文档

类似于：

WebBrowser1.Document.GetElementById("username").SetAttribute("Value",yourUsername)

例如，我尝试获取的输入框是：

<input type="text" class="gwt-TextBox" maxlength="50" style="width: 180px;">

---

我现在看到

SetAttribute

不是

HtmlElement

集合的成员

完整代码，在@Jimi（）的帮助下

---

这是一个

元素。用于枚举它们。循环遍历枚举，挑出一个具有您要查找的class属性的枚举。请容忍我，因为这不是干净的代码，但这是我想到的。后更新。仍然需要帮助。该属性名为

className

。要完全按照此处所写的内容编写。这是元素

value

：）

SetAttribute（）

用于设置单个

HtmlElement

的属性值。在循环中，用右边的

类名

标识元素，然后设置其新值。最后一个提示是，关于长时间对话的警告已经到来。如果你不能想出一些有效的代码，请告诉我，我会发布一个例子。

Dim theElementCollection As HtmlElementCollection
theElementCollection = WebBrowser1.Document.GetElementsByTagName("input")

For Each curElement As HtmlElement In theElementCollection

Dim controlName As String = curElement.GetAttribute("className").ToString

'MessageBox.Show(curElement.GetAttribute("className").ToString)
' This shows classNames of gwt-TextBox and gwt-PasswordTextBox

Dim user As String = "user"
Dim pass As String = "pass"

WebBrowser1.Document.All.GetElementsByName("gwtTextBox").SetAttribute("value", user)
WebBrowser1.Document.All.GetElementsByName("gwt-PasswordTextBox").SetAttribute("value", user)

   Dim inputElementCollection As HtmlElementCollection
    inputElementCollection = WebBrowser1.Document.GetElementsByTagName("input")

    Dim buttonCollection As HtmlElementCollection
    buttonCollection = WebBrowser1.Document.GetElementsByTagName("button")

    For Each curElement As HtmlElement In inputElementCollection
        Dim inputName As String = curElement.GetAttribute("className").ToString
        'MessageBox.Show(curElement.GetAttribute("className").ToString)
        'gwt-TextBox
        'gwt-PasswordTextBox

        Dim username = uname.Text
        Dim password = passwd.Text

        If curElement.GetAttribute("className") = "gwt-TextBox" Then
            curElement.SetAttribute("value", username)
        End If

        If curElement.GetAttribute("className") = "gwt-PasswordTextBox" Then
            curElement.SetAttribute("value", password)
        End If
    Next

    For Each button As HtmlElement In buttonCollection
        Dim buttonName As String = button.GetAttribute("className").ToString

        If button.GetAttribute("className") = "gwt-Button" Then
            button.InvokeMember("click")
        End If
    Next