现在通过以下代码,可以实现,自动登录,但是无法将打开的IE进行置顶显示,往往是在电脑状态栏显示,请老师指正!谢谢!
Dim ie As Object = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate("https://12366.gs-n-tax.gov.cn/login-web/login")
Application.DoEvents
Do While ie.busy Or ie.readystate <> 4
Application.DoEvents
Loop
Dim Inputs = ie.Document.GetElementById("login-0").GetElementsByTagName("input")
Dim aas = ie.Document.GetElementById("login-0").GetElementsByTagName("a")
For Each Input As object In Inputs
If Input.getAttribute("class").tostring = "userID-1" Then
Input.SetAttribute("value", "abc")
ElseIf input.id = "password-1"
Input.SetAttribute("value", "123")
End If
Next
For Each a As object In aas
If a.getAttribute("class").tostring = "btn login-btn" Then
a.click
End If
Next
[此贴子已经被作者于2017/11/30 8:57:24编辑过]