|
5#
楼主 |
发表于 2008-9-12 16:44:54
|
只看该作者
问题已解决
Dim obj_desc
Set obj_desc=Description.Create
obj_desc("setlook").value="noto"
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("userName").Set
"mercury"
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit
(obj_desc,"Name:=password").SetSecure "48ca21fe36146ef71d8f58c0d330bc8bbded5d47"
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").Image("Sign-In").Click 9,7
如果对象库没有相应的属性表示唯一的话,我自定义去添加一些唯一的属性值,然后通过描述性编程去实
现。其中的setlook,noto是我自定义的~ |
|