QTP描述性编程

录制的脚本：

SystemUtil.Run "C:\Program Files\Internet Explorer\iexplore.exe"
Browser("Browser").Page("Page").Sync
Browser("Browser").Navigate "http://baidu.com/"
Browser("Browser").Page("百度一下，你就知道").WebEdit("wd").Set mywd
Browser("Browser").Page("百度一下，你就知道").WebButton("百度一下").Click

使用描述性编程后的代码：

Dim descwebedit
Set descwebedit=descrīption.Create()
descwebedit("name").value="wd"
Browser(":=").Page(":=").WebEdit(descwebedit).Set "林"
Browser(":=").Page(":=").WebButton("name:=百度一下","type:=submit").Click