测试计算器的脚本
'#############程序说明开始###########################'被测对象：windows自带的计算器
'功能：
'1.随机产生数
'2.生成日志文件
'作者：小强
'更多视频作品请关注www.boobooke.com/bbs，小强作品
'多多在线看视频，适量点击视频左侧广告就是对我们的支持
'我的blog：http://blog.sina.com.cn/xqtesting
'############程序说明结束##################################
Option Explicit '强制声明变量
Environment.Value("RunTimes") =3' 执行测试次数
'主函数'开始
'让QTP运行时保持最小化
Dim objQTPWin
Set objQTPWin = GetObject("" , "QuickTest.Application")
objQTPWin.WindowState = "Minimized"
'获取当前日期和时间
Dim currentTime,currentDate
currentDate = Date
currentTime = Time
'写入测试报告
Dim fileSystemObj,fileSpec,logFile
Set fileSystemObj = CreateObject("Scripting.FileSystemObject")
fileSpec ="C:\" &"计算器测试报告-小强"& ".txt"
Set logFile = fileSystemObj.OpenTextFile(fileSpec, 8, true)
logFile.WriteLine ("##############################################")
logFile.WriteLine ("######被测对象：windows自带的计算器#########")
logFile.WriteLine ("######作者：小强 blog：http://blog.sina.com.cn/xqtesting ########")
logFile.WriteLine ("##### 测试日期：" + cstr(currentDate) + cstr(currentTime) +" ####")
logFile.WriteLine("#####更多小强作品：www.boobooke.com/bbs ########")
logFile.WriteLine ("##############################################")
logFile.WriteLine ("")
Dim i,op1,op2,operator
For i =1 to Environment.Value("RunTimes") '要循环的次数
SystemUtil.Run "C:\WINDOWS\system32\calc.exe","","","open"
Set op1=description.Create()
Set op2=description.Create()
op1("text").value=randomnumber(0,9)
op2("text").value=randomnumber(0,9)
Window("计算器").Activate
Window("计算器").WinButton(op1).Click
Window("计算器").Activate
operator = GetOperation()
Window("计算器").Activate
Window("计算器").WinButton(op2).Click
Window("计算器").Activate
Window("计算器").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("计算器").Close
Next
'关闭文件
logFile.Close
Set logFile = Nothing
'恢复QTP窗口
objQTPWin.WindowState = "Restored"
Set 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("计算器").WinButton("*").Click
Case 3Window("计算器").WinButton("/").Click
Case Else
End Select
GetOperation = oper
End Function 学习了，有时间好好研究一下，对QTP还没有到能分析脚本的地步:lol 坐下来慢慢研究，谢谢楼主的脚本:D 研究QTP语法尚可，但是没有太多实际测试意义
1、随机数生成范围太小，仅0-9，而且没有考虑小数、负数等情况；
2、自动执行但无自动判断，和猴子测试一样，自动化测试困难的不在自动执行，而在自动检查；
页:
[1]
