Browser("百度一下,你就知道").Page("百度一下,你就知道").WebEdit("wd").Highlight
set TestObject = Browser("百度百科——全球最大中文百科全书").Page("百度百科——全球最大中文百科全书").Image("到百科首页")
Set Properties = TestObject.GetToProperties()
PropertiesCount = Properties.Count
Print "对象总计存在" & propertiesCount &"个性封装属性."
For i = 0 To PropertiesCount -1
PropName = Properties(i).Name
PropValue = Properties(i).Value
Print PropName &"=" & PropValue
Next
Set Properties = Nothing
Set TestObject = Nothing
ValueOfRo = Browser("百度百科——全球最大中文百科全书").Page("百度百科——全球最大中文百科全书").WebEdit("搜索内容编辑框").GetROProperty("value")
MsgBox ValueOfRo
index = Browser("百度百科——全球最大中文百科全书").Page("百度百科——全球最大中文百科全书").WebEdit("wd").GetRoProperty("source_index")
Browser("百度百科——全球最大中文百科全书").Page("百度百科——全球最大中文百科全书").WebEdit("source_index:=" & index).set "QTP自动化测试技术领航"
With Browser("51Testing软件测试论坛").Page("51Testing软件测试论坛")
.WebButton("搜索").Object.value = "百度搜索"
.Image("51Testing_Logo").Object.src = "http://www.baidu.com/img/baidu_sylogo1.gif"
.Link("加入51Testing(注册)").Object.innerText = "加入百度(注册)"
.Link("登录").Object.innerText = "baidu_login"
End with
Browser("百度百科——全球最大中文百科全书").Page("百度百科——全球最大中文百科全书").WebEdit("wd").set "QTP自动化测试技术领航"
Browser("百度百科——全球最大中文百科全书").Page("百度百科——全球最大中文百科全书").WebButton("进入词条").Click
代码1:
Browser("micClass:=Browser").Page("micClass:=Page").WebEdit("name:=wd").Set "QTP自动化测试技术领航"
代码2:
Browser("micClass:=Browser").Page("micClass:=Page").WebButton("name:=进入词条").Click
Set baidu = Browser("micClass:=Browser").Page("micClass:=Page")
Print Baidu.Link("name:=新闻").Exist
With baidu
Print .Link("name:=贴吧").Exist
Print .Link("name:=知道").Exist
Print .Link("name:=MP3").Exist
Print .Link("name:=图片").Exist
Print .Link("name:=把百度设为主页").Exist
Print .Link("name:=搜索风云榜").Exist
Print .Link("name:=About Baidu").Exist
End With
set baidu =Nothing
'打开网站页面
SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE",_
"http://www.baidu.com/gaoji/advanced.html"
'描述对象--WebEdit
Set all_oEdit = Description.Create
all_oEdit("micClass").value = "WebEdit"
'为WebEdit找父对象和祖父对象,并将所有对象“包装"在一起
Set all_oEdits = Browser("micClass:=Browser").Page("micClass:=Page").ChildObjects(all_oEdit)
'遍历页面中的WebEdit对象,找到一个就输入一串指定的字符串
For i = 0 to all_oEdits.count - 1
Set oEdit = all_oEdits.item(i)
oEdit.Set "QTP自动化测试技术导航"
'最后记得释放所有设置的对象
Set oEdit = Nothing
Set all_oEdits = Nothing
Set all_oEdit = Nothing
SystemUtil.Run "baike.baidu.coim"
For i =0 to 9
Browser("百度百科——全球最大中文百科全书").Page("百度百科——全球最大中文百科全书").WebEdit("关键字输入框").set "QTP自动化测试技术领航"
Browser("百度百科——全球最大中文百科全书").Page("百度百科——全球最大中文百科全书").WebButton("进入词条").Click
Browser("百度百科——全球最大中文百科全书").Page("百度百科——全球最大中文百科全书").Image("到百科首页").Click
Next
testData = DataTable.Value("关键字输入","Global")
Browser("百度百科——全球最大中文百科全书").Page("百度百科——全球最大中文百科全书").WebEdit("关键字输入框").set testData
Browser("百度百科——全球最大中文百科全书").Page("百度百科——全球最大中文百科全书").WebButton("进入词条").Click
Browser("百度百科——全球最大中文百科全书").Close
set TestObject = Browser("百度百科——全球最大中文百科全书").Page("百度百科——全球最大中文百科全书").Image("到百科首页")
Set Properties = TestObject.GetToProperties()
PropertiesCount = Properties.Count
Print "对象总计存在" & propertiesCount &"个性封装属性."
For i = 0 To PropertiesCount -1
PropName = Properties(i).Name
PropValue = Properties(i).Value
Print PropName &"=" & PropValue
Next
Set Properties = Nothing
Set TestObject = Nothing
ValueOfRo = Browser("百度百科——全球最大中文百科全书").Page("百度百科——全球最大中文百科全书").WebEdit("搜索内容编辑框").GetROProperty("value")
MsgBox ValueOfRo
index = Browser("百度百科——全球最大中文百科全书").Page("百度百科——全球最大中文百科全书").WebEdit("wd").GetRoProperty("source_index")
Browser("百度百科——全球最大中文百科全书").Page("百度百科——全球最大中文百科全书").WebEdit("source_index:=" & index).set "QTP自动化测试技术领航"
With Browser("51Testing软件测试论坛").Page("51Testing软件测试论坛")
.WebButton("搜索").Object.value = "百度搜索"
.Image("51Testing_Logo").Object.src = "http://www.baidu.com/img/baidu_sylogo1.gif"
.Link("加入51Testing(注册)").Object.innerText = "加入百度(注册)"
.Link("登录").Object.innerText = "baidu_login"
End with
Browser("百度百科——全球最大中文百科全书").Page("百度百科——全球最大中文百科全书").WebEdit("wd").set "QTP自动化测试技术领航"
Browser("百度百科——全球最大中文百科全书").Page("百度百科——全球最大中文百科全书").WebButton("进入词条").Click
代码1:
Browser("micClass:=Browser").Page("micClass:=Page").WebEdit("name:=wd").Set "QTP自动化测试技术领航"
代码2:
Browser("micClass:=Browser").Page("micClass:=Page").WebButton("name:=进入词条").Click
Set baidu = Browser("micClass:=Browser").Page("micClass:=Page")
Print Baidu.Link("name:=新闻").Exist
With baidu
Print .Link("name:=贴吧").Exist
Print .Link("name:=知道").Exist
Print .Link("name:=MP3").Exist
Print .Link("name:=图片").Exist
Print .Link("name:=把百度设为主页").Exist
Print .Link("name:=搜索风云榜").Exist
Print .Link("name:=About Baidu").Exist
End With
set baidu =Nothing
'打开网站页面
SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE",_
"http://www.baidu.com/gaoji/advanced.html"
'描述对象--WebEdit
Set all_oEdit = Description.Create
all_oEdit("micClass").value = "WebEdit"
'为WebEdit找父对象和祖父对象,并将所有对象“包装"在一起
Set all_oEdits = Browser("micClass:=Browser").Page("micClass:=Page").ChildObjects(all_oEdit)
'遍历页面中的WebEdit对象,找到一个就输入一串指定的字符串
For i = 0 to all_oEdits.count - 1
Set oEdit = all_oEdits.item(i)
oEdit.Set "QTP自动化测试技术导航"
'最后记得释放所有设置的对象
Set oEdit = Nothing
Set all_oEdits = Nothing
Set all_oEdit = Nothing
SystemUtil.Run "baike.baidu.coim"
For i =0 to 9
Browser("百度百科——全球最大中文百科全书").Page("百度百科——全球最大中文百科全书").WebEdit("关键字输入框").set "QTP自动化测试技术领航"
Browser("百度百科——全球最大中文百科全书").Page("百度百科——全球最大中文百科全书").WebButton("进入词条").Click
Browser("百度百科——全球最大中文百科全书").Page("百度百科——全球最大中文百科全书").Image("到百科首页").Click
Next
testData = DataTable.Value("关键字输入","Global")
Browser("百度百科——全球最大中文百科全书").Page("百度百科——全球最大中文百科全书").WebEdit("关键字输入框").set testData
Browser("百度百科——全球最大中文百科全书").Page("百度百科——全球最大中文百科全书").WebButton("进入词条").Click
Browser("百度百科——全球最大中文百科全书").Close