如何重复使用登陆Library?

7house

我录制了一个登陆,然后放在library里,想每次登陆时可以调用.
在 Library 里是:
Public Function login
Browser("Browser").Page("Page - Login").WebEdit("username").Set "XXX"
Browser("Browser").Page("Page - Login").WebEdit("password").SetSecure "ZZZXXX"
Browser("Browser").Page("Page - Login").WebButton("Login").Click
End Function

测试脚本里就直接调用 login

在运行的时候一开始就出错:
The "Browser" Browser object was not found in the Object Repository.
Check the Object Repository to confirm that the object exists or to find the correct name for the object.

到Object Repository里查看,一个Object都没有呢.
在这种情况下,要怎么做才能调用这个登陆呢?因为有很多个脚本都要用它.不可能每个脚本都要到 "Object Repository"去创建Objects吧!

哪位高手指点下?!

david208

提供2个参考：
1 你把对象都用描述性编程的方式创建并使用。
2  首先保存一个对象库，在其他的action内使用Resource-associate Resource，关联对象库。
希望对你有帮助

7house

谢谢 david208 ,

可否告诉我怎样把对象都用描述性编程的方式创建并使用?

我是新手~~~

fei.ge

2楼精华。

回3楼，把对象 set  obj = description.create()  
                                    obj("XX").value = "XXX"
自己写好，放在VBS里提前加载。

7house

谢谢 david208, 还有 fei.ge.
查了一下描述性编程, 将之前的脚本修改了,新版本如下,是可以运行了:
Public Function login
Browser("micclass:=Browser").Page("title:=Page - Login").WebEdit("name:=username").Set "XXX"
Browser("micclass:=Browser").Page("title:=Page - Login").WebEdit("name:=password").SetSecure "XXXX"
Browser("micclass:=Browser").Page("title:=page - Login").WebButton("name:=Login").Click
End Function
不是很明白4楼的所讲的, 请问,如果按4楼的方法,要怎么改上面这段脚本呢?

另外,可以提供一些描述性编程的教程或者资料吗?.

7house

Public Function login3
   Set BW = Description.Create
   BW("micclass").value="Browser"
   Set Security_Alert = Description.Create
   Security_Alert("text").value="Security Alert"
   Set YButton = Description.Create
   YButton("text").value="&Yes"
   Set Login = Description.Create
   Login("title").value="Page - Login"
   Set Uname = Description.Create
   Uname("name").value="username"
   Set Password = Description.Create
   Password("name").value="password"
   Set Blogin = Description.Create
   Blogin("name").value="Login"
Browser(BW).Dialog(Security_Alert).WinButton(YButton).Click
Browser(BW).Page(Login).WebEdit(Uname).Set "XXX"
Browser(BW).Page(Login).WebEdit(Password).SetSecure "XXXX"
Browser(BW).Page(ISLogin).WebButton(Blogin).Click
End Function

所有挎号中的对象都要用 "Description.Create" 新建, 然后定义属性.
按键"Yes"的值前面还要加&
Set YButton = Description.Create
YButton("text").value="&Yes"

不知道为什么要加&, 反正没有&就不工作.

好啦,今天就到这里了,非常感谢大家的帮忙, 另外51Testing 这里有很多东西可以参考.非常好的一个网站唷!