51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2709|回复: 6
打印 上一主题 下一主题

[原创] 插入检查点的问题

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2008-4-15 10:22:24 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
'Import SourceRef.xls
DataTable.ImportSheet "C:\Source\SourceRef.xls","DVD Ripper Series","Action1"


'''''''''''''''''''''''''''''''''''''''''''''Xilisoft DVD Ripper Series'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

SystemUtil.Run DataTable("SrcPath", dtLocalSheet), "", "C:\Source\DVD Ripper Series", "open"
Dialog("Installer Language").WinComboBox("Please select a language.").Select "English"
Dialog("Installer Language").WinButton("OK").Click
'Import SourceRef.xls
DataTable.ImportSheet "C:\Source\SourceRef.xls","DVD Ripper Series","Action1"


'''''''''''''''''''''''''''''''''''''''''''''Xilisoft DVD Ripper Series'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

SystemUtil.Run DataTable("SrcPath", dtLocalSheet), "", "C:\Source\DVD Ripper Series", "open"
Dialog("Installer Language").WinComboBox("Please select a language.").Select "English"
Dialog("Installer Language").WinButton("OK").Click
Dialog("DVD Ripper Series").Static("License Version").Check CheckPoint("Please review the license terms before installing Xilisoft DVD Ripper Platinum 5 0..34.0409")
Dialog("DVD Ripper Series").WinButton("I Agree").Click
Dialog("DVD Ripper Series").WinEdit("Edit").SetSelection 0,1
Dialog("DVD Ripper Series").WinEdit("Edit").Set DataTable("InsPath", dtLocalSheet)
Dialog("DVD Ripper Series").WinButton("Next >").Click
Dialog("DVD Ripper Series").WinButton("Install").Click
Dialog("DVD Ripper Series").WinCheckBox("Run DVD Ripper Series").Set "OFF"
Dialog("DVD Ripper Series").WinButton("Finish").Click
Check CheckPoint("Please review the license terms before installing Xilisoft DVD Ripper Platinum 5 0..34.0409")
Dialog("DVD Ripper Series").WinButton("I Agree").Click
Dialog("DVD Ripper Series").WinEdit("Edit").SetSelection 0,1
Dialog("DVD Ripper Series").WinEdit("Edit").Set DataTable("InsPath", dtLocalSheet)
Dialog("DVD Ripper Series").WinButton("Next >").Click
Dialog("DVD Ripper Series").WinButton("Install").Click
Dialog("DVD Ripper Series").WinCheckBox("Run DVD Ripper Series").Set "OFF"
Dialog("DVD Ripper Series").WinButton("Finish").Click
'Import SourceRef.xls
DataTable.ImportSheet "C:\Source\SourceRef.xls","DVD Ripper Series","Action1"


'''''''''''''''''''''''''''''''''''''''''''''Xilisoft DVD Ripper Series'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

SystemUtil.Run DataTable("SrcPath", dtLocalSheet), "", "C:\Source\DVD Ripper Series", "open"
Dialog("Installer Language").WinComboBox("Please select a language.").Select "English"
Dialog("Installer Language").WinButton("OK").Click
Dialog("DVD Ripper Series").Static("License Version").Check CheckPoint("Please review the license terms before installing Xilisoft DVD Ripper Platinum 5 0..34.0409")
Dialog("DVD Ripper Series").WinButton("I Agree").Click
Dialog("DVD Ripper Series").WinEdit("Edit").SetSelection 0,1
Dialog("DVD Ripper Series").WinEdit("Edit").Set DataTable("InsPath", dtLocalSheet)
Dialog("DVD Ripper Series").WinButton("Next >").Click
Dialog("DVD Ripper Series").WinButton("Install").Click
Dialog("DVD Ripper Series").WinCheckBox("Run DVD Ripper Series").Set "OFF"
Dialog("DVD Ripper Series").WinButton("Finish").Click
'Import SourceRef.xls
DataTable.ImportSheet "C:\Source\SourceRef.xls","DVD Ripper Series","Action1"


'''''''''''''''''''''''''''''''''''''''''''''Xilisoft DVD Ripper Series'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

