【软件自动化测试-QTP实战技能 18】== QTP-Select multiple check box QTP- 复选框

最新推荐文章于 2017-03-01 10:54:05 发布
原创 最新推荐文章于 2017-03-01 10:54:05 发布 · 634 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#测试

本文介绍了一种使用Delphi编程语言批量获取并设置窗口内所有复选框状态的方法。通过创建对象和遍历子对象的方式，实现对指定窗口内所有复选框的状态检查及设置。

 

Dim obj_check

Set obj_check=Description.Create

obj_Check("micclass").value = "DelphiCheckBox"

Dim allcheckboxes



Set allcheckboxes=DelphiWindow("NewCell_Selection_Window").ChildObjects(obj_check)

a = allcheckboxes.count()

msgbox a



For i=0 to a-1

If varStatus = True Then

allcheckboxes(i).set "ON"

End If

Next

1自动化测试的实践-应用QTP测试框架.ppt
11-23
测试自动化实现的两大难点在于设计和实现： 1. 设计阶段的关键是功能分解，需要将复杂的业务逻辑拆分成独立、可复用的组件，以便于脚本编写和维护。 2. 实现阶段的核心是Web对象的识别，动态和静态Web对象的识别是...
QTP-自动化测试框架(与“测试”有关文档共11张).ppt
11-17
《QTP自动化测试框架解析》 自动化测试在IT行业中扮演着至关重要的角色，尤其是在软件质量保证阶段。QTP（QuickTest Professional），现已被命名为UFT（Unified Functional Testing），是HP公司推出的一款功能强大...
使用QTP自动化 DZ消息复选框选择实例！
weixin_30654583的博客
12-06 142
使用QTP自动化 DZ消息复选框选择实例！ DZ:消息管理自动化选择其中的CheckBox。使用QTP来实现这样简单方便。我们来具体看来一下，是如何完成的吧。 描述性编程：dexcription.Create() 来创建一个对象。 Dim vCheckBoxSet vCheckBox =description.Create()...
QTP 对WebCheckBox对象操作，页面出现刷新导致页面显示不全问题
wangsy0202的博客
03-01 765
有写开发平台会对CheckBox封装其他的一些js方法，这时QTP执行脚本选择CheckBox时会出现页面出现刷新导致页面显示不全问题， 对于此问题，使用 1、WebCheckBox("WebCheckBox").click 2、WebCheckBox("WebCheckBox").set "ON" 3、WebCheckBox("WebCheckBox").object.checked=t
《精通QTP-自动化测试技术领航》学习笔记3-webcheckbox对象
xiaofuruo的专栏
08-11 1349
'前提：进入51论坛，软件测试新手版块，点击发帖，点击高级模式 With browser("[软件测试新手上路] - 51Testing软件测试论坛").Page("[软件测试新手上路] - 51Testing软件测试论坛") '校验“html代码”和“img代码”是否不可点击，且img代码是默认勾选的      disabled1=trim(.WebCheckBox("html代码
QTP 用描述性编程--选取复选框
编程资料大全
01-27 590
继续学习中... 1 随机选择 下拉列表内容： '随机选择维度分类 Dim m,c1 m=RandomNumber.Value(1,5) '包括选择奕择 c1=DataTable.GetSheet("Global").GetParameter("dimention").valuebyrow(m) msgbox c1 Browser("北京北森测评技术有限公司").Page...
Selenium+Python Radio,Checkbox,Link,ComboBox控件
在路上
01-09 5293
这几天，学习了几个web 控件:Radio,Checkbox,Link,ComboBox 应用Selenium+python+webdriver实现。 今天，终于会使用如何将图片放到内容里面。Radio控件 测试案例：进入网页，判断是否能够选中“Female”选项。 1.测试对象定位 选择Radio，然后定位在Radio，鼠标右键“审查元素”，得到： 通过上面的源代码，可以得知
【软件自动化测试-QTP实战技能 25】== QTP_DataTable
星火baba
09-13 1733
一：      'Methods of getting a Data Table value      val = DataTable.Value("ParamName",dtGlobalSheet)      val = DataTable.Value("ParameName","Global")          '  二： 1、DataTable方法GetRo
【软件自动化测试-QTP实战技能 28】== Minimize QTP
星火baba
10-30 967
作者：xuyubo 时间：2012/10/30 版权所有，侵权必究。 出处：http://blog.youkuaiyun.com/xuyubotest 'Minimize QTP '此函数可以帮助大家在执行脚本时最小化QTP界面   'Minimize the main QTP window. ' ========================================
【软件自动化测试-QTP实战技能 24】== QTP Code_ Useing Description Objects
星火baba
09-02 493
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
【软件自动化测试-QTP实战技能 19】== 关闭 MESSAGE BOX 当关闭EXCEL 时
星火baba
10-21 1561
'Click on the excel application message box with QTP While closing the excel application Set obj=CreateObject("Excel.Application") obj.Visible=True obj.DisplayAlerts=False Set oWorkbook=obj.
软件测试自动化-QTP系列讲座10QTP的两种回放模式
03-23
当你在回放QTP的时候，你是否有注意过QTP在回放的时候鼠标是没有运动的有些朋友肯定会问，既然是CLICK点击为...-鼠标跟踪 　Event模式就是我们平时默认用的模式，也就是事件，其实QTP的click方法只是触发了对象的CLICK
软件测试自动化-QTP系列讲座
03-23
大多数时间还是处于学习阶段，包括现在还在学习，纵观现今的网络中一直没有找到过一个非常完整以及能够结合实际例子的QTP教程或者说是讲座，因此从今天开始我准备把两年来学习到的一些QTP知识包括自动化测试等进行...
精选资源
软件自动化测试工具QTP/UFT操作步骤
07-08
自动化测试介绍，自动化测试工具QTP/UFT介绍，使用步骤
UFT 12破解&无限试用
热门推荐
星火baba
09-02 2万+
方法： 1. 删除C:\ProgramData隐藏目录下的SafeNet Sentinel文件夹 2.运行QTP安装目录下的bin\instdemo.exe 3. 重新运行QTP/UFT 12后即可恢复30天试用
【软件自动化测试-QTP实战技能 21】== QTP_use RegExp 匹配numbers
星火baba
10-22 1万+
Dim Matches,Match,re Set re=new RegExp 'creates a new regexp object s="you are 33 a ee7" re.Global = True '完全匹配 re.pattern="/d+" set Matches=re.execute(s) For each Match in Matches
qtp_数据驱动测试方法
星火baba
03-21 6564
１． datatable         QTP本身程序就给我们提供了这么一个数据表，我们可以把测试数据或 测试用例 填入这个数据表中．如：设计用例　　 username　　passwd case1　　mercury mercury case2 xxxxxxx xxxxxx录制脚本For i="1" to Data
【软件自动化测试-QTP实战技能 15】== QTP compare each iteration to enditeration
星火baba
10-13 4803
'create an app object only once If qtApp = Nothing then    Set qtApp = Nothing then End if   'qtApp.Test.Settings.Run.EndIteration = 6 in your case If Environment("TestIteration") = qtApp.Test.S
【软件自动化测试-QTP实战技能 12】== QTP 返回磁盘 freeSpace
星火baba
10-12 4132
Dim fso, d, s    drvPath="c:/"    Set fso = CreateObject("Scripting.FileSystemObject")    Set d = fso.GetDrive(fso.GetDriveName(drvPath))    s = "Drive " & UCase(drvPath) & " - "    s =
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值