【软件自动化测试-QTP实战技能 24】== QTP Code_ Useing Description Objects
2011-09-02 11:23
429 查看
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实战技能 22】== QTP_DP_for the DeskTop objects
- 【软件自动化测试-QTP实战技能 11】== QTP code for excel link
- 【软件自动化测试-QTP实战技能 21】== QTP_use RegExp 匹配numbers
- 【软件自动化测试-QTP实战技能 1】== 使用技巧实例
- 【软件自动化测试-QTP实战技能 13】== QTP 判断 files Exists
- 【软件自动化测试-QTP实战技能 2】== Test Object Model
- 【软件自动化测试-QTP实战技能 18】== QTP-Select multiple check box QTP- 复选框
- 【软件自动化测试-QTP实战技能 3】== 数据库检查点手动SQL写法
- 【软件自动化测试-QTP实战技能 26】== QTP_Training:Environment Variables
- 【软件自动化测试-QTP实战技能 16】==QTP_调用外部EXCEL数据替换DataTable中的数据
- 【软件自动化测试-QTP实战技能 6】== QTP中运行错误的捕捉和记录
- 【软件自动化测试-QTP实战技能 4】== 取得Excel中的单元格值并作比较
- 【软件自动化测试-QTP实战技能 27】== QTP open ldif file
- 【软件自动化测试-QTP实战技能 7】== QTP中类的基本使用方法
- 【软件自动化测试-QTP实战技能 19】== 关闭 MESSAGE BOX 当关闭EXCEL 时
- 【软件自动化测试-QTP实战技能 9】== 从外部excel中读出数据导入到qtp的data中
- 【软件自动化测试-QTP实战技能 28】== Minimize QTP
- 【软件自动化测试-QTP实战技能 28】== QTP_VbsTraining:Array Basics
- 【软件自动化测试-QTP实战技能 8】== QTP中页面的基本异常检查
- 【软件自动化测试-QTP实战技能 20】== QTP_ Delete files from Temp Folder:删除Folder