TestComplete测试计算器实例

|h\/RoQ*q X*pN0TestComplete测试计算器实例51Testing软件测试网)b*cCj,yK8y;Y

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

l.Sp3M
BN7y$^ H0最近换了工作，做管理不做技术了，因此钻研东西的时间很少；最近是因为写自动化测试规划，要选择一种测试工具，特意学习了TestComplete，不过正在学习中，希望可以和大家分享一些学习的经验，希望和大家多多交流，共同进步。51Testing软件测试网 u/lx7Mw

y/n;uIdK/GeR0我是在网上找的TestComplete 5，并且破解后使用的（因为Demo版存在若干限制），学习可以，真正要给公司用时我还是希望公司可以出钱买个正版（根据了解，不是很贵好像），也希望大家支持正版软件。51Testing软件测试网e*wV$N6Z

3Bu%nriH0TestComplete的简单使用步骤：
!EkrTQ3eg
F01、打开TestComplete
hX|,k6}r0J p5n:o'f02、选择菜单 File - New - New Project创建一个新项目51Testing软件测试网g9t!of1a-Fut1\5]8n
3、选择General - Purpose Test Project，然后选择Language为Delphiscrīpt后OK
1m
V7X e)OH$Hl"H04、Select Project Items中默认，然后Finish即可51Testing软件测试网%Cpy:g{y2g
5、在Project Workspace的Project Explorer中点击脚本对应的Unit1单元文件51Testing软件测试网b@qY{2h
6、复制下面的代码到单元文件51Testing软件测试网9p?(J-LVyvu&wI
7、保存，然后F9执行51Testing软件测试网 ]Rvtp\Z

b [&nQ0o/c6xL!zQ9f051Testing软件测试网8UXV"K/~S5a`&t@
//========================51Testing软件测试网?bI!P,`,x
//Author:qiguojie
:XUp(}F?0//Date:2008-04-30
+bB}|N-~}R#P9^bx0//scrīpt Type: Delphiscrīpt
;[mB6SS%TO
[1X$v&d;G0//========================51Testing软件测试网1w
C8~ LK tA
procedure Test1;         //执行测试51Testing软件测试网&h m8E4b,h5w
    var w1 : OleVariant;
8S-WFI mwVv0    var num : OleVariant;
oSXbxvEMA0    var w2 : OleVariant;51Testing软件测试网c4zP _/C;Pm
    var w3 : OleVariant;51Testing软件测试网 Pr0F*Uf4s
    i : Integer;51Testing软件测试网 A1e4iv"b
begin
xX2})yh1_!m*Y*J5|0//对象定义区
X!}WvNq)^'b0    w1 := Sys.Process('calc').Window('SciCalc', '计算器');   51Testing软件测试网 OLOF!F
    w2 := w1.Window('Button', '**');   51Testing软件测试网8r,a @.`6ka
T-~
    w3 := w1.Window('Button', '=');   
y.s3Nw(Bts0//循环执行10次
zYy1J/T0    for i := 0 to 9 do
gA+p$Q\1d5T0    begin51Testing软件测试网9T6T/c!K2rlN4t Po#A
        num := w1.Window('Button',i);
Be5D$S"\#F0        num.ClickButton;
O6yT/@Tu'a0        w2.ClickButton;
}'s(~)A,V'v0        num.ClickButton;
;z3]3P] V(TI4\I0        w3.ClickButton;    51Testing软件测试网/`{o*t7yT`G+jy"F2m
    end;
y"m9g9qM&}0end;51Testing软件测试网WMF@"@zJ1f,u)e

0j X2f(tB8uH1u/|\ AbGX0procedure Test2;51Testing软件测试网 \OZ-pq w
    var p1 : OleVariant;

b
@lL1C#H;b0begin51Testing软件测试网[ |5yH"tZ'C6A&^
    if not Sys.Process('calc').Exists then
-Md)?,Rn8f!H
k:x-g8f%r0    begin
|] D g3P$_Y3c8i0        p1 := Sys.Process('Explorer');51Testing软件测试网8k)^-l,ZDW
        p1.Window('CabinetWClass', 'DDT&NameMapping').Window('SHELLDLL_DefView').Window('DUIViewWndClassName').Window('DirectUIHWND').Window('CtrlNotifySink').Window51Testing软件测试网%jM!V'XA,f"L9s
W s

('SysListView32', 'FolderView').Keys('[Win]r');
IS
Bs,wCd0        Sys.Keys('[Hold][Win]r[Release]');
$?XE8C4[&H3Yv0        p1.Window('#32770', '运行').Window('ComboBox').Window('Edit').Keys('calc');
J$i3V.~:{#ii(i0        p1.Window('#32770', '运行').Window('Button', '确定', 2).ClickButton;    
6Lw KmQ$`.i&?0    end
9[~ f[4V/C0    else begin
giDd?H[ a0        log.warning('The calc is running!!');51Testing软件测试网'Ve3[F%r
B} p
    end;51Testing软件测试网:t@&S {B1Mb)q ~G6Z
end;

+Qk8MQ]*\0procedure Main;
+syE3?F wE0begin51Testing软件测试网h%S[x;W%d$p
    try
9JA9yN
M8\'{+u4j0        Test2;
!_.I
f i[0        Test1;51Testing软件测试网:by8T's%CT
    except51Testing软件测试网4df'Fm1D
S*I*q
        Log.Error('Exception', ExceptionMessage);51Testing软件测试网%QL5Ty7s S6|.e
    end;51Testing软件测试网&zi1v8X+?*g*ul?,Q
end;

//=====================51Testing软件测试网o(tc_3t4k!Zf

Uj\+yZ5l0 51Testing软件测试网(vosI1eO&H+o

y'D/OJt2~5N9l0脚本说明：51Testing软件测试网Al;E!R9_9e
]

这个是一个使用计算器自动计算 0-9每个数自乘的脚本。51Testing软件测试网$QNQY0^!P,n
脚本语言我选择的是Delphi，因为TC的C++脚本和LR的C差太多，我感觉读起来非常难懂。51Testing软件测试网w3I[ xulW

~z \W:y^I;@0
_XY"Sc"~1Hg0在使用TC中我发现了2个问题：
7Z%P5x(iN"_7o#_(R01、TC的脚本中对中文的处理不是很好，容易出现问题（例如添加中文的注释或者打印Log时输出中文的信息，有时会报错）
]G8`%k{1h7twg02、Main过程如果放在Test1，Test2上面，就无法找到Test1和Test2，我记得是可以声明一下，但是好久没用Delphi不会弄了

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

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