SystemUtil.Run DataTable("SrcPath", dtLocalSheet), "", "C:\Source\DVD Ripper Series", "open"
Dialog("Installer Language").WinComboBox("Please select a language.").Select "English"
Dialog("Installer Language").WinButton("OK").Click
Dialog("DVD Ripper Series").Static("License Version").Check CheckPoint("Please review the license terms before installing Xilisoft DVD Ripper Platinum 5 0..34.0409")
Dialog("DVD Ripper Series").WinButton("I Agree").Click
Dialog("DVD Ripper Series").WinEdit("Edit").SetSelection 0,1
Dialog("DVD Ripper Series").WinEdit("Edit").Set DataTable("InsPath", dtLocalSheet)
Dialog("DVD Ripper Series").WinButton("Next >").Click
Dialog("DVD Ripper Series").WinButton("Install").Click
Dialog("DVD Ripper Series").WinCheckBox("Run DVD Ripper Series").Set "OFF"
Dialog("DVD Ripper Series").WinButton("Finish").Click
这个脚本是原先我的一位同事所编写的,
如果我想在Dialog("DVD Ripper Series").Static("License Version").后插入检查点,但是无法在Active Screen中选中置检查点的文字",license version" 这是如何处理的?
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
 楼主| 发表于 2008-4-15 10:25:35 | 只看该作者
这个脚本得复了,我得新贴一下
'Import SourceRef.xls
DataTable.ImportSheet "C:\Source\SourceRef.xls","DVD Ripper Series","Action1"


'''''''''''''''''''''''''''''''''''''''''''''Xilisoft DVD Ripper Series'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

SystemUtil.Run DataTable("SrcPath", dtLocalSheet), "", "C:\Source\DVD Ripper Series", "open"
Dialog("Installer Language").WinComboBox("Please select a language.").Select "English"
Dialog("Installer Language").WinButton("OK").Click
Dialog("DVD Ripper Series").Static("License Version").Check CheckPoint("Please review the license terms before installing Xilisoft DVD Ripper Platinum 5 0..34.0409")
Dialog("DVD Ripper Series").WinButton("I Agree").Click
Dialog("DVD Ripper Series").WinEdit("Edit").SetSelection 0,1
Dialog("DVD Ripper Series").WinEdit("Edit").Set DataTable("InsPath", dtLocalSheet)
Dialog("DVD Ripper Series").WinButton("Next >").Click
Dialog("DVD Ripper Series").WinButton("Install").Click
Dialog("DVD Ripper Series").WinCheckBox("Run DVD Ripper Series").Set "OFF"
Dialog("DVD Ripper Series").WinButton("Finish").Click
这个脚本是原先我的一位同事所编写的,
如果我想在Dialog("DVD Ripper Series").Static("License Version").后插入检查点,但是无法在Active Screen中选中置检查点的文字",license version" 这是如何处理的?
回复 支持 反对

使用道具 举报

该用户从未签到

3#
发表于 2008-4-15 10:31:06 | 只看该作者
不明白什么意思。
可以回放时在需要的地方插入断点,停下来再加入检查点。。
回复 支持 反对

使用道具 举报

该用户从未签到

4#
 楼主| 发表于 2008-4-15 10:34:08 | 只看该作者
jackymail有msn吗,加我jingling.xue@hotmail.com
我可以详细的给你描述一下
回复 支持 反对

使用道具 举报

该用户从未签到

5#
 楼主| 发表于 2008-4-15 12:47:22 | 只看该作者
有人吗
回复 支持 反对

使用道具 举报

该用户从未签到

6#
发表于 2008-4-15 13:19:09 | 只看该作者
两种解决方法:
1、如果那段脚本是录制生成的,只是现在找不到active screen的话,你可以启用update mode run模式,然后把脚本执行一下,这样QTP就能把active screen恢复,你也可以在上面设置检查点了;
2、如果那段脚本不是录制生成的,那么上面的方法没用,最好的办法就使用getroproperty方法获取界面对象的属性,然后使用if else语句判断是否一致,最后用reporter.ReportEvent方法来输出比较结果。这个结果会自动显示在QTP的测试报告中,具体的用法去查一下QTP对象模式的说明文档吧
回复 支持 反对

使用道具 举报

该用户从未签到

7#
 楼主| 发表于 2008-4-15 16:23:22 | 只看该作者
update mode run模式启用不了呀,状态一直是disable
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-16 18:10 , Processed in 0.077372 second(s), 27 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表