2010年06月_anlegor

原创解决QTP在某些windows应用程序中对edit控件的set失败问题

因为所做的测试基于浏览器平台，当在浏览器地址栏中输入地址进行浏览时，经常遇到各种问题(页面加载时元素抢占焦点等)，导致输入操作失败，进而影响脚本执行，尝试了winedit所提供的几种方法，click()，DbClick()，以及SetCarePos()，其中SetCarePos()的效果最好，但是当执行很多脚本时，问题又出现了，经过哦尝试终于发现QTP的某项设置可以解决这种问题。 “Tools”---”Options”---“Windows Application

2010-06-29 18:41:00 2547

原创 QTP获取页面链接并点击、拖拽方法

其实QTP要实现对使用ie核心的浏览器打开的web页面的操作是比较简单的，基本上有两种方式：使用qtp的描述性编程，查找web链接并操作；使用DOM对象提供的某些方法和属性实现预期功能。现在对于页面操作主要有两种，点击和拖拽。对于页面链接点击方法1： If window("Window").Page("百度一下，你就知道").WebButton("百度一下").Exist =true Then Set oDesc = Description.Create oDesc( "micclass" ).V

2010-06-28 23:49:00 3990 1

原创 vbs和批处理进行简单环境恢复测试

因为项目需要，需要测试某些极限并发情况下的程序性能和网络请求的正确性，随手以vbs和最简单的批处理实现了一个小的自动化系统，当然一些路径及注册表读取等都没有去做实现而是写死了的。首先，运行的vbs文件如下：set ws=createobject("wscript.shell")ws.Run "d:/startFiddler.bat"WScript.Sleep 30000While 1 Call killProcess() ws.Run "d:/clean.bat" WScript.S

2010-06-24 02:13:00 1195

原创 QTP操作WinMenu控件

本来以为QTP操作WinMenu会是一件简单的事情，不想却是大费周折。 WinMenu对象没有提供类似于item count的方法，因而要去根据item的个数进行操作的预想没有实现，通过object spy也没有取得有用的属性信息。 最后通过其帮助文档看到，实际上可以通过GetItemProperty()来曲线救国。 主要代码如下： ItemPath = Window("notepad").WinMenu("文件").BuildMenuPath(1)

2010-06-24 01:32:00 2518

原创用vbs实现文本循环读取

因为测试中需要读取一批URL数据进行浏览，其实使用QTP本身的table能实现多种读取方式，但是因为需要tabel是使用excel保存的，在没有安装excel的机器或者vsita机器上运行该部分脚本会遇到问题，为了不必要的麻烦，因而使用txt保存网址数据。但是vbs好像没有提供设置文件读取位置的函数(python提供)，网上没有找到这块可用的代码，可能大家基本没有我这么低级的需求吧囧rz……，后来还是搞定了，所以将代码贴出来，以作备忘。其实核心就是发现读取到文本的最后一行，那么重新打开该文件即可。代码：Ca

2010-06-16 01:35:00 2925

原创用scripting.dictionary实现简单的测试随机动作模型

在使用QTP做测试的时候，遇到一个问题，就是有一堆动作要随机执行，动作个数不确定并且动作执行的比率也是会调整的。而实际上使用Script的dictionary对象能很容易的解决该问题。首先初始化数据：Function initOpration() Set FavOprations = CreateObject("Scripting.Dictionary") FavOprations.Add "addRightMouse", "10" '通过右键菜单添加

2010-06-16 01:19:00 1079

原创用Resource Hacker辅助升级相关测试

在客户端测试中，必然涉及到一个功能：升级。而升级检测一般来讲有几种方式：版本号标记检测(升级检测的版本号记录在注册表或者本地的ini、xml等文件中)，文件版本属性检测(PE文件属性中直接获取产品版本号、文件版本号)。 对于前者比较简单，我们只需要修改文件即可；而对于后者，这些信息是记录在二进制文件中的，无法直接修改。 而在测试执行过程中，我们拿到的往往就是某个版本的程序，如果涉及到高低版本比较的测试，通常我们只能让开发人员再提供一个相应的程序来继续我们的工作。

2010-06-10 13:59:00 1062

原创排序功能实现及测试影响因素

在客户端软件测试过程中，经常涉及到一个功能的测试：排序。在设计排序功能测试用例时我们会考虑各种影响因素：节点名称上的特性，节点属性，其他功能模块对数据的影响，其他功能模块对UI展现的影响等几个方面。那么排序效果到底是如何实现的呢？这里不得不说到一个函数CompareString()。我们所需要的功能主要就是靠他了。一.函数定义int CompareString( LCID locale, DWORD dwCmdFlags, PCTSTR pString1, int cch1,PCTSTR p

2010-06-09 21:08:00 2906

原创 WebRadioGroup控件操作方法

具体代码如下： ' 获取WebRadioGroup下有几个RadioBox window("Window").Page("360安全浏览器选项").WebRadioGroup("jradiogrouptw_control_73").GetTOProperty("items count")' 获取WebRadioGroup当前处于选中状态的是哪个 window("Window").Page("360安全浏览器选项").WebRadioGroup("jradiogrouptw_

2010-06-07 17:03:00 2181

原创 QTP无权限写入文本的问题

原来的脚本如下： If not (fileSystemObj.FileExists(fileName)) Then Set logFile = fileSystemObj.CreateTextFile(fileName, True) End If Set logFile = fileSystemObj.OpenTextFile(fileName, ForAppending , True,TristateUseDefault) <br /

2010-06-07 16:17:00 1351

转载揭秘QTP的DeviceReplay对象

不知道为什么HP的帮助文档中没有提供关于DeviceReplay的强大功能的信息描述。你可以在Java插件中却可以找到DeviceReplay的属性，但是对于那些不使用Java插件的人可能会觉得这个对象仅在Java程序的测试中可用。 为什么要用DeviceReplay？ 有些时候我们需要针对界面做一些指定的动作，例如右键单击一个对象，使用功能键（Fx）来激活某些热键的功能，这时候就可以使用DeviceReplay对象，或者在Object.Set和

2010-06-07 01:41:00 808

原创将文本写入excel的vbs

因为在项目自动化实施过程中，需要将一些文本结果生成到excel中的，因而将代码总结如下：Call GetIni("E:/test/result.txt","E:/test/key.txt")Function GetIni(strResultPath,strKeyPath) Const ForReading = 1 Const TriStateTrue = -2 Dim myFso Dim MyFile Dim strState Dim Rang

2010-06-06 11:29:00 3014 1

敌测漏师