【软件自动化测试-QTP实战技能 24】== QTP Code_ Useing Description Objects

最新推荐文章于 2017-01-04 16:30:00 发布

星火测吧

最新推荐文章于 2017-01-04 16:30:00 发布

阅读量457

点赞数

分类专栏：自动化测试之_QTP 如何开展有效的自动化测试文章标签：测试 browser properties user each

本文链接：https://blog.csdn.net/xuyubotest/article/details/6742419

版权

自动化测试之_QTP 同时被 2 个专栏收录

39 篇文章 0 订阅

订阅专栏

如何开展有效的自动化测试

39 篇文章 3 订阅

订阅专栏

Dim objLogout
Dim objUser
Dim objPass
Dim objRemember

' create description objects for each item we are dealing with
Set objLogout   = Description.Create()
Set objUser     = Description.Create()
Set objPass     = Description.Create()
Set objRemember = Description.Create()

' define the properties of each item
objLogout("Name").Value   = "Logout"
objUser("Name").Value     = "username"
objPass("Name").Value     = "passwd"
objRemember("Name").Value = "remember"

' check that the user isn't already logged in
If Browser("Title:=*test.*").Page("Title:=*test.*").WebButton(objLogout).Exist(1) Then

    ' click logout
    Browser("Title:=*test.*").Page("Title:=*test.*").WebButton(objLogout).Click

End If

' set the user name
Browser("Title:=*test.*").Page("Title:=*test.*").WebEdit(objUser).Set "User"

' set the password
Browser("Title:=*test.*").Page("Title:=*test.*").WebEdit(objPass).Set "Password"

' tick the remember-me tickbox
Browser("Title:=*test.*").Page("Title:=*test.*").WebCheckBox(objRemember).Set "ON"