不要追求绝对的公平,红尘之中没有公平而言,人活一世,难得糊涂。                                           it is no use doing what you like, you have got to like what you do.

测试CQ 登陆

上一篇 / 下一篇  2007-02-10 14:56:07 / 个人分类:Robot技术

'$include "sqautil.sbh"51Testing软件测试网"X?NA2[%tH%O9u
Sub Main51Testing软件测试网5en/Q+S%]'?2^
    Dim Result As Integer51Testing软件测试网tmS5t.BQ
    dim x as integer
7u"t}U6k C A5l `h[0    dim dp as long51Testing软件测试网j8sNjp @?
    dim dpname as string51Testing软件测试网 [/YpjCoC
    dim password as string
^-B4?r"v051Testing软件测试网PG2C7W8@6^8V_pY
    StartApplication """D:\Program Files\Rational\ClearQuest\clearquest.exe"""
9Uwz`1W?3Yg0    dp = sqadatapoolopen("test-cq")51Testing软件测试网S.Hn5xFa6X
    for x=1 to 2
Xs r+?2m0    call sqadatapoolfetch(dp)
_7s*`As Qh0    call sqadatapoolvalue(dp,1,dpname)51Testing软件测试网Jh PP7\d9@
    call sqadatapoolvalue(dp,2,password)51Testing软件测试网)HsD1O6qv
    call sqadatapoolvalue(dp,3,cctype)51Testing软件测试网]/GOx VR
    Window SetContext, "Caption=Rational ClearQuest Login", ""
@^;`E {"I}0    EditBox DblClick, "Label=User Name", "Coords=10,6"51Testing软件测试网.wQp6E*O
    msgbox dpname51Testing软件测试网y O{ LPZ%Tb
    InputKeys dpname51Testing软件测试网f]'MO| D$P
    EditBox DblClick, "Label=Password", "Coords=5,10"
Q M&WW+eF0    msgbox password
`} R?:p%H0    InputKeys password51Testing软件测试网M:Dp$Sh
    ComboBox Click, "Label=Database", "Coords=153,12"  
z/U2X F7Z$u%Z/`0    ComboListBox Click, "Label=Database", "Text=RSDF : "51Testing软件测试网8j H+OhB
    PushButton Click, "Text=OK"51Testing软件测试网 r fV Yo~6~
 
5CI,BVjRn;?V0   result=SQAWaitForObject("\;Type=Window;Caption=Warning - Invalid Login",8000)51Testing软件测试网6d*od"Nop I pj
   MSGBOX result
5r W"e;P(aB#^0   //x=1返回0 x=2 返回1016 --1016是指在指定的时间内没有找到对象51Testing软件测试网G1MC(TQ
   result=SQAFindObject("\;Type=Window;Caption=Warning - Invalid Login")51Testing软件测试网#JW1fbe
   msgbox result
'K-}6|7h7zVD$kXH0   //x=1返回0 x=2 返回1003
_7?)jM2b2n!k0      if result=sqasuccess then  51Testing软件测试网 G$GO+M^6U
        msgbox "fail"51Testing软件测试网7t&t2a8C5Q5Xj
        Window SetContext, "Caption=Warning - Invalid Login", ""51Testing软件测试网i:RnppO? h!@
        PushButton Click, "Text=OK"
o I*_ ch$v6~5@0     else  51Testing软件测试网.G2{M D+Fs
        msgbox "ok"
N.g p?hSKY0        Window SetContext, "Caption=Rational ClearQuest - RSDF :", ""51Testing软件测试网&e$v3s/ri\v;\b
        Window CloseWin, "", ""
/n~1E%So Lv0    end if
mkJy6e1L9_0    next x
I6Q9CBC&y4T0End Sub
a1nvr&ttw0 
]3j6F?l,r0有待完善..............
`${)Ay ?Ek0

TAG: Robot技术

 

评分:0

我来说两句

Open Toolbar