使用vba在网站上输入登录信息

问题描述

这是网站上的代码：

input class="form-control" id="username" type="text" placeholder="" value=""
input class="form-control" id="password" type="password" placeholder="" value=""

这是我写的VBA：

Sub launchIE()

Dim i As SHDocVw.InternetExplorer
Dim UN As String,PW As String
Set i = New InternetExplorer
i.Visible = True

i.Navigate "https://xxxxxxxx"

do while i.ReadyState <> READYSTATE_COMPLETE

Loop

Dim idoc As MSHTML.HTMLDocument

Set idoc = i.Document
UN = Sheets("Sheet1").Cells(1,1).Value
PW = Sheets("Sheet1").Cells(2,1).Value

idoc.getElementsByTagName("input").Item(0).Select
idoc.getElementsByTagName("input").Item(0).Value = UN
idoc.getElementsByTagName("input").Item(1).Select
idoc.getElementsByTagName("input").Item(1).Value = PW
idoc.getElementById("login-button").disabled = False
idoc.getElementById("login-button").Click

End Sub

我遇到的问题是HTML代码中“”引号内的值未更改。而且我在网站上收到一条错误消息，提示找不到用户名。用户名和密码似乎已丢失，但网站无法识别。如何获取我的用户名和密码以插入HTML代码中的引号之间？

也-getElementByID对我不起作用。

谢谢！

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）