声明：本空间大部分博客信息为寻找问题时在网上拷贝或转载，在此博客中做个记录，方便自己也方便有类似问题的朋友，因原出处已不好查询，如有侵权，请发邮件表明文章和原出处地址，本人一定会在文章中注明。谢谢。
如何使用HTML DOM进行自动化测试？
上一篇 /
下一篇 2012-10-11 10:42:33
/ 个人分类：QTP自动化测试
测试
Google的小例子：
Dim oIee, objedit
Dim oPagtxt
Set Iee = CreateObject("InternetExplorer.Application")
oIee.navigate ("http://www.google.com.hk")
oIee.Visible = True
Do While oIee.readystate <> 4
Loop
Set Pagtxt = oIee.document
set bjedit = oPagtxt.getelementsbyname("q")
objedit(0).value = "
QTP自动化
测试进阶"
set bjbutton = oPagtxt.getelementsbyname("btnG")
objbutton(0).Click
Set Iee = Nothing
收藏
举报
TAG:
