DP例子

在IE浏览器中打开www.baidu.com(只能打开一个网页来测试，再不就不能识别)

描述性编程第一种写法：Action1

Set bjBrowser=Description.Create()
objBrowser("micClass").Value="Browser"

Set bjPage=Description.Create()
objPage("micClass").Value="Page"

Set bjWebEdit=Description.Create()
objWebEdit("html tag").Value="INPUT"
objWebEdit("name").Value="wd"

Browser( objBrowser ).Page( objPage )._
WebEdit( objWebEdit )._
Set  "软件测试"

Set bjWebButton=Description.Create
objWebButton("html tag").Value="INPUT"
objWebButton("name").Value="百度一下"

Browser( objBrowser ).Page( objPage )._
WebButton( objWebButton ).Click

Set bjWebButton=Nothing
Set bjWebEdit=Nothing
Set bjPage=Nothing
Set bjBrowser=Nothing

 

描述性编程第一种写法：Action2

Call to New Action--->Action2

Msgbox "wait"   '在点出确定时先把网页还原为www.baidu.com
Browser("micClass:=Browser").Page("micClass:=Page").WebEdit("name:=wd").Set  "QTP自动化测试技术领航"
Browser("micClass:=Browser").Page("micClass:=Page")._
WebButton("name:=百度一下"," html tag:=INPUT"," type:=submit").Click   'html tag  && type 属性可不写

 

=====>小技巧

要想完全能识别对象，即获得足够多的属性来识别对象，利用Object Spy来查看对象的特有属性