Javascript 使用VBA脚本登录到网站登录页面

我试图使用谷歌和这个网站上的资源来帮助我，但我很难在登录页面的输入框中输入用户名和密码

该页面位于我们工作服务器的本地网络上

登录页面的HTML代码：

<TD background=/frontend/images/greenback.gif width=302><INPUT maxLength=32 name=username> </TD>

<TD background=/frontend/images/greenback.gif width=302><INPUT maxLength=32 type=password value="" name=password> </TD>

---

问题是，我在谷歌上使用了相同的代码，带有ID按钮，它可以工作。有什么我没有考虑的吗

这里我使用的是facebook登录页面。您可以将任何其他链接放入登录，将sUser作为字符串，sPass作为字符串。指定了要输入的值。Application.Wait（现在+时间值（“00:00:02”））是加载页面和添加登录id和密码之间的时间。另一方面，将传递用户id和密码，即.Document.all.Item（“电子邮件”）。Value=sUser。请试试这个密码

Sub facebookPost()
Dim IE As Object
Dim sUser As String, sPass As String


sUser = "1234"
sPass = "1234"

Set IE = CreateObject("INTERNETEXPLORER.Application")

IE.Navigate ("www.Facebook.com")
IE.Visible = True

Do While IE.Busy: DoEvents: Loop

Application.Wait (Now + TimeValue("00:00:02"))

IE.Document.all.Item("email").Value = sUser
IE.Document.all.Item("pass").Value = sPass
IE.Document.all.Item("loginbutton").Click
End Sub

---

这里我使用的是facebook登录页面。您可以将任何其他链接放入登录，将sUser作为字符串，sPass作为字符串。指定了要输入的值。Application.Wait（现在+时间值（“00:00:02”））是加载页面和添加登录id和密码之间的时间。另一方面，将传递用户id和密码，即.Document.all.Item（“电子邮件”）。Value=sUser。请试试这个密码

Sub facebookPost()
Dim IE As Object
Dim sUser As String, sPass As String


sUser = "1234"
sPass = "1234"

Set IE = CreateObject("INTERNETEXPLORER.Application")

IE.Navigate ("www.Facebook.com")
IE.Visible = True

Do While IE.Busy: DoEvents: Loop

Application.Wait (Now + TimeValue("00:00:02"))

IE.Document.all.Item("email").Value = sUser
IE.Document.all.Item("pass").Value = sPass
IE.Document.all.Item("loginbutton").Click
End Sub

---

尝试另存为此页面并在代码中查找ID，用户名的ID可能不同。没有ID tagI表示用户名的标记，在已保存页面的代码中查找可能是查找用户名ID的唯一方法。首先，此

ie.document.getElement.Name（）

不存在且无法工作。所有遵循这种语法的尝试也是如此。正确的方法类似于

ie.document.getElementsByName（“用户名”）

。小心里面的“s”！这意味着该方法返回一组元素，其Name属性等于“username”。要访问此集合的第一个成员，请按如下方式操作：

ie.document.getElementsByName（“用户名”）（0）

.ie.document.querySelector（“[name=username]”）。value=“somevalue”）尝试另存为此页面并在代码中查找ID，可能用户名的ID不同。没有ID tagI表示用户名的标记，在保存页面的代码中查找可能是查找用户名id的唯一方法。首先，这个

ie.document.getElement.Name（）

不存在，也不起作用。所有遵循这种语法的尝试也是如此。正确的方法类似于

ie.document.getElementsByName（“用户名”）

。小心里面的“s”！这意味着该方法返回一组元素，其Name属性等于“username”。要访问此集合的第一个成员，请按如下方式操作：

ie.document.getElementsByName（“用户名”）（0）

.ie.document.querySelector（“[name=username]”）。value=“somevalue”）

Sub facebookPost()
Dim IE As Object
Dim sUser As String, sPass As String


sUser = "1234"
sPass = "1234"

Set IE = CreateObject("INTERNETEXPLORER.Application")

IE.Navigate ("www.Facebook.com")
IE.Visible = True

Do While IE.Busy: DoEvents: Loop

Application.Wait (Now + TimeValue("00:00:02"))

IE.Document.all.Item("email").Value = sUser
IE.Document.all.Item("pass").Value = sPass
IE.Document.all.Item("loginbutton").Click
End Sub