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

9R?-\EH m05. 异常对象识别(Watir应用解决方案)51Testing软件测试网e)D&FW(A

+huVv!`zk0Watir基于处理，继承于web document的对象提供较好的支持方法，但相对于处理windows对象较弱. 就目前从各网站收集的对象来看, 基本上，对于在IE实例对象打开的web标准对象51Testing软件测试网xX/rnQ!Xbv
能够成功识别与操作，其它的脱离当前IE窗口，打开的所有弹出框都不能正常识别。其中，弹出框对象占有异常对象识别中很大一部分。
1}kM Fv/h&N&j0目前碰到的弹出框, 我把他们分为三大类型：
2A.nb3\hp#m01， Alerts 警告作用，如：sorry, 当前用户没有权限操作51Testing软件测试网7fi0m"l)C
2， Confirm 需要操作按钮, 如：你确认要删除当前记录？
Zed"N[]O@03， Prompt+ select +confirm  需要用户输入，操作查询或点击, 最后确认, 如：Download/upload (浏览+选择文件)51Testing软件测试网r2`7s ]tsk(y

4qm(n d \:]0下面给出，上面几种弹出框watir实现识别与操作的方法，
vfO+hU5x8t05.1. 弹出框基于autoIT + 线程实现方式51Testing软件测试网.r8Q7o},u}

*C4b}3?*g7@m@0此种方法，对于第一、二种弹出框操作较有效，
b+|H&?C0因点击某个link/button等对象，而弹出的窗口(大部分弹出框可应用此种方式来实现。)51Testing软件测试网;A^efK`5d jhX

3aSg*h }#W m.zyz.q01, 定义方法51Testing软件测试网rK2gdH j B D*|@

2gI^.oI N0def check_for_popups
8oDsmN]9J!I0    autoit = WIN32OLE.new('AutoItX3.Control')51Testing软件测试网^(m9O r:A$kG
    #51Testing软件测试网!DW F5d%h$@5}
   
v
oNv c)N{0    # Do forever - assumes popups could occur anywhere/anytime in your application.51Testing软件测试网``)OX8@;t*H
    loop do
6A6W-irh(}~8~P0        # Look for window with given title. Give up after 1 second.51Testing软件测试网_F!N3L)gM`T
       51Testing软件测试网Cl&OZ4E5[1g
        ret = autoit.WinWait('消息 -- 网页对话框', '', 1)51Testing软件测试网3bsp3T%k1{ w
        #ret = WinActivate("Microsoft Internet Explorer", "")51Testing软件测试网(j0FaKwY
#autoit.ControlClick("Microsoft Internet Explorer", "", "[CLASS:Button; INSTANCE:1]", 2)51Testing软件测试网9Zz
V~4Q0~
       
+E!~
x2Mh:v6H0        puts(ret)
3QGx7ixIPcQO0        #
a1S\0d@3L@Qy0        # If window found, send appropriate keystroke (e.g. {enter}, {Y}, {N}).
hO"m$J.q'd9T%U0       51Testing软件测试网Zg$BCkp
        if (ret==1) then autoit.Send("{Enter}") end
x+U.IgBj-q0       
!Z{'g*X&I{0        #
"l.Fma y m0        # Take a rest to avoid chewing up cycles and give another thread a go.51Testing软件测试网
[$M[.cn`Tb I&wZ
        # Then resume the loop.
I {.a!u}%zC0        sleep(3)51Testing软件测试网gANA}Ct-dO0U3t
    end
`kw2mV.C2J0  end

+v_Qwie02， 程序体代码

ie.button(:name, "signin").click_no_wait51Testing软件测试网%i!Y/y3N5FS

]H1Z4rrU0sleep(20)

$popup = Thread.new { check_for_popups }  # start popup handler51Testing软件测试网s5nJ^?dU

at_exit { Thread.kill($popup) }

8[e n%}O%cHD0 

51Testing软件测试网/Z0xda(OI7Q]-F
5.2. Call 另一ruby文件51Testing软件测试网fg;b3szh7nu

对于第二种弹出框，像安全警告点击, 并不通过操作与点击任何对象, 即呈现弹出窗口。51Testing软件测试网K
UP `8sj$V[1]
我尝试用3.1方法来实现，不成功。用下面方法替代：51Testing软件测试网\:V$L}Eq

U(\1JF-U
?01, 在watir/WindowHelper.rb文件中增加方法

   def push_security_alert_yes_cn
fG-Hdl7q*s'C7J0        @autoit.WinWait "安全警报", ""
:~UY$kpJM0        @autoit.Send "{TAB}"51Testing软件测试网6|bM9TP|!U
        @autoit.Send "{TAB}"51Testing软件测试网:M'Y,]d(CR
        @autoit.Send "{SPACE}"
W,@9FP r_4F0      End

Y5D%Q mSG5I1nB02, 定义另一调用文件 tmp.rb
zFd$JyM~5f0require 'watir/WindowHelper'51Testing软件测试网;D~y\c'_
helper = WindowHelper.new51Testing软件测试网rE4OLT(w
helper.push_security_alert_cn_yes

qhW3\bc*q/dq)uJ03, 在打开安全URL之前，启动调用ruby文件51Testing软件测试网7]jC;uj9a

require 'rubygems'
Zgg0rbC
gD0require 'watir'   # the watir controller
2j?;DH-p0require 'win32ole'
7]8C5SW/LOV%}+ng!w0require 'watir/WindowHelper'51Testing软件测试网1R/d*g7a"@ C U Y$P+X

51Testing软件测试网4Ao+[]iKd0d
Thread.new{system('ruby c:\tmp.rb')} #你定义tmp文件存放路径51Testing软件测试网+s6`csT0S*LB
ie = Watir::IE.new51Testing软件测试网,}-i"~E.?Q)?
ie.goto("http://www.alipay.com.cn/")51Testing软件测试网)Oz0JtLBE'OLP [!C
5.3. 修改框架底层

此种方法，针对弹出框3.

举例一， 上传下载文件51Testing软件测试网5P'R5y+O6Dq
1, 修改底层代码input_elements.rb文件,
*F.v$qQ!g]HC0类 FileField中, 方法set.51Testing软件测试网hP9gc NM3WCY
为了支持中文，有一句替换修改为：

6~)FP5~d*LyH0system("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软件测试网2\AA6T IeVU'P
2, 定义方法
1E^8uN
d6B`|0def save_file(filepath)
y*v/^D.y9~(G0    ai = WIN32OLE.new("AutoItX3.Control")51Testing软件测试网#sCt(ey\xu+e
    ai.WinWait("文件下载", "", 5)
(N:i/a)PT,D0    ai.ControlFocus("文件下载", "", "保存(&S)")
us7r0zcMi p.Z w)j0    sleep 151Testing软件测试网+n;C$c8ZK.x,?#M
    ai.ControlClick("文件下载", "", "保存(&S)", "left")51Testing软件测试网/U vUF3m+v
    ai.WinWait("另存为", "", 5)51Testing软件测试网'y v0g#b*P5u&q8v
    sleep 1
iX;nQ!AT$s(r0    ai.ControlSend("另存为", "", "Edit1",filepath)
k RF{%g5]4{0    ai.ControlClick("另存为", "", "保存(&S)", "left")51Testing软件测试网
mLY\B'n|
    ai.WinWait("下载完毕", "", 5)
"yjs$q&D:O.E0    ai.ControlClick("下载完毕", "", "关闭")51Testing软件测试网9d%~ K9x%obmE_*b%n
  end51Testing软件测试网EF*`:Qtm N&R%G

51Testing软件测试网dmCw q"S
3, 程序体代码：51Testing软件测试网!H3]#Q6`p@z
ie.file_field(:name, "xlsfile").set("c:\\samenameobject.html")51Testing软件测试网cQ}6a7lx$n
#上传你所指定的文件51Testing软件测试网lDe2st

