smmi的专栏

在QTP中，.NET对象的Class Name都是以Swf开头的，使用QTP11测试.NET程序时经常出现无法识别对象，将窗口识别成Window而不是SwfWindow的情况，导致测试不能正常进行下去，下面给出三种解决方法，如果还不行的话，只能重装QTP了。 1、安装QTP的.NET插件，启动QTP时选择.NET插件，其他插件不选，以免有冲突；2、安装QTP11补丁QTP_00709....

一、单例模式（Singleton Pattern）'-------------------------------------------------------------------------------' Description:' 单例模式Singleton Pattern' 只能实例化一个对象。当创建ExcelWrapper这个类包装的时候就只会调用单个实例，在类...

MsgBox GetRndStr(8)Function GetRndStr(ByVal strLen) Dim strArr, tmpStr strArr=Split("a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,1,2,3,4,5,6,7,8,9,0",",") For i=0 To strLen-1 tmp...

使用QTP自动化测试结束后，经常需要将测试结果写入Excel中，这里就把一些常用对Excel操作的方法进行归纳、整理，方便使用时查阅。支持Office Excel 2003版本，不支持2007版本。 On Error Resume NextDim FileName, SheetName, Text, ExcelApp, ExcelBook, ExcelSheetFileName ...

 SystemUtil对象包括BlockInput、CloseDescendentProcesses、CloseProcessByHwnd、CloseProcessById、CloseProcessByName、CloseProcessByWndTitle、Run、UnblockInput方法。 1、使用Run方法运行文件或程序Run file,[params],[dir],[op...

    在自动化测试过程中，经常需要对大量的文本数据进行查找，对字符串进行比较和匹配，从而判断测试结果是否正确。这时候，就需要用到正则表达式。    在VBScript中，使用RegExp对象来支持正则表达式的使用。RegExp提供了3个属性和3个方法，分别是： 属性：Pattern、Global、IgnoreCase方法：Execute、Test、ReplacePatte...

Eval  计算一个表达式的值并返回结果。[result = ]Eval(expression) Execute执行一个或多个指定的语句。Execute statements  例子：x = 9y = 10 bIsEqual = Eval("x = y")Execute "x = y" MsgBox "bIsEqual: " &...

第一种方法：ExecuteFile，利用该函数将外部vbs动态地加载进来，使测试脚本可以调用vbs文件的所有函数，调用语句写在下方，顺序不能颠倒，否则会报错。这个方法适用于QTP任何版本，但有个缺点，代码调试时不能跟踪到外部vbs的函数中，多少有些不便。 ExecuteFile File  File  String  The absolute or relative path ...

VBScript在调用VB编译的DLL里的一个方法时，总是报错“无效的过程调用或参数”，而在VB中按同样方法调用时一点问题也没有，很是奇怪，VBS调用该类另一个方法却能成功，对比了两个方法，发现参数定义不同。 出错的方法参数定义类似这样ByVal SheetName As String，对参数指定了数据类型，而调用成功的方法没有指定数据类型，可能这就是原因所在，因为VBS里的变量都是同一...

做自动化测试大多会用到数据驱动，而Excel表是最最常用的存储数据的工具，当使用OLE来操作Excel表读取数据时，有时会发生读不到某些单元格里的数据，单元格里存储的原本是中文或是字符，而读出来却是空值，这是为什么呢？ 问题原因： 通过调试跟踪，发现OLE将问题单元格数据按Double类型读取而不是String类型，所以读取数字没有问题，遇到中文字符、英文字符、特殊字符就会因类型不...

ORAOM：Object Repository automation object model（对象库自动化模型对象）本文脚本不需要QTP加载对象库，就能读取对象库中的内容，包括对象名称和各个属性值。 '创建ObjectRepositoryUtil对象Set ObjRepoUtil = CreateObject("Mercury.ObjectRepositoryUtil")'...