TestComplete测试计算器实例

TestComplete测试计算器实例51Testing软件测试网T5^jd*aW5ny3L

qiguojie原创文章，转载请注明出处，非常感谢！

j9A)~c"rh
CQ0w3b0最近换了工作，做管理不做技术了，因此钻研东西的时间很少；最近是因为写自动化测试规划，要选择一种测试工具，特意学习了TestComplete，不过正在学习中，希望可以和大家分享一些学习的经验，希望和大家多多交流，共同进步。51Testing软件测试网4z&H"lV},pth

5H(w v,^}0我是在网上找的TestComplete 5，并且破解后使用的（因为Demo版存在若干限制），学习可以，真正要给公司用时我还是希望公司可以出钱买个正版（根据了解，不是很贵好像），也希望大家支持正版软件。

TestComplete的简单使用步骤：51Testing软件测试网4`$s7F6q)x
j%r'q9@b
1、打开TestComplete51Testing软件测试网]9HT_&kX A
2、选择菜单 File - New - New Project创建一个新项目
GH,i'HkG'n03、选择General - Purpose Test Project，然后选择Language为Delphiscrīpt后OK51Testing软件测试网4KNP%al"g%Dv@%}4Ib
4、Select Project Items中默认，然后Finish即可51Testing软件测试网vJ9D,x s/h{
5、在Project Workspace的Project Explorer中点击脚本对应的Unit1单元文件
o7|/{.De1F&z s06、复制下面的代码到单元文件
,z&qV"mH07、保存，然后F9执行51Testing软件测试网oX6U XdV-f2g)[5s

51Testing软件测试网NPk4I$z
//========================

c+dY qCz0//Author:qiguojie
,o0_4Ob8I _2HUH%Z0//Date:2008-04-3051Testing软件测试网2yL II:dI5}%? Z
//scrīpt Type: Delphiscrīpt
d.T3F0W%O)mYB5a0//========================
'~gUk3_,d-}po0procedure Test1;         //执行测试51Testing软件测试网UJ+G#l(Y$Ukg4]
    var w1 : OleVariant;51Testing软件测试网*^*M\1]$m
    var num : OleVariant;
(U|Gh&vSqZ e5{
A%E0    var w2 : OleVariant;
d M(e jT9@#E-]0    var w3 : OleVariant;51Testing软件测试网"w$X;H&q(Jm*]
    i : Integer;
4L],a8fYY)`4{e(v0begin51Testing软件测试网n R%u^ aw/MA
//对象定义区
O^d'W!Rdk8I;m0    w1 := Sys.Process('calc').Window('SciCalc', '计算器');   
JO(WDZ&u}K0    w2 := w1.Window('Button', '**');   
Pg0x.h)O ^B4X0    w3 := w1.Window('Button', '=');   51Testing软件测试网|?8Gle
//循环执行10次
%R,S3C7kJ0    for i := 0 to 9 do
`zdn'k1dn0    begin51Testing软件测试网9m:uBw ?w#BX
        num := w1.Window('Button',i);51Testing软件测试网Q"H0~aYD@
        num.ClickButton;

rX7a;aXya0        w2.ClickButton;51Testing软件测试网3oE4q-h7G[j
        num.ClickButton;
S5b
MfJq"M't]0        w3.ClickButton;    
GhK{x5w'jqT0    end;51Testing软件测试网0csB)bQZ0zW
end;51Testing软件测试网+L7V V!S$ERy0P`

L(n~
g1e?e8Q}O0procedure Test2;
r,O9VlUWvCJ'J#}0    var p1 : OleVariant;51Testing软件测试网}Qg
\4qS:F-F
begin

uk%C2t%qI0    if not Sys.Process('calc').Exists then
!zj.? hK2phw%hgX0    begin
tUN#mvMZ
Tz0        p1 := Sys.Process('Explorer');
:@#D.Oc+~0        p1.Window('CabinetWClass', 'DDT&NameMapping').Window('SHELLDLL_DefView').Window('DUIViewWndClassName').Window('DirectUIHWND').Window('CtrlNotifySink').Window51Testing软件测试网l#qP0G?,NF:MS"t

('SysListView32', 'FolderView').Keys('[Win]r');
.J@;E0We$s:k2jh(n0        Sys.Keys('[Hold][Win]r[Release]');51Testing软件测试网lYO^7MC+QkK
        p1.Window('#32770', '运行').Window('ComboBox').Window('Edit').Keys('calc');51Testing软件测试网4k QPVEQS B/\
        p1.Window('#32770', '运行').Window('Button', '确定', 2).ClickButton;    

Fv%X)\8g!F0    end51Testing软件测试网I2yx2T"df'@5Z
    else begin
/H"FK0E3]0        log.warning('The calc is running!!');51Testing软件测试网9b+m[#m"ck&J
    end;
L3is I-Vz.i]0end;

jQfwC R6n^X1j0procedure Main;
G,g$^8m@0begin51Testing软件测试网-e5s0tHPcJ4{%s
    try
*?Xr,a?6|Ou0        Test2;
g A-U5pr*{I(v D!h0        Test1;
ikP+])J#y$_2_ B0    except
|'D+o[h7g^l0        Log.Error('Exception', ExceptionMessage);
)?"o*C+s{u K9v4c0    end;51Testing软件测试网N
TLQF,H^
end;51Testing软件测试网q,[S/Z1B+z r/f6S#y[h

f9UwqCQ}qp'Q0//=====================51Testing软件测试网y#Sa%Wy/[+V

Q#^t~b:J0B.w R,JS0 

3[:H$X@t5PIwX-V0脚本说明：

uJ4j"v#`U T1[j0这个是一个使用计算器自动计算 0-9每个数自乘的脚本。
TG}k1~k'Ih0脚本语言我选择的是Delphi，因为TC的C++脚本和LR的C差太多，我感觉读起来非常难懂。

;FY5H4e]jg1~0在使用TC中我发现了2个问题：
j#f'oW \6`!{zD01、TC的脚本中对中文的处理不是很好，容易出现问题（例如添加中文的注释或者打印Log时输出中文的信息，有时会报错）
%~#c)s0q1R02、Main过程如果放在Test1，Test2上面，就无法找到Test1和Test2，我记得是可以声明一下，但是好久没用Delphi不会弄了

通过这个实例，我简单的掌握了TC脚本的一些基本概念，目前还没有找到添加检查点以及其他的一些功能，等以后学习的多了，再总结一下吧。

可以+MSN交流:qiguojie at hotmail dot com