@#U/?2s}0或
/{#C-xX x*k0ie.span(:text, "导出Excel表").click_no_wait
/jZgRe8S{0save_file("C:\\abc.xls")
VhB n/{/ZH0#下载到你所指定的路径51Testing软件测试网kT}0`_"T:t'HG

g;CxXuB&O[0 

Gb~0S,A6m0针对弹出框3, 需要用户介入查询并操作:51Testing软件测试网j[._F~5viz4u
举例二， 中供crm中类目与客户选择的弹出框，与第一种实现方式不同在于，
4rn ]4t*LyV)G0用到autoit中WinActivate与ControlClick方法，51Testing软件测试网WS%J}X

SASr!@0V0require 'rubygems'51Testing软件测试网EC'V B%s\`.f
require 'watir'   # the watir controller
OX\3[:|9G.nw0 require 'watir/WindowHelper'51Testing软件测试网RQ#D KR*y~ Va5v*o
 
Br],f+Eo1j\0require 'win32ole'51Testing软件测试网:J^:E&E wX ][$Z1aj

51Testing软件测试网9b@&O8^ t1z k
def check_for_popups51Testing软件测试网rN l%r&j\
MW
 51Testing软件测试网3t&X(t'['BP^Ay
autoit = WIN32OLE.new('AutoItX3.Control')

loop do
$N
MaG w!O0      ret = autoit.Winwait("选择 -- 网页对话框", "", 1)51Testing软件测试网KK0B|E.r+\
      puts ret
d'F7f6uKS0     if (ret==1) then
%c8r-wI+n-o0       autoit.WinActivate("[CLASS:Internet Explorer_TridentDlgFrame]", "")
kN.A*W#c{$q`0      autoit.Send("{TAB}")51Testing软件测试网?6`,r5Z!YdO(Q-M
      autoit.Send("{TAB}")51Testing软件测试网V(WiE'p?

      #autoit.Send("湖州")51Testing软件测试网h P;F-d9YFJt
      #autoit.Send("{ASC 2709}")
|hPtKF0      #autoit.SendUnicode("a")
0V(_&IjY0      #autoit.ClipPut ("杭")
-W]sm/j0      #autoit.ClipGet51Testing软件测试网,h:lj1B3~)i3K
|
      #autoit.ToolTip "This is a tooltip杭州", 0, 051Testing软件测试网K(V!~3k-Db
      #autoit.Sleep 2000  
7f8hpR'Nv4F0     
4p'uB9ThTx0      autoit.Send("{TAB}")51Testing软件测试网px~0QLP3{
      autoit.Send("{TAB}")
4^%@f1X']3N.k6Wu0      autoit.Send("{Enter}")

      autoit.WinActivate("[CLASS:Internet Explorer_TridentDlgFrame]", "")

f;S\%q&Vo0      autoit.ControlClick("选择 -- 网页对话框", "", "[CLASS:Internet Explorer_TridentLstBox; INSTANCE:2]", 2)

+fGF8P']7g$s!f^0      autoit.Send("{TAB}")
0Qo?U
a%h0      autoit.Send("{Enter}")51Testing软件测试网i)OPpLa

I$x.w+M WL0      autoit.Send("{TAB}")
*nJ&v]uJ/zx}'y0      autoit.Send("{TAB}")51Testing软件测试网[.^-R"|.T-H
      autoit.Send("{TAB}")51Testing软件测试网H%pE$fjy+{
      autoit.Send("{TAB}")
|_1Po2Wb0      autoit.Send("{Enter}")51Testing软件测试网6E-Re,yZj3HR
    end
?)h?-q q0    sleep(3)
LS;q9Y/l0i)x0  end

