测试计算器的脚本.doc

测试计算器的脚本#程序说明开始#被测对象：windows自带的计算器功能：1.随机产生数2.生成日志文件 作者：小强更多视频作品请关注/bbs，小强作品多多在线看视频，适量点击视频左侧广告就是对我们的支持我的blog：/xqtesting#程序说明结束#Option Explicit 强制声明变量Environment.Value(RunTimes) =3 执行测试次数主函数开始让QTP运行时保持最小化Dim objQTPWinSet objQTPWin = GetObject( , QuickTest.Application)objQTPWin.WindowState = Minimized获取当前日期和时间Dim currentTime,currentDatecurrentDate = DatecurrentTime = Time写入测试报告Dim fileSystemObj,fileSpec,logFileSet fileSystemObj = CreateObject(Scripting.FileSystemObject)fileSpec =C: &计算器测试报告-小强& .txt Set logFile = fileSystemObj.OpenTextFile(fileSpec, 8, true) logFile.WriteLine (#)logFile.WriteLine (#被测对象：windows自带的计算器#)logFile.WriteLine (#作者：小强 blog：/xqtesting #)logFile.WriteLine (# 测试日期： + cstr(currentDate) + cstr(currentTime) + #)logFile.WriteLine(#更多小强作品：/bbs #)logFile.WriteLine (#)logFile.WriteLine ()Dim i,op1,op2,operatorFor i =1 to Environment.Value(RunTimes) 要循环的次数SystemUtil.Run C:WINDOWSsystem32calc.exe,openSet op1=description.Create()Set op2=description.Create()op1(text).value=randomnumber(0,9)op2(text).value=randomnumber(0,9)Window(计算器).ActivateWindow(计算器).WinButton(op1).ClickWindow(计算器).Activateoperator = GetOperation()Window(计算器).ActivateWindow(计算器).WinButton(op2).ClickWindow(计算器).ActivateWindow(计算器).WinButton(=).Click获取实际结果 Dim RealValue RealValue = Window(计算器).WinEdit(Edit).GetROProperty(text) Dim express 测试表达式 Select Case operator Case 0express = cstr(op1(text).value) + + + cstr(op2(text).value) + = ? Case 1express = cstr(op1(text).value) + - + cstr(op2(text).value) + = ? Case 2express = cstr(op1(text).value) + * + cstr(op2(text).value) + = ? Case 3express = cstr(op1(text).value) + / + cstr(op2(text).value) + = ? End Select logFile.WriteLine (测试表达式： + express) logFile.WriteLine (计算结果为： + trim(cstr(RealValue) logFile.WriteLine ( ) Window(计算器).CloseNext关闭文件logFile.CloseSet logFile = Nothing恢复QTP窗口objQTPWin.WindowState = RestoredSet objQTPWin = Nothing随机生成操作符Function GetOperation() Dim oper oper =randomnumber.Value(0,3) Window(计算器).Activate Select Case oper Case 0Window(计算器).WinButton(+).Click Case 1Window(计算器).WinButton(-).Click Case 2Window(