set IE=createobject("Internetexplorer.application")
IE.Visible = True
IE.Navigate "/login.htm"
‘等待网页加载完成While IE.busy adystate<>4Wend
鼻科手术中文版
'从网页元素中到设置的元素,并赋值'因为form没有name或id,只能从document的collection里取forms集合'再从中定位输入框和提交按钮IE.Document.Forms(0).elements("name").value = "aaaa"IE.Document.Forms(0).elements("passwd").value = "1111"
IE.Document.Forms(0).elements("Send").clickvod点播
'登录后界面是框架结构,先等主框架加载完成
While IE.busy adystate<>4
Wend
'等框架内网页1加载完成
While IE.busy Or IE.Document.Frames(1).adystate<>"complete"
Wend
'点击一个图片按钮/链接,需要先定位到框架内,再从document的collection里取images集合
IE.Document.Frames(1).document.images(3).click
'等主框架加载完成
While IE.busy adystate<>4
Wend
'等框架内网页2加载完成
While IE.busy Or IE.Document.Frames(2).adystate<>"complete"
Wend
凯恩斯大战哈耶克'定位select控件,并作出选择
胜诉在美国IE.Document.Frames(2).document.Forms(0).elements("lst_ed_day").selectedIndex=8传统与现代
IE.Document.Frames(2).document.Forms(0).elements("lst_st_time").selectedIndex=1
'其他操作。。。。
=======================================================
html元素属性可以参阅msdn.microsoft/en-us/library/ms533050(vs.85).aspx
InternetExplorer Object可参阅:msdn.microsoft/en-us/library/aa752084(VS.85).aspx
妇幼保健机构管理办法