Sub Form_Load()
Set ie = CreateObject("internetexplorer.application") '创建浏览器对象
'ie.getAppActivate
ie.Navigate "www.csdn.net" '定位主页'
ie.Visible = True '网页可见
'ie.Active
Do While ie.ReadyState <> 4 ' 这个是 判断 浏览器打开的网页是否装载 完全
Loop
'ie.Document.getElementById("username").Value = "用户"
'ie.Document.getElementById("password").Value = "密码"
ie.Document.getElementById ("_bottomPane")
'.Visible = False
MQC = ie.Document.getElementById("MQC")
ie.Document.getElementById ("MQC")
ie.Document.getElementById ("password")
'MsgBox bottomPane
'ie.Document.ReadyState = complete
'ie.Document.Open
'ie.Document.Write "<HTML><title>修改管理</title><BODY scroll='no'>编号:<input id='input1' input1 value= &aa&"
MsgBox ie.FullName
ie.Document.getElementById ("_password")
ie.Document.getElementsByname ("")
'Window.Open
'Dim URL As String
'URL = Window.Location.href
'MsgBox ie.Title
ie.Document.getElementsByTagName ("div")
ie.Document.getElementsByTagName ("form")
'ie.Document.getElementsByTagName ("button")
ie.Document.getElementsByTagName ("input")
ie.Document.getElementsByTagName ("textarea")
ie.Document.getElementsByTagName ("table")
ie.Document.getElementsByTagName ("span")
ie.Document.getElementsByTagName ("body")
ie.Document.getElementsByTagName ("object")
Set ie = Nothing
End Sub
主要的一些知识点就是
1.创建对象 createobject
2.获得IE的一些控件,'ie.Document.getElementById("username").,ie.Document.getElementsByname ,ie.Document.getElementsByTagName
未解决知识点:
1.如何直接获得已打开IE
2.如何获得所有的控件list