一个自动化测试的实例

实现代码：

agi.fPT0Dim inform '客户确认方式51Testing软件测试网4nI,T/BT!VVM
Dim oWebButton51Testing软件测试网8l(e A\&FZ.N5u
Dim ObjWebButtons
daSbQR0Dim NumberOfWebButtons51Testing软件测试网bkUoy`G q
51Testing软件测试网X;~zA-h,~
'获取指定类型的对象的个数
CB_i nH#A8BD0Function GetWebButton(micclass , str_type , str_obj)
NLB0I\$TV0   Dim oWebButton
;F)Z8}:R)cq8[0   Set ōWebButton = Descrīption.Create()
CQNg7sYb$G]0   oWebButton(micclass).value = str_type
)^ q7H\Im9rpD1p#W"XM0   Set ōbjWebButtons = str_obj.ChildObjects(oWebButton)
BxliZ/E0   NumberOfWebButtons = ObjWebButtons.count
%iL9t.j3h3?t0End Function

!Gkzm&~A8e0'获取某个对象的运行时指定的属性51Testing软件测试网~1\:]3i9{w h{
Function get_property(str_obj , str_property)51Testing软件测试网+x'^g\?3W*]
   value_property = str_obj.GetROProperty(str_property)51Testing软件测试网y|1CC4F
K/u
   get_property = value_property51Testing软件测试网[+Dvw$P8`
End Function51Testing软件测试网 x&Q/t z~0C-q'ubn

'比较通知方式是否和Button匹配51Testing软件测试网'^ \y
]R
Function checkbutton(str_infrom , str_button)
/J-S}`?nR:K0   str_value = Cstr(Trim(Right(str_button , 2)))51Testing软件测试网KqGfH4rF'c
   str_info = Cstr(Trim(str_infrom))51Testing软件测试网U,I)b_K

6el}
g0O7L6XX&j1q0   If (str_info = str_value ) Then51Testing软件测试网0_!p5l4q%et,kh
    ischeck = True51Testing软件测试网^YA\1DZ3hR
    else51Testing软件测试网.OT[Q%N eX&v
   ischeck = False51Testing软件测试网 }d gz0oH
   End If
t9B*pX?\r7s:LF0   checkbutton = ischeck51Testing软件测试网2zJG fqf`)k[H
End Function

'处理WinButton按钮－－当实际通知方式和订单中不一致时
Sc)SI7W%aMn0Function winbutton_click()51Testing软件测试网*{ lo)JYv0H
    If ((inform = "电话") or (inform = "不用确认")) Then51Testing软件测试网+}xO5X
Y^
  Browser("=====HOTEL=====").Dialog("Microsoft Internet Explorer").WinButton("确定").Click
8pJu$I!o0  Browser("发送短信").Page("发送短信").Sync51Testing软件测试网B5V8}g$Zb(Q
  Else
G%f'[8XS.[0   strbutton = get_property(ObjWebButton , "value")
r+O"YgQ(o2hoX0   checks = checkbutton(inform , strbutton)51Testing软件测试网'P7{)N-x7g u6xk
   If (checks = True) Then51Testing软件测试网4a%PUy z,na]5M"L
    Browser("发送短信").Page("发送短信").Sync
CwmkG;`0    else
BnRh1G3}H0     Browser("=====HOTEL=====").Dialog("Microsoft Internet Explorer").WinButton("确定").Click
G @Ef@ P*IG0     Browser("发送短信").Page("发送短信").Sync
q0mp3}3|)?M0   End If
%Oy&X-R9X dNwi D0 End If51Testing软件测试网:OFJ(Z [[
End Function

'处理不同发送界面上同一功能不同名字的按钮
Dka+k
\(t.m"q&N8d-|0Function SelectButton(micclass , str_type , str_obj , strcheck)
K3_,k'O5}#px.o } Y%S$Q[T.z0   Dim oButton51Testing软件测试网Q'^`o)i#m-E
   Set ōButton = Descrīption.Create()
B-FV6[,v P0   oButton(micclass).value = str_type51Testing软件测试网
w0]"}d}"L$N3H8Gn
   Set ōbjButtons = str_obj.ChildObjects(oButton)51Testing软件测试网/z5AEe6]nA'd,V7pM
   NumberOfButtons = ObjButtons.count51Testing软件测试网7?gL5PM4K0a+j\)dv:\

