用Robot实现登陆界面的压力测试

压力测试脚本：进行压力测试时候，同样是大数据量（100个用户）时，但是我的脚本设置改变为第一个模拟用户登陆成功后，没有退出系统，然后第二个用户登陆，如此循环100次。
:M lD*L%t)ol)k2`0'$Include "SQAUTIL.SBH"
~@m"jE]#} f9h_J0Sub Main51Testing软件测试网?-Z;WSY
}
    Dim Result As Integer51Testing软件测试网U-i8Yq'e i2_

6Vx jt4x/p#[0    dim i as integer   
+LMm;Jvu^`/`0    dim username as string   
?GF2pcJd0    dim pwd as string   
4i(Ng\8B*mtI mN"I*Qt0   
5Mbjoe'z] z't0    dim dp as long
-?HL\oZ051Testing软件测试网aM;KF|/M/G
  
.k'jIBAg$g2iiI&`@0    'Initially Recorded: 2005-12-19  17:34:27
6_QajF"C8HK}AD0    'scrīpt Name: 5
7n*iM V Q0   
){ W"LRY)l*?WY0    Window SetContext, "Class=Shell_TrayWnd", ""51Testing软件测试网^3_g|J
    TabControl Click, "ObjectIndex=1;\;ItemIndex=0", ""
$X9h{"L+Xtsl0    StartApplication """F:\GPS 0.1test\gps\GpsClent.exe"""
#o5b0Df'P'b)e2rfo0   51Testing软件测试网$f2TS;|5M ]Br||U
    dp=SQADatapoolOpen("login")51Testing软件测试网eE XAT
^
    for i=1 to 10051Testing软件测试网!e q-rGO I
    Call SQADatapoolFetch(dp)
kd;dI|6[ I0    Call SQADatapoolValue(dp,1,username)   51Testing软件测试网 i@+U"I.@
    Call SQADatapoolValue(dp,2,pwd)51Testing软件测试网(w`v%m.K@C5X~

A e2jQ-\1ns0   51Testing软件测试网%P(I#Du*@N
S
    Window SetContext, "Caption=监控端", ""
3Vf#Fv;|v0    Window Click, "", "Coords=30,-13"
0WQD!`%M1}%N0    PopupMenuSelect "登陆"51Testing软件测试网(lD I(Y`*\q$}q
   
.g9w@XAVI h R0    Window SetContext, "Caption=登录", ""51Testing软件测试网n^
N.Hg
    InputKeys username51Testing软件测试网8R2Kc{,u
    EditBox Click, "ObjectIndex=2", "Coords=13,8"51Testing软件测试网){&?x,L|Ep;`-M
    InputKeys pwd51Testing软件测试网+@9vU6`?E%R-y!k
B
   51Testing软件测试网3B
Ha8C/K5k
    Window SetContext, "Class=Shell_TrayWnd", ""
%^|6Z[sk&P!g[0    TabControl Click, "ObjectIndex=1;\;ItemIndex=3", ""
)j&h-^,bgR[0   51Testing软件测试网2U
xQpyI.F
    Result = WindowVP (CompareNumeric, "Caption=登录", "VP=Alphanumeric;Value=0")
qV `FH,y)r6v0_0   51Testing软件测试网#`(Up2V7qy1^Dr
    Window SetContext, "Caption=登录", ""
4{r d ^}t0    PushButton Click, "Text=确定"        
iBPeU1@,S9}F0   51Testing软件测试网#e,@SM6f
    next                                              
6?B-Qikuk0    Call SQADatapoolClose(dp)51Testing软件测试网d,U7uDQ)P+X h

Cv5QC5|N1c0
1Su.e
w(@y2L0    Window SetContext, "Caption=监控端", ""51Testing软件测试网tK/Z5B ne6Z*s`
    Window Click, "", "Coords=35,-16"51Testing软件测试网Sat8OP-Ju
    PopupMenuSelect "退出登陆"51Testing软件测试网#~k+m&UCQ?
   
&dhq0}5r8y_}Z"`0        51Testing软件测试网O#osALkKi
    Window Click, "", "Coords=29,-12"
#ttAdU0    PopupMenuSelect "退出"51Testing软件测试网-dFC;j1c2i3o"E;W0l
         
(O+j!ZK9Qv0    Window SetContext, "Class=Shell_TrayWnd", ""
R,m8g!u5@(l]0    TabControl Click, "ObjectIndex=1;\;ItemIndex=3", ""
[(v5Jr*u^(R0
p3WZ2I'f^E0End Sub