现在通过以下代码，可以实现，自动登录，但是无法将打开的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

方法一：后面加上代码 ShowAppWindow("甘肃国税",2)

方法二：嵌入ie

下载信息  [文件大小：332.0 KB  下载次数：18]

点击浏览该文件:嵌入ie_测试.table