以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  InternetExplorer.Application 打开的不是IE是360怎么解决？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79190)
--  作者：ycli368
--  发布时间：2015/12/25 19:57:00
--  InternetExplorer.Application 打开的不是IE是360怎么解决？
Dim OjbIe As Object = CreateObject("InternetExplorer.Application")
With OjbIe
    .Visible = 0
    .Navigate("http://www.kuaipan.cn/")
    Application.DoEvents
    Do While .Busy
        Application.DoEvents
    Loop
    Dim DoM As Object = .Document
    With DoM 
        .getElementById("user-username").Value = "在此输入您的用户名"
        .getElementById("user-password").Value = "在此输入您的密码"
        .getElementById("login-form").submit
    End With
    .Visible = 0
.quit
End With
--  作者：大红袍
--  发布时间：2015/12/25 20:02:00
--  
 把ie设置成默认浏览器
--  作者：ycli368
--  发布时间：2015/12/25 20:04:00
--  
IE是默认的
--  作者：大红袍
--  发布时间：2015/12/27 13:05:00
--  

看看

 

http://blog.csdn.net/attilax/article/details/8948685