用Robot实现登陆界面的大数据量测试

-kFiVy j0目标：：大数据量测试（100个用户）时，我的脚本设置为第一个模拟用户登陆成功后，接着退出系统，然后第二个用户登陆，登陆成功后，接着退出系统，如此循环100次。脚本通过了。测试结果 PASS，符合我的要求。51Testing软件测试网#b Y` \vvM)Y#m

xB*A I gBu;}0'$Include "SQAUTIL.SBH"
w.U"WI5i6aM~]0Sub Main
\.y`2U?+C JP0    Dim Result As Integer
/V#G3CE_J'~7a0
x)[0E$Ix8r
aS0    dim i as integer   
q9O.J0zG#r_%^0    dim username as string   51Testing软件测试网&s U7F[cW1{
    dim pwd as string   
.p1J/s-f d8H]*["MeF0   51Testing软件测试网cp T|K-[_
    dim dp as long
} @g
m ~Lp;`051Testing软件测试网T^q3CCV
  
m8X"r&j5h0    'Initially Recorded: 2005-12-19  17:34:27
:Z7GU_/|,D0    'scrīpt Name: 5
$g&E"U,`Y*Z*pD0   
A/W7druf\Fm?d0    Window SetContext, "Class=Shell_TrayWnd", ""51Testing软件测试网i wDKxR
    TabControl Click, "ObjectIndex=1;\;ItemIndex=0", ""51Testing软件测试网.l8E*fy:dgiU
    StartApplication """F:\GPS 0.1test\gps\GpsClent.exe"""51Testing软件测试网 V@wA FO
   51Testing软件测试网 |l?!E,bHxH+{h)c|(f
    dp=SQADatapoolOpen("login")51Testing软件测试网9H9~2u+yX c/w j
    for i=1 to 10051Testing软件测试网5L
] Rtmj
    Call SQADatapoolFetch(dp)
z9u{+SF-O0    Call SQADatapoolValue(dp,1,username)   
+ui&G wMT0    Call SQADatapoolValue(dp,2,pwd)
r3}i#b
K YkJR k051Testing软件测试网't+xeXU\ ya
   
@5Ge8Z.W&}0    Window SetContext, "Caption=监控端", ""51Testing软件测试网[8WQ.jlE6x$Fz
    Window Click, "", "Coords=30,-13"51Testing软件测试网6h{%N yX,c9i
    PopupMenuSelect "登陆"
5O"e| O$y2v~e0   51Testing软件测试网 Y D[E:gP
    Window SetContext, "Caption=登录", ""
m
ed#Q ?x)g3qv0    InputKeys username
4IZ$@d
?z%N0z0    EditBox Click, "ObjectIndex=2", "Coords=13,8"
KR*BF+e.w|[0    InputKeys pwd
#Vt;JBQe({3zKL v-q"B0   
r:Y/M?Ci0    Window SetContext, "Class=Shell_TrayWnd", ""
H&v fXi:s0    TabControl Click, "ObjectIndex=1;\;ItemIndex=3", ""51Testing软件测试网] e dsC&{o2~
   
s } DD_5k[0    Result = WindowVP (CompareNumeric, "Caption=登录", "VP=Alphanumeric;Value=0")
iUaVF J^8s o0   
/{3s&D*O!dz0    Window SetContext, "Caption=登录", ""
[ y,E6fUda| B0    PushButton Click, "Text=确定"        
Zh8?E
t;fF.A^0   
,j-`K
cN_1Hg0    Window SetContext, "Caption=监控端", ""51Testing软件测试网 o4h |JX'Y7M
    Window Click, "", "Coords=35,-16"
ME3I%]WBT|Tj0    PopupMenuSelect "退出登陆"
0p$JF6kK(p'h3g
A;H0   51Testing软件测试网!a?2}
FmD:Ci+W:d
    next   
s En1x I&V8q0    Call SQADatapoolClose(dp)51Testing软件测试网A4^oElV
   51Testing软件测试网F"n[ a;x
    Window Click, "", "Coords=29,-12"
Am;`a"D,d0J*M#}0    PopupMenuSelect "退出"51Testing软件测试网$ST%Q~IoI)~M
H
         51Testing软件测试网e'Up;[X%WVnPm
    Window SetContext, "Class=Shell_TrayWnd", ""51Testing软件测试网)S)R8v2Gt1tHHW,N
    TabControl Click, "ObjectIndex=1;\;ItemIndex=3", ""
8Pbv7GN!M&q051Testing软件测试网`o{?0q#_
End Sub