|
本帖最后由 zuojiaqi 于 2013-4-12 09:02 编辑
- SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE","http://www.baidu.com/gaoji/advanced.html"
- Dim obj,tempValue
- '描述对象 -- 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 自动化测试"
- Next
- '最后释放所有设置的对象
- Set oEdit=Nothing
- Set all_oEdits=Nothing
- Set all_oEdit=Nothing
复制代码 上述代码网上copy的,这两天学习QTP,为什么把对象库删除后,用描述性编程就不行?
还有什么地方需要设置的?
前辈科普下哇。。。。
|
|