^ G X6Bhw0end

%{~9fn/Z3L^0ie=Watir::IE.new51Testing软件测试网H0q_:vh Q;B
ie.goto("http://10.2.6.4:5100/bin/member/signin")51Testing软件测试网df_xI4|.U:R'sHf
#ie.goto("http://10.2.6.4:5100/")51Testing软件测试网^p/U8EU

e-s+?R`z0#ie.element_by_xpath("//span[contains(text(), 'Main Road Nijmegen')]").click

ie.text_field(:name, "id").set("mhl1805") 51Testing软件测试网y6Y%}(bI^Q1V"r
ie.text_field(:name, "password").set("zxcvbnm")51Testing软件测试网%i LyW}U!r

~7kz6A,JY0ie.button(:name, "signin").click

_0[rtx0ie.frame(:name, "left").link(:url, "http://10.2.6.4:5100/v3/help_cust.htm").click

i)bc0EI|0ie.frame(:name, "left").link(:text, "新签中供客户").click

 # start popup handler

b f,n#@/gst0ie.frame(:name, "right").frame(:name, "rtop").button(:value, "选择客户").click_no_wait
'~$RX CeWr0sleep(20)

V]iK!Zd0$popup = Thread.new { check_for_popups }

at_exit { Thread.kill($popup) }51Testing软件测试网1g2a3vZT8gT&C)l

Is&^f9h7`nyd0针对第三种popup window, 如果需要与用户交互，且需要输入中文时，若用autoit sendkey对待中文支持(但官方文档说支持中文输入, 网上有不少人和我遇到同样问题)，尚没有找到有效方案，有待进一步跟进。

J\LG9Ac}QWj0   除上述弹出框需要特殊处理外，watir中也有一些扩展tag，或第三方控件需要特殊处理的，
G)\5q.S7X l;o;Q3x0   像：
tzF6H1`q8b1l3G05.4. web HTML编辑器51Testing软件测试网c([LC+c,?
中文站的html编辑器提供: 操作ID或name操作起来较方便直接

require 'rubygems'51Testing软件测试网d Ny|SbB
require 'watir'   # the watir controller
7U*Efg2cY&R
?&r*i0require 'watir/WindowHelper'
{:Jhi i\
G0require 'win32ole'
y'z&{)b6C_9X$[-mo0ie=Watir::IE.new

ie=Watir::IE.attach(:title, /阿里助手/)51Testing软件测试网Q#T]5f vktu
 51Testing软件测试网vOk[mH6r ~@
ie.text_field(:name, "_fmo.a._0.s").set("mhl1805") 
I Q`{8Yy7l+j}F+K0ie.document.getElementByid("_editor").contentWindow.focus()
aI'^w)[WQ'gfe;V0ie.send_keys("abcsadfasfd")