TMZ7ib6x8mg[0   For z = 0 to NumberOfButtons - 1
{/k ^{@$|khs;}X0    ButtonName = ObjButtons(z).GetROProperty("value")
GmZ)L"}f%U.t!a0    CheckName = Left(ButtonName , 2)51Testing软件测试网4H:X;G2Kw%x,HF
    check = checkbutton(CheckName , strcheck)51Testing软件测试网2q j!Eh'RS\
    If (check = True) Then
1w-L@d&@O%b|"l-Gj^S0     ObjButtons(z).Click
EN'Tkx0     Exit for51Testing软件测试网h)c5V"`*Rj$sL
    End If
]/}&H)?$r"~0   Next
%{1Dp;r f(e%m0End Function
C!c%H G_0'－－－－－－－－发送客户通知－－－－－－－－－－－－
_$jX,hY#H Wi6J0'获取订单中的客户确认方式51Testing软件测试网&F9luxPg{1l
str_info = Browser("=====HOTEL=====").Page("=====HOTEL=====").Frame("sysmain").WebElement("短信").GetROProperty("innertext")
Ow(U-y:|z8\3hy0str_info = Browser("=====HOTEL=====").Page("=====HOTEL=====").Frame("sysmain").WebTable("操作内容").GetCellData(2, 1)51Testing软件测试网Z0m-D4HO|
myarray = split(str_info , ":")
.T!srx.Y't0temp_info = split(myarray(1) , ")")51Testing软件测试网5T ^ U(i?
inform = Trim(temp_info(0))51Testing软件测试网s3VH#f\A\

inform = Cstr(Trim(inform))51Testing软件测试网.o(k aJg3a IB%c

If (inform = "电邮") Then
.W$@j i^l0 inform = "邮件"
-S9]Rd4PtR ?U0End If51Testing软件测试网4U8KtK,dV;ay

MWc7z^"B?;~0'获取客户通知WebTable中所有的WebButton对象集合
7xg[7l0V-k+MLp&@!O0Call GetWebButton("micclass" , "WebButton" , Browser("=====HOTEL=====").Page("=====HOTEL=====").Frame("sysmain").WebTable("操作内容"))51Testing软件测试网N ^*dG2mHY

'发送客户通知－每个按钮逐个点击
Y]7{7Qt~Ge/LL0For i = 0 to NumberOfWebButtons - 151Testing软件测试网P2ve2s o
 Set ōbjWebButton = ObjWebButtons(i)
LK~Z6\
D+W~0 ObjWebButton.click
`3ym9NW W0 Call winbutton_click()
#~9l!b AG{6sp4e0      51Testing软件测试网"a"y\ _o
  '获取Group中RadioButton数量
.?0WE:l3x1veXD0   NumberOfRadioButton = get_property(Browser("发送短信").Page("发送短信").WebRadioGroup("smsType") , "items count")51Testing软件测试网'_*xI6D.Ev
   51Testing软件测试网3fa[s@R E/^6w
     '逐个选择每个RadioButton51Testing软件测试网;c$H!@,J1Z` m#K^u
   For j = 0 to NumberOfRadioButton - 1
uM.S4T[],i'sI0                Browser("发送短信").Page("发送短信").WebRadioGroup("smsType").select "#"&j
'S x0G!n)N7t1Rj0    51Testing软件测试网E(P]m
T0D5n
    Call SelectButton("micclass" , "WebButton" , Browser("发送短信").Page("发送短信") , "发送")    51Testing软件测试网#d-C}$iGX ? `yV

HM!|dWP.B8s0    If i = 0 Then
8Z6Kl#K'r8E$UsW}0     Browser("发送短信").Dialog("Microsoft Internet Explorer").WinButton("确定").Click51Testing软件测试网QLz'o ^&NK2Ydut d
    End If

'Q8\ tB {3o|H2B0    Browser("发送短信").Page("提示").WebButton("关闭").Click

    Call GetWebButton("micclass" , "WebButton" , Browser("=====HOTEL=====").Page("=====HOTEL=====").Frame("sysmain").WebTable("操作内容"))
HFhaY7A zcPnm0     Set ōbjWebButton = ObjWebButtons(i)

    'msgbox(ObjButton.ToString)     
\d%lx @5{c l*P2l y0    ObjWebButton.click
VL&jU$Zb]0    Call winbutton_click()      51Testing软件测试网v^0Sc m ZfS
   Next51Testing软件测试网P |:ue#|$mh
   If i = 0 Then
;}3Y$ok$}n8sc,|0    Browser("发送短信").Page("发送短信").WebButton("关闭").Click51Testing软件测试网 g5Ad"~2`;VF
    Else
4@;c}
t3s-}]!U m/X0     Call SelectButton("micclass" , "WebButton" , Browser("发送短信").Page("发送短信") , "取消")
9EG2L)x1Tp0   End If 
aKkPYTZ{0Next51Testing软件测试网Z2[y+RF4n,q Q
'－－－－－－－－－－－－－－－－－－－－－－－－－－－
[)?1y
m*lI0'释放对象资源
Aj&P^ cA8r0Set ōbjWebButton = nothing
c/}@)Gx.I?0Set ōbjButtons = nothing51Testing软件测试网0Ej9RHd!J"N sZ
Set ōButton = nothing51Testing软件测试网(WV1}$n h j'@
Set ōbjWebButtons = nothing
!w7NL8o*D*O0rwG*C
X0Set ōWebButton = nothing