vba - 如何在网页上输入用户名和密码？

Question

Q1)如何在此网页“https://.com/1/19/login.esp”上输入密码和用户名？

我已经编写了访问网页的代码:

Sub login()
  Dim IE As Object

  Const navOpenInNewTab = &H800
  Set IE = CreateObject("InternetExplorer.Application")
  IE.Visible = True
  IE.Navigate "https://esp"
End Sub

Q2) 我应该使用什么 createobject 来访问谷歌浏览器？

提前谢谢

Answer 1

要通过 VBA 在网页上查找要选择的项目，您需要按 F12 进入网页上的开发人员工具。

在那里，您可以通过“进入”页面上的代码并选择您希望 VAB 选择的项目来找到要调用的元素。

这是如何完成的:



然后选择用户名框:



选中此框后，开发人员框中的代码将突出显示，告诉您与您按下的项目相关联的代码是什么。

这是用户名框现在突出显示的代码:



我们有三个选项来选择页面上的项目:

IE.document.getElementById(在代码中找到id=，这里id='USERNAME')

IE.document.getElementsByName(在代码中找到Name=，这里name='USERNAME')

IE.document.getElementsByclassname(在代码中找到class=。本例中，class='focus')

*注意:尝试先使用ID，然后是名称，然后是类，因为页面上只有1个元素将具有该1个ID，但是多个项目可以具有相同的名称或类，或者如果您有则保证可以工作正确的身份证。

Dim IE As Object ' InternetExplorer.Application
Dim UserN As Object 'username field
Dim PW As Object 'password field
Dim LoginButton As Object 'Login button

'enter username and password in textboxes
Set UserN = IE.document.getElementByID("USERNAME")
'fill in first element named "username", assumed to be the login name field
UserN(0).Value = ""

Set PW = IE.document.getElementsByName("PASSWORD")
'fill in first element named "password", assumed to be the password field
PW(0).Value = ""

然后您需要在页面上找到该按钮，然后单击它。
这是一些代码:

'After entering in the user/pass, we need to click the button.
Dim objCollection As Object
Set objCollection = IE.document.getElementById("loginbutton")
objCollection.Click

那里有更多信息和更多关于如何正确使用每种选择方法的代码，所以这只是让你开始的准系统。
搜索“VBA IE 自动化”将为您带来一些好的结果。