Foxtable(狐表)用户栏目专家坐堂 → [求助]关于打开外部IE浏览器后置顶显示的求助


  共有1663人关注过本帖平板打印复制链接

主题:[求助]关于打开外部IE浏览器后置顶显示的求助

帅哥哟,离线,有人找我吗?
洮沙
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:815 积分:7004 威望:0 精华:0 注册:2017/8/31 12:07:00
[求助]关于打开外部IE浏览器后置顶显示的求助  发帖心情 Post By:2017/11/30 8:57:00 [只看该作者]

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

 回到顶部