Html 如何使用VB6填充网页表单

我想做的是使用VB6填充登录表单网页。 我使用以下代码：

Dim IE As InternetExplorer   
Dim HTMLDoc As HTMLDocument  
Dim COL As MSHTML.IHTMLElementCollection
Dim ELEMENT As MSHTML.HTMLInputElement

Set IE = New InternetExplorer

IE.Visible = True
IE.Navigate "https://app.listonic.com/lists"

Do
    DoEvents
Loop Until IE.ReadyState = READYSTATE_COMPLETE

Set HTMLDoc = IE.Document
Set COL = HTMLDoc.getElementsByTagName("a")

For Each ELEMENT In COL
    If ELEMENT.innerHTML = "Sign In" Then ELEMENT.Click
Next ELEMENT

Do
    DoEvents
Loop Until IE.ReadyState = READYSTATE_COMPLETE

Set COL = HTMLDoc.getElementsByTagName("input")

For Each ELEMENT In COL
    Debug.Print "Inner HTML - " & ELEMENT.innerHTML
    Debug.Print "Outer HTML - " & ELEMENT.outerHTML
    Debug.Print ELEMENT.getAttribute("name")

    If ELEMENT.getAttribute("name") = "Email" Then
        Call ELEMENT.setAttribute("Value", "yourid@server.com")
    End If
    'If ELEMENT.innerHTML = "Sign In" Then ELEMENT.Click
Next ELEMENT

问题在于此代码：

Call ELEMENT.setAttribute("Value", "yourid@server.com")

不起作用。我的意思是，我看不见“yourid@server.com“电子邮件字段中网页上的地址

---

我做错了什么？

好的，我发现了一些东西。与此相反：

Call ELEMENT.setAttribute("Value", "yourid@server.com")

我这样说：

ELEMENT.Value = "yourid@server.com"

这会将电子邮件地址放入“电子邮件”字段中，但我无法单击“登录”按钮，因为该按钮在页面上被禁用。当我在“Email”和“Password”字段中手动键入某些内容时，它将启用（当然，我也填充了Password字段）

---

有关于如何从vb6代码启用“登录”的提示吗？

好的，我发现了一些东西。与此相反：

Call ELEMENT.setAttribute("Value", "yourid@server.com")

我这样说：

ELEMENT.Value = "yourid@server.com"

这会将电子邮件地址放入“电子邮件”字段中，但我无法单击“登录”按钮，因为该按钮在页面上被禁用。当我在“Email”和“Password”字段中手动键入某些内容时，它将启用（当然，我也填充了Password字段）

关于如何从vb6代码启用“登录”的提示