异常对象识别(Watir应用解决方案)(zz)

5`0T1Y!k_05. 异常对象识别(Watir应用解决方案)51Testing软件测试网JRO;V"mh@%C

&C:~k+SoJ9L0Watir基于处理，继承于web document的对象提供较好的支持方法，但相对于处理windows对象较弱. 就目前从各网站收集的对象来看, 基本上，对于在IE实例对象打开的web标准对象51Testing软件测试网E3}Mk"O!nq*U
能够成功识别与操作，其它的脱离当前IE窗口，打开的所有弹出框都不能正常识别。其中，弹出框对象占有异常对象识别中很大一部分。51Testing软件测试网.@?8_1@*~
目前碰到的弹出框, 我把他们分为三大类型：
bBJrZf
tP.M |01， Alerts 警告作用，如：sorry, 当前用户没有权限操作
8n!UM
V v%VDSp F02， Confirm 需要操作按钮, 如：你确认要删除当前记录？
-?b#_lCv`S9N03， Prompt+ select +confirm  需要用户输入，操作查询或点击, 最后确认, 如：Download/upload (浏览+选择文件)

下面给出，上面几种弹出框watir实现识别与操作的方法，
6fAg@K&L05.1. 弹出框基于autoIT + 线程实现方式51Testing软件测试网kH'A:vX-P

