SQAWaitForPropertyvalue 函数使用

Sub Main51Testing软件测试网2N0^5aZ[i
    Dim Result As Integer
4@c9M"s8_0    Dim Result2 As Integer51Testing软件测试网n^ c@#m"cg9S
    Dim Result3 As Integer51Testing软件测试网,T+iH;oeS_O A
    dim yjk as integer51Testing软件测试网VX:F5{^*qffNw5N
    dim i as double
L8A%l6x'M0    dim j as integer
;YR.u/h_)bik0   51Testing软件测试网r9RV;}+ZAq
     i=111100000009669
@3l2Col#o9Y0    'Initially Recorded: 2005-11-28  14:44:0851Testing软件测试网h6?t GO8_+u
    'scrīpt Name: gdjh_wdfh
1E^Rz$w
e
oM-P0    for j=1 to 10000
6f~iO!X0    Window SetContext, "Name=mainform", ""51Testing软件测试网Rl j:h#]0pK
    InputKeys  i & "{ENTER}"
i G0~ k'^f)Q9~3R/?0    i=i-1
KZh\4aP
n0     Result = SQAWaitForPropertyvalue("Caption=提示", "Enabled",TRUE, 6000)
d.S#W(g-p n1t c0  
Rez{wg"D6n0    msgbox Result
Hg'nE)F0    If Result <> sqaSuccess Then51Testing软件测试网r la8QT(]V5H
       PushButton Click, "Text=确定"
?!n} jh_0       Result2 = SQAWaitForPropertyvalue("Caption=错误!", "Enabled",TRUE, 1000)51Testing软件测试网.g!sMWKa:x
       msgbox result51Testing软件测试网 ?'E,Zm+r'D
       PushButton Click, "Text=确定"
5v7w.d9O*Dz0     
nq#r\,f*Boa{-\ }0    End if
~r0}j^WQ0    'delayfor(5500)51Testing软件测试网[f4k;oR8_7d
  51Testing软件测试网:l*iEj'J4x
    'Window SetContext, "Name=mainform", ""
Ua"\
S!y:}0    'InputKeys "1{ENTER}2{ENTER}{NUM+}{NUM*}"51Testing软件测试网ji jav2C
]bO&Pm
    Window SetContext, "Name=mainform", ""51Testing软件测试网g.t-{yX4?0W
    InputKeys "1{ENTER}"51Testing软件测试网%uqu{{0b
  
hlmt6L+e0Ps0    Window SetContext, "Name=mainform", ""51Testing软件测试网5`J ^{'H|VPw
    InputKeys "2{ENTER}"
UvIM|0       
;w"`5[].D#U"S3K0    Window SetContext, "Name=mainform", ""51Testing软件测试网+|4NQjfz
    InputKeys "{NUM+}"
#K-fWc4\ V+c7X(d0  
ue9FG _VU.X@8}0
E0b-n%zH%vZF:F$}EF0  51Testing软件测试网N:gIC T6w^b^
     Window SetTestContext, "Caption=错误!", ""51Testing软件测试网:ZU4thO&n {,lg
       yjk = SQAWaitForPropertyvalue("Caption=错误!", "Enabled",TRUE, 9000) 
T3Il8XE9k0                   '这里的返回值是1016，此窗口已经出现了，不是过vb的msgbox弹出的对话框。
|.bW6i7Q/eza0    msgbox YJK51Testing软件测试网*{S:]y_E
  
4D8`5],D;H{[;]0  51Testing软件测试网`n"U7X(NG
    If yjk = sqaSuccess Then
7g+E@:iPy0       Window SetContext, "Caption=错误!", ""51Testing软件测试网YyC~'h
       PushButton Click, "Text=确定"
-r~jzV'f0       Window SetContext, "Name=mainform", ""
QZ gW w0       InputKeys "{NUM*}"51Testing软件测试网!q[^6o$Dq(ZO'u
       Window SetContext, "Caption=提示信息", ""
(T;[!}9`:Tab!kW0       PushButton Click, "Text=否(N)"51Testing软件测试网"?;b J8R@
N
    End if
)K0m1_u5xX0  51Testing软件测试网3y&V5L W5k/IA
    Window SetContext, "Name=mainform", ""
p cFC4MlAO0    InputKeys "{NUM*}"51Testing软件测试网|#jfg gy$H Q
  51Testing软件测试网ZP0l/SV~
g/p;nMN+i
    'delayfor(9000) 
zj-Ne)O0    Result3 = SQAWaitForPropertyvalue("Caption=提示", "Enabled",TRUE, 8000)51Testing软件测试网%[2x@'G7~M
    'msgbox result3
j}V!Y R3r*j0    if Result3 <> sqaSuccess Then
r1Ap#S+e U,q7{@h0       PushButton Click, "Text=是(Y)"
{#AEL"t+d V(o6OA0    End if
*LHU,w \!l%OoLc0    next j51Testing软件测试网
tm"h(?5D0s1KT.gw
    'msgbox result3
U&[$N!B"tk0End Sub
0i+Z3zc'ym0