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


  共有1912人关注过本帖树形打印复制链接

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

帅哥,在线噢!
洮沙
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:824 积分:7120 威望: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编辑过]

 回到顶部
帅哥,在线噢!
洮沙
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:824 积分:7120 威望:0 精华:0 注册:2017/8/31 12:07:00
回复:(有点甜)方法一:后面加上代码 ShowAppWindow...  发帖心情 Post By:2017/11/30 10:45:00 [显示全部帖子]

谢谢!按照方法一,成功实现!

 回到顶部