QTP描述性编程

'直接描述
'SystemUtil.Run "iexplore.exe","http://192.168.4.5:9999/"
'Browser("LMS-登陆页面").Page("LMS-登陆页面").WebEdit("name:=tbUserName").Set "565045014@qq.com"
'Browser("LMS-登陆页面").Page("LMS-登陆页面").WebEdit("name:=tbPassword").SetSecure "4ce47bf9ca30caa67792bdd0"
'Browser("LMS-登陆页面").Page("LMS-登陆页面").Image("alt:=go").Click

'Description描述
'SystemUtil.Run "iexplore.exe","http://192.168.4.5:9999/"
'Set my=Description.Create()
'my("title").Value="LMS-登陆页面"
'Browser("LMS-登陆页面").Page(my).WebEdit("name:=tbUserName").Set "565045014@qq.com"
'Browser("LMS-登陆页面").Page(my).WebEdit("name:=tbPassword").SetSecure "4ce47bf9ca30caa67792bdd0"
'Browser("LMS-登陆页面").Page(my).Image("alt:=go").Click
'使用Description描述性编程需要注意的是，自定义的一个对象只能指代一个属性，如果同时指代了多个属性，则QTP在回放时，会无法正确识别；
'另外Description描述性编程与直接描述性编程的不同之处在于，Description可以实现代码的简化，将调用的多个相同的对象进行合并；

'后续强迫性(直接描述与Description描述都有此问题)
'SystemUtil.Run "iexplore.exe","http://192.168.4.5:9999/"
'Browser("LMS-登陆页面").Page("title:=LMS-登陆页面").WebEdit("name:=tbUserName").Set "565045014@qq.com"
'Browser("LMS-登陆页面").Page("title:=LMS-登陆页面").WebEdit("name:=tbPassword").SetSecure "4ce47bf9ca30caa67792bdd0"
'Browser("LMS-登陆页面").Page("title:=LMS-登陆页面").Image("go").Click
'出错原因：Page对象使用了描述性编程的方式来描述页面，而页面中的按钮控件的测试对象没有描述，而是用名称”GO“来定位；
'则QTP会去对象库中找这个对象，结果当然找不到，因此提示错误(The "go" object was not found in the Object Repository)

'使用自定义环境变量(加入XML文件导入、导出)
'SystemUtil.Run "iexplore.exe","http://192.168.4.5:9999/"
'Set my=Description.Create()
'my("name").Value=Environment.Value("MyName")
'Browser("LMS-登陆页面").Page("title:=LMS-登陆页面").WebEdit("name:=tbUserName").Set "565045014@qq.com"
'Browser("LMS-登陆页面).Page("title:=LMS-登陆页面").WebEdit(my).SetSecure "4ce47bf9ca30caa67792bdd0"
'Browser("LMS-登陆页面").Page("title:=LMS-登陆页面").Image("alt:=go").Click

'描述性编程的技巧（1、引用变量）
'SystemUtil.Run "iexplore.exe","http://192.168.4.5:9999/"
'Set MyNew=Browser("title:=LMS-登陆页面","opentitle:=LMS-登陆页面","name:=LMS-登陆页面")
''MyNew.Page("title:=LMS-登陆页面").WebEdit("name:=tbUserName").Set "565045014@qq.com"
''MyNew.Page("title:=LMS-登陆页面").WebEdit("name:=tbPassword").SetSecure "4ce47bf9ca30caa67792bdd0"
''MyNew.Page("title:=LMS-登陆页面").Image("alt:=go").Click
'MyNew.WebEdit("name:=tbUserName").Set "565045014@qq.com"
'MyNew.WebEdit("name:=tbPassword").SetSecure "4ce47bf9ca30caa67792bdd0"
'MyNew.Image("alt:=go").Click

'描述性编程的技巧（2、使用With关键字简化）
'SystemUtil.Run "iexplore.exe","http://192.168.4.5:9999/"
'With Browser("title:=LMS-登陆页面","opentitle:=LMS-登陆页面","name:=LMS-登陆页面")
'                    .WebEdit("name:=tbUserName").Set "565045014@qq.com"
'                    .WebEdit("name:=tbPassword").SetSecure "4ce47bf9ca30caa67792bdd0"
'                    .Image("alt:=go").Click
'End with

'设置Description对象的RegularExpression属性（在QTP脚本中，属性描述信息的字符串默认会被当成正则表达式来处理，但实际上我们希望其被当成普通字符；
'那么针对这一情况，一种方法是在特殊字符前面加"\",另外一种方法是设置Description对象的RegularExpression属性为False）
'MyDescription("RegularExpression").Value=False

'在ChildObjects对象中使用Description；我们最早使用到的实例（测试环境的初始化）
Dim MyDescription
Set MyDescription=Description.Create()                               ''建立一个Description对象
MyDescription( "name").value="LMS-登陆页面"                 ''设置Description对象的属性
Set child=desktop.ChildObjects (MyDescription)
For i=1 to child.count-1
      child(i-1).close                                                                             ''遍历对象集合并执行操作
Next