测试计算器的脚本.docVIP

测试计算器的脚本 #############程序说明开始###########################被测对象：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:\WINDOWS\system32\calc.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 0??express = cstr(op1(text).value) + + + cstr(op2(text).value) + = ?? ?? ???Case 1??express = cstr(op1(text).value) + - + cstr(op2(text).value) + = ?? ?? ???Case 2??express = cstr(op1(text).value) + * + cstr(op2(text).value) + = ?? ?? ???Case 3??express = cstr(op1(text).value) + / + cstr(op2(text).value)