【软件自动化测试-QTP实战技能 24】== QTP Code_ Useing Description Objects
来源:互联网 发布:monkey软件 编辑:程序博客网 时间:2024/06/11 18:57
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"
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"
- 【软件自动化测试-QTP实战技能 24】== QTP Code_ Useing Description Objects
- 【软件自动化测试-QTP实战技能 22】== QTP_DP_for the DeskTop objects
- 【软件自动化测试-QTP实战技能 14】== 自动化测试思想之QTP登录脚本
- 【软件自动化测试-QTP实战技能 25】== QTP_DataTable
- 【软件自动化测试-QTP实战技能 5】== QTP中一些基础性代码结构
- 【软件自动化测试-QTP实战技能 7】== QTP中类的基本使用方法
- 【软件自动化测试-QTP实战技能 8】== QTP中页面的基本异常检查
- 【软件自动化测试-QTP实战技能 11】== QTP code for excel link
- 【软件自动化测试-QTP实战技能 27】== QTP open ldif file
- 【软件自动化测试-QTP实战技能 12】== QTP 返回磁盘 freeSpace
- 【软件自动化测试-QTP实战技能 13】== QTP 判断 files Exists
- 【软件自动化测试-QTP实战技能 15】== QTP compare each iteration to enditeration
- 【软件自动化测试-QTP实战技能 23】== QTP 常用Functions
- 【软件自动化测试-QTP实战技能 28】== Minimize QTP
- 【软件自动化测试-QTP实战技能 10】== QTP用到的一些特殊方法
- 【软件自动化测试-QTP实战技能 18】== QTP-Select multiple check box QTP- 复选框
- 【软件自动化测试-QTP实战技能 6】== QTP中运行错误的捕捉和记录
- 【软件自动化测试-QTP实战技能 1】== 使用技巧实例
- activity堆栈结构
- Redhat实用命令~不断学习中
- memset 、memmcpy、memmove实现及其区别
- Javascript中for循环的三种写法的效率对比
- LAMP集成环境AppServ虚拟目录配置方法
- 【软件自动化测试-QTP实战技能 24】== QTP Code_ Useing Description Objects
- c# asp.net fileupload实例
- Apache 虚拟机简单配置
- SecureCRT软件介绍及linux常用命令
- java中Date与String的相互转化
- MySQL5.5源代码安装
- 各种加密算法的实例
- 【解决问题】完成从Mysql到SQLite数据库的整体迁移
- 中英翻译好句子