此种方法，对于第一、二种弹出框操作较有效，
\,CF.U/{0因点击某个link/button等对象，而弹出的窗口(大部分弹出框可应用此种方式来实现。)

#j r:kq_qD01, 定义方法51Testing软件测试网0}0H2A8J|w

0j T
ku
{{T0def check_for_popups51Testing软件测试网^A OD#l
    autoit = WIN32OLE.new('AutoItX3.Control')
8kxv,Z/j0    #

GV$Y#YVDpb3S4C0   
&f;?3Hi)^0    # Do forever - assumes popups could occur anywhere/anytime in your application.
5?,d7W9R&G(M/pf0    loop do
`FJ-] t)bXx'P0        # Look for window with given title. Give up after 1 second.
5LC9J,yGJ aL&G7s+u0       51Testing软件测试网Y'xFL%c/]
        ret = autoit.WinWait('消息 -- 网页对话框', '', 1)51Testing软件测试网3XB_ Q$V9H/Kh
        #ret = WinActivate("Microsoft Internet Explorer", "")51Testing软件测试网D'P.D!Rvn
#autoit.ControlClick("Microsoft Internet Explorer", "", "[CLASS:Button; INSTANCE:1]", 2)
J9[,F.]6j Y0       51Testing软件测试网7Fy"hUml-Mf9_
        puts(ret)
cb;L*}z.ca|kF0        #51Testing软件测试网*RuH%GnW
        # If window found, send appropriate keystroke (e.g. {enter}, {Y}, {N}).
-b-w!R,[5s!FK-Zr0       
0`uw
~]6tr0        if (ret==1) then autoit.Send("{Enter}") end51Testing软件测试网*Kc/y2qkp({Or
       51Testing软件测试网fd2[.mA.tp
        #
O;Dlr8t0        # Take a rest to avoid chewing up cycles and give another thread a go.
e
Ex7e-df3|0        # Then resume the loop.51Testing软件测试网l&n7Q~j Lg ~ KK*zB
        sleep(3)
~.y9z!fW0    end51Testing软件测试网V0]NSE.p9r
  end

w t5K,u*kp:f;S&b051Testing软件测试网5gDpo @*E*}O
2， 程序体代码51Testing软件测试网"e!Za;uR3Z3^
P&m

ie.button(:name, "signin").click_no_wait51Testing软件测试网W$|D$JA

7]\r^.ptzL0sleep(20)

$popup = Thread.new { check_for_popups }  # start popup handler

at_exit { Thread.kill($popup) }

3w&F7S p;b'vR0 

'RT`4sr[051Testing软件测试网!gW.| IIWG
5.2. Call 另一ruby文件51Testing软件测试网(Cw7W}b E

tl8H JV0mJ;G0对于第二种弹出框，像安全警告点击, 并不通过操作与点击任何对象, 即呈现弹出窗口。51Testing软件测试网t0`5adClk
W
我尝试用3.1方法来实现，不成功。用下面方法替代：51Testing软件测试网W$fq4[D:]IQN#G

*V|h@+x0
b5?~+bU ad_!^01, 在watir/WindowHelper.rb文件中增加方法51Testing软件测试网0n
v5XZtjm\

   def push_security_alert_yes_cn51Testing软件测试网R&M4y
wX W%rWOS
        @autoit.WinWait "安全警报", ""
F j
gO.dNot'Z0        @autoit.Send "{TAB}"51Testing软件测试网4p%E J Q%y;G
        @autoit.Send "{TAB}"
|V4oR+?XO0g0        @autoit.Send "{SPACE}"
1J5?,gkL+w#XZ!X }R!d0      End

2, 定义另一调用文件 tmp.rb51Testing软件测试网8?UV#ab7O
require 'watir/WindowHelper'
-Ni(R
EX'riKD\C0helper = WindowHelper.new51Testing软件测试网j9mB8MNUY
helper.push_security_alert_cn_yes51Testing软件测试网JSMT;Q L2b4Us!v

1~/HkB"p-h|051Testing软件测试网`K_ lB!N[
3, 在打开安全URL之前，启动调用ruby文件51Testing软件测试网 M|9]U
P|

require 'rubygems'
5^^r[;a8W-X,d:P0require 'watir'   # the watir controller51Testing软件测试网e\p.wN`Y!C|
require 'win32ole'51Testing软件测试网{O-Wkw!|`
require 'watir/WindowHelper'

51Testing软件测试网%Y^~#Ng@Q*d
Thread.new{system('ruby c:\tmp.rb')} #你定义tmp文件存放路径51Testing软件测试网qEikZE\$w
ie = Watir::IE.new51Testing软件测试网i?~ r[Uu
ie.goto("http://www.alipay.com.cn/")51Testing软件测试网2Uq^w_6P8s-[S(uC
5.3. 修改框架底层

此种方法，针对弹出框3.51Testing软件测试网jN0D5b5L(w;t

*r)n7K&lvDb0举例一， 上传下载文件
k^ NAS qZk| I01, 修改底层代码input_elements.rb文件,
s%@0F3O*z8@l:I:Vu}X0]0类 FileField中, 方法set.51Testing软件测试网i9_@+TE H;z;@
为了支持中文，有一句替换修改为：

system("rubyw -e \"require 'win32ole'; @autoit=WIN32OLE.new('AutoItX3.Control');waitresult=@autoit.WinWait'选择文件', '', 15; sleep 1; if waitresult == 1\" -e \"@autoit.ControlSetText '选择文件', '', 'Edit1', '#{setPath}'; @autoit.ControlSend '选择文件', '', 'Button2', '{ENTER}';\" -e \"end\"")51Testing软件测试网6z9l0POc/cQ6OS5K

*],i8wLSd Vy02, 定义方法
b4X?-Quzk
@8j0def save_file(filepath)51Testing软件测试网_)z0n/x8XQG
    ai = WIN32OLE.new("AutoItX3.Control")51Testing软件测试网8mA/|-C:Wk
K
    ai.WinWait("文件下载", "", 5)51Testing软件测试网-f? p/Z
U*NJ)~
    ai.ControlFocus("文件下载", "", "保存(&S)")51Testing软件测试网s
A v9I T3E
    sleep 1
5C5u&q_Smo5TBNR|0    ai.ControlClick("文件下载", "", "保存(&S)", "left")
5??Ius\?0    ai.WinWait("另存为", "", 5)
j6k4[ L,g%@G EHP0    sleep 1
~uR7a1`@bIjz(T0    ai.ControlSend("另存为", "", "Edit1",filepath)51Testing软件测试网l}'[#|p5s'Cjs
    ai.ControlClick("另存为", "", "保存(&S)", "left")
N?}/`)Zr0    ai.WinWait("下载完毕", "", 5)51Testing软件测试网i-PG(zM$B%jv@
    ai.ControlClick("下载完毕", "", "关闭")51Testing软件测试网*@9bR8K5xC
  end

^`lq3NY9uU0l\0
2M*J8fL$X4R:BN03, 程序体代码：51Testing软件测试网X5}N8|~c
ie.file_field(:name, "xlsfile").set("c:\\samenameobject.html")51Testing软件测试网L:D Vob/o w-v
#上传你所指定的文件51Testing软件测试网]^Z,UL ia

G C*N Laq/u2`:kN0或51Testing软件测试网'g-[;x~F.lK`
ie.span(:text, "导出Excel表").click_no_wait
@c
xI}0save_file("C:\\abc.xls")51Testing软件测试网+Vc"z#N$gK
#下载到你所指定的路径51Testing软件测试网QV$@PH;u\B!T3S C

1~a+J~(x,}0 

F+QnN Wmnb2y6l0针对弹出框3, 需要用户介入查询并操作:
$}$[G.f_ PB6`C0举例二， 中供crm中类目与客户选择的弹出框，与第一种实现方式不同在于，51Testing软件测试网'iuH@2f |.j*k]lU z
用到autoit中WinActivate与ControlClick方法，51Testing软件测试网A:t+d M}2R

51Testing软件测试网 O8rn(r5fT3^
require 'rubygems'51Testing软件测试网c)[}:mn'F
require 'watir'   # the watir controller51Testing软件测试网E}{2gK1Sq1d-U
 require 'watir/WindowHelper'51Testing软件测试网#Q8d6^Q3N4C
 
3u,?&AN-wP3_bIA.l0require 'win32ole'51Testing软件测试网-U:bU7lH"Wml)s0x

[x2Oe*rea8w0
$`[B|]:F{P0def check_for_popups
h&TQ#E T'k0 
c0j{+A-q;k _pW0oN0autoit = WIN32OLE.new('AutoItX3.Control')

CN Y#n E6^#bqQ0loop do
a] \]eM \7e!{0      ret = autoit.Winwait("选择 -- 网页对话框", "", 1)
Rtg
y"@#J
jr,I0      puts ret51Testing软件测试网,l-KZy+f
     if (ret==1) then
o)T/^)h-Bg D*g0       autoit.WinActivate("[CLASS:Internet Explorer_TridentDlgFrame]", "")
+f];{!|c
s0      autoit.Send("{TAB}")51Testing软件测试网S:U3i QCz
      autoit.Send("{TAB}")

      #autoit.Send("湖州")
v[H&Y u4^8J0      #autoit.Send("{ASC 2709}")
k5sb-N^{0      #autoit.SendUnicode("a")51Testing软件测试网(}l"Iw5b I z-@ XB:\
      #autoit.ClipPut ("杭")
,zr&}*w|;]0      #autoit.ClipGet51Testing软件测试网p\ |8a;C$f/i;NU
      #autoit.ToolTip "This is a tooltip杭州", 0, 0
dIT4|*`@.FZ*s0      #autoit.Sleep 2000  
_I)~*O \:D8B;n&Q0     
:B3b%E4o#[`0M0      autoit.Send("{TAB}")51Testing软件测试网|~ k:g&F6F"M
      autoit.Send("{TAB}")51Testing软件测试网o2P+w.ugt9Nw'v
      autoit.Send("{Enter}")51Testing软件测试网D"T K5nR+_n

      autoit.WinActivate("[CLASS:Internet Explorer_TridentDlgFrame]", "")
/[S,pW T0      autoit.ControlClick("选择 -- 网页对话框", "", "[CLASS:Internet Explorer_TridentLstBox; INSTANCE:2]", 2)51Testing软件测试网U#S0E;^Uce

RZ1_m.U A B8H/Ye0      autoit.Send("{TAB}")
&ZmcC@\(cR0      autoit.Send("{Enter}")51Testing软件测试网!hULzFv&|

      autoit.Send("{TAB}")
CB4[8_D6Tv0      autoit.Send("{TAB}")51Testing软件测试网`$w Wa'n,S
      autoit.Send("{TAB}")
?qo#q(B0      autoit.Send("{TAB}")
Uf9b_6ej$\!P0      autoit.Send("{Enter}")
'j/{V-SojHi&O0    end51Testing软件测试网#D `\ @Eq
    sleep(3)51Testing软件测试网 s&a/j;GW
  end

end

S A/Y%|bMC*}&\051Testing软件测试网 w7O;b3o }0cMzR
ie=Watir::IE.new
H@!a+[ Y,L)z4IMl B0ie.goto("http://10.2.6.4:5100/bin/member/signin")51Testing软件测试网 @1S B_0HgC
#ie.goto("http://10.2.6.4:5100/")51Testing软件测试网C9U's'io}6wQ

?%R;k h6Q0S3kE d pk0#ie.element_by_xpath("//span[contains(text(), 'Main Road Nijmegen')]").click

ie.text_field(:name, "id").set("mhl1805") 51Testing软件测试网Gd d:M)r-O&Mj
ie.text_field(:name, "password").set("zxcvbnm")51Testing软件测试网(q1A.UO"vUr

r%O
si
Km"N0ie.button(:name, "signin").click51Testing软件测试网~kVO"iL!C

51Testing软件测试网2h'k0p!r8b}*^ MIZ
ie.frame(:name, "left").link(:url, "http://10.2.6.4:5100/v3/help_cust.htm").click

*^^mae1T"W0ie.frame(:name, "left").link(:text, "新签中供客户").click

 # start popup handler51Testing软件测试网 tyy;u)Rcv9V!y

1@!P2S,y:\qo0ie.frame(:name, "right").frame(:name, "rtop").button(:value, "选择客户").click_no_wait51Testing软件测试网X Gm"PX1]&tK
sleep(20)

;U:_&vMm0$popup = Thread.new { check_for_popups }

at_exit { Thread.kill($popup) }51Testing软件测试网0JR"o,h+es(n

针对第三种popup window, 如果需要与用户交互，且需要输入中文时，若用autoit sendkey对待中文支持(但官方文档说支持中文输入, 网上有不少人和我遇到同样问题)，尚没有找到有效方案，有待进一步跟进。51Testing软件测试网}*pL;c|(A%[

iSfg JJ(bX6e2U+j0   除上述弹出框需要特殊处理外，watir中也有一些扩展tag，或第三方控件需要特殊处理的，51Testing软件测试网M ~:_qDpF
   像：
o!E3S!B4_6M ^M05.4. web HTML编辑器51Testing软件测试网?p{n:Lu.WXC
中文站的html编辑器提供: 操作ID或name操作起来较方便直接51Testing软件测试网}$u,f/e$K} Phx K

require 'rubygems'51Testing软件测试网)m%o9w:@B'Hv*G
require 'watir'   # the watir controller51Testing软件测试网/_u`8vm0t
require 'watir/WindowHelper'
-rttG%|HVpqw0require 'win32ole'51Testing软件测试网 `gM p&X"wd
UB
ie=Watir::IE.new51Testing软件测试网:^!e/j.AV,Xx1t?

HdP1q%X!Xtkl Nc0ie=Watir::IE.attach(:title, /阿里助手/)51Testing软件测试网g#q*B!m!o!z2i%A
 51Testing软件测试网/uy Q+q3Y|%U
AP
ie.text_field(:name, "_fmo.a._0.s").set("mhl1805") 
/O I8Hwx${+Q0ie.document.getElementByid("_editor").contentWindow.focus()
{2B"v K*w$pW_gm0ie.send_keys("abcsadfasfd")

51Testing软件测试网k1g*Qwd8^u
但也碰到有些web页面，不提供任何ID，只能用autoIT方法来send tab实现

qD2IIU:\D0require 'rubygems'51Testing软件测试网Lr$]bTa*c
require 'watir'   # the watir controller51Testing软件测试网!I6k}Mo2{7y/_ F
require 'watir/WindowHelper'51Testing软件测试网9p\w Kt4nz"P
require 'win32ole'

F'n(En2f:m]C:y051Testing软件测试网9~3u,L]
b
     

/X d;@9[6w;f
UL|051Testing软件测试网~;c_4vtW*\ m2u
ie=Watir::IE.new51Testing软件测试网7R7{,T(D:kj3Z/KG

#ie=Watir::IE.attach(:title, /Alibaba/)

ie.goto('http://us.my.alibaba.com/product/buyoffer/post_buying_lead.htm')

^*jhAJrz }@#Ri0ie.text_field(:name, "_fmp.bu._0.su").set("mhl1805") 
2^_.rf5pbh0ie.text_field(:name, "_fmp.bu._0.su").set("中国人") 

r y T(D.m,hT_.?Ce0
'F6NC3i@j2S`3P0ie.checkbox(:id, "detailDesc").set51Testing软件测试网v!iXo:]/?zF
ie.checkbox(:id, "detailDesc").focus()
:dP8V%GtiJM0ie.send_keys("\t"*9)51Testing软件测试网OeTnB\ S
ie.send_keys('Hello Worldabcdef')

q*G0J#_q ZGU051Testing软件测试网
uBvK$R:S
5.5. 对象识别其它常用TAG内置方法引用

c~-Z{!p8e+C0如：IE.div , ie.span, ie.cell, ie.table方法，可以实现点击操作，取值操作等.
u,Q2oB@0另外提供QTP类似描述性编程，同类型对象统计：

qd;B&s Q7e0ie.buttons.each { |b| puts b.to_s }51Testing软件测试网A&dMYpHYy'_&r
 puts ie.checkboxes.length  51Testing软件测试网]e4\ Ue#XU,I
 puts ie.links.length 51Testing软件测试网[{8w8ZeI,`
 puts ie.buttons.length等等 51Testing软件测试网%Q
\Mxsh*L+e

对于常用的innertext属性, 在watir中已经封装到方法，可以直接引用。如：51Testing软件测试网x0\yu"n
ruby在对象识别底层，封装了innertext
W)J+CU,X1M-U0实现，调用方法text即可：51Testing软件测试网 ^6W7V,MY\+X"D,L
如：puts ie.div(:id, "intelligentWord").link(:id, index.to_s).text

&`y/p'ydavgD0最后：返回文本与源代码，用下面方法：51Testing软件测试网)E6a$Ps g{!B%?Q-l\^
puts ie.text()51Testing软件测试网s ji_Ao!scWa7N
puts ie.html() 51Testing软件测试网vCL*yIf!A

R3Ab'U,z8P05.6. 识别对象正则表达式支持51Testing软件测试网,x:@&mUO_F
 51Testing软件测试网\DbE-az
当然，ruby提供强大的正则表达式支持，如：属性标识正则51Testing软件测试网z~3bU9[C?
ie=Watir::IE.attach(:title, /Alibaba/)

a'@XY ?-p\bT0Ruby的正则表达式以"//"作为基本框架，表达式内容位于"/"之间。表达式返回一个RegExp的对象。
't)HGQ;f3{&p#WE0表达式的一般规则:

t_r
QS*iS0/a/匹配字符a。51Testing软件测试网[B6ll6H@/q
/\?/匹配特殊字符?。特殊字符包括^, $, ? , ., /, \, [, ], {, }, (, ), +, *.51Testing软件测试网t1[C qZ mO:dg!G
.匹配任意字符，例如/a./匹配ab和ac。
ua:D;VZX||AU0/[ab]c/匹配ac和bc,[]之间代表范围。例如：/[a-z]/ , /[a-zA-Z0-9]/。
8S~1q&g"GH+Z0/[^a-zA-Z0-9]/匹配不在该范围内的字符串。
x@4ESyOV-y0/[\d]/代表任意数字，/[\w]/代表任意字母，数字或者_，/[\s]/代表空白字符，包括空格，TAB和换行。51Testing软件测试网"lQl|k
/[\D]/，/[\W]/，/[\S]/均为上述的否定情况。

关于正则其它用法，请参照《watir技术集锦》51Testing软件测试网n hQI`%to
5.7. 最后攻略

K&gFj:\-u/^[0总之，对于对象识别与操作，要借助于上述文档中的, 灵活运用autoit, xpath与异常对象操作方法。对于watir不支持的windows控件，想到第一个方法，就是采用第三方autoit技术，来模拟键盘或鼠标操作。
ohM,a|0对于操作web对象，watir不支持特殊tag，除了扩展其底层代码外，只能深深研究一下xpath了.51Testing软件测试网H^#J.Uw
最后，再搞不定，就只能到watir group里咨询高人了，呵呵。51Testing软件测试网yg'd#t5yp {TQ

尚没有碰到其它更好方法。。。

-`dL!s9}'e9dQ0---转自http://www.51testing.com/batch.viewlink.php?itemid=8850551Testing软件测试网&TXQO[Z
51Testing软件测试网[$\Afn)uo3N