qtp code

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