/h9PPVY4kB0但也碰到有些web页面，不提供任何ID，只能用autoIT方法来send tab实现51Testing软件测试网+~X/X ^0S@'g.q

i-@C
Nlu*cFRNK0
*]-x \&XY0require 'rubygems'
f2Ik/T]qy0require 'watir'   # the watir controller
P6PDasvo:[0require 'watir/WindowHelper'51Testing软件测试网 Y
n2o ~^:o(a
require 'win32ole'51Testing软件测试网Ei7X SO-OUt*h

51Testing软件测试网9_j)w(a)Ey
     

S2Gl7{ZD
ya*[0ie=Watir::IE.new51Testing软件测试网 Fa@kt*S

.]1U,J V.V5~Da7~0#ie=Watir::IE.attach(:title, /Alibaba/)51Testing软件测试网HEi})Kw3v"{F

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

F0G'gC"D'D!qT0ie.text_field(:name, "_fmp.bu._0.su").set("mhl1805") 51Testing软件测试网6b:~`/}6JG
ie.text_field(:name, "_fmp.bu._0.su").set("中国人") 51Testing软件测试网*e6_i ]3P7?*O

w}/xy
VDLQ
z0
H$x;P9}/p$v0ie.checkbox(:id, "detailDesc").set
m*GA#pCz*A~0ie.checkbox(:id, "detailDesc").focus()51Testing软件测试网{SG d0\
ie.send_keys("\t"*9)
|i0l
};I"QvZ)rR0ie.send_keys('Hello Worldabcdef')51Testing软件测试网a3c W*NkE

51Testing软件测试网PVVWr
5.5. 对象识别其它常用TAG内置方法引用

如：IE.div , ie.span, ie.cell, ie.table方法，可以实现点击操作，取值操作等.
tjCeZ#R0另外提供QTP类似描述性编程，同类型对象统计：

ie.buttons.each { |b| puts b.to_s }51Testing软件测试网c#yO`6]K
 puts ie.checkboxes.length  
4ihxRR\,u \&l$_0 puts ie.links.length 
Oyi6YYt0 puts ie.buttons.length等等 51Testing软件测试网4X%V[%`7q
\A

r3}UiN9t0对于常用的innertext属性, 在watir中已经封装到方法，可以直接引用。如：51Testing软件测试网-s!rfg bm[ }
ruby在对象识别底层，封装了innertext51Testing软件测试网1h5@P_S[^
实现，调用方法text即可：51Testing软件测试网i*~]Y0owvt
如：puts ie.div(:id, "intelligentWord").link(:id, index.to_s).text

最后：返回文本与源代码，用下面方法：
%SP6v a
Q9Tt0puts ie.text()51Testing软件测试网eU'L R^l`
puts ie.html() 

5.6. 识别对象正则表达式支持
u[x `&l
k0 51Testing软件测试网Cga-M1W\3v]
当然，ruby提供强大的正则表达式支持，如：属性标识正则51Testing软件测试网ztC"x9i
ie=Watir::IE.attach(:title, /Alibaba/)

+P\5a0xBFUi0Ruby的正则表达式以"//"作为基本框架，表达式内容位于"/"之间。表达式返回一个RegExp的对象。51Testing软件测试网)b5G+rS.@7shG P
表达式的一般规则:51Testing软件测试网 R[3r/|u2m
/a/匹配字符a。51Testing软件测试网g:Zc0ov4az p$H*{
/\?/匹配特殊字符?。特殊字符包括^, $, ? , ., /, \, [, ], {, }, (, ), +, *.
9a]UPB)J0.匹配任意字符，例如/a./匹配ab和ac。
1Q1y0D2y4a!`0/[ab]c/匹配ac和bc,[]之间代表范围。例如：/[a-z]/ , /[a-zA-Z0-9]/。
g O{4~m;t K y1[0/[^a-zA-Z0-9]/匹配不在该范围内的字符串。
B(\%{#^JD.l0/[\d]/代表任意数字，/[\w]/代表任意字母，数字或者_，/[\s]/代表空白字符，包括空格，TAB和换行。

H,d3J:S8X1]0/[\D]/，/[\W]/，/[\S]/均为上述的否定情况。

关于正则其它用法，请参照《watir技术集锦》
2c!EKn'_\-M3Su05.7. 最后攻略

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

尚没有碰到其它更好方法。。。51Testing软件测试网4^}[h!p B.P
j9[-t

Wv5}+iTH0---转自http://www.51testing.com/batch.viewlink.php?itemid=88505
&WD6dU*q0