Vba Web导航和身份验证

Question

Sub HTML_Element_Printer()

On Error GoTo Err_Clear
sURL = "https://ernie.erau.edu/"
Set oBrowser = New InternetExplorer
oBrowser.Silent = True
oBrowser.timeout = 60
oBrowser.navigate sURL
oBrowser.Visible = True

Do
' Wait till the Browser is loaded
Loop Until oBrowser.readyState = READYSTATE_COMPLETE

Set HTMLDoc = oBrowser.document

HTMLDoc.all.loginID.Value = "User123"
HTMLDoc.all.Password.Value = "Pass123"

For Each oHTML_Element In HTMLDoc.getElementsByTagName("input")
Debug.Print oHTML_Element.Name
Next

' oBrowser.Refresh ' Refresh If Needed
Err_Clear:
If Err <> 0 Then
Err.Clear
Resume Next
End If

End Sub

我正在尝试使用vba来浏览多个网站并分别登录到它，因此，我现在将学校门户网站作为试用版。该代码似乎可以成功导航到该站点，但是我无法输入所需的用户名和密码。这是我第一次使用vba进行Web导航和用户身份验证，我希望能在这里找到一些帮助和建议。谢谢。