空间管理您的位置: 51Testing软件测试网 » 子木清风 » 日志

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

针对popups类对话框的watir处理方法之五

上一篇 / 下一篇 2009-09-16 15:51:24 / 个人分类：ruby_watir

查看( 620 ) / 评论( 2 ) / 评分( 5 / 0 )

每日随笔

每日随笔:

（1）

（2）

(3)

关于下载的对话框问题：

=begin
员工批量修改窗口识别方法
=end
require 'watir'
require 'win32ole'
require 'watir/WindowHelper'
# 登陆
$ie_site ='http://211.155.225.54:7013/mcrm/back/login.jsp'
$ie1 = Watir::IE.new
$ie1.goto $ie_site
#puts "00"
#输入用户名和密码
#$ie1.buttons.each {|bu| puts bu.to_s}
#$ie1.text_fields.each {|tf| puts tf.to_s}

#puts '0'
$frame1= $ie1.frame(:name,'mainFrame')
$frome1 = $frame1.form(:name,'loginform')
#$frome1.buttons.each {|bu| puts bu.to_s}
#puts "1"
#$frome1.text_fields.each {|tf| puts tf.to_s}
#p '2'
#输入用户名和密码
$frome1.text_field(:name,'admin_name').set"****"
$frome1.text_field(:name,'admin_pwd').set"****"
$frome1.button(:class,'new_submit').click
#点员工管理link
$frame2 =$ie1.frame(:name,'leftFrame')
$frame3 =$ie1.frame(:name,'mainFrame')
#puts '1'
#$frame2.link(:name,'员工管理').click
#$frame2.links.each { |l| puts l.to_s }
$frame2.link(:text,'员工管理').click
#puts 'OK'
#$frame3.text_fields.each { |l| puts l.to_s }
#$frame3.buttons.each { |l| puts l.to_s }
$frame3.text_field(:name,'cmobile').set'13800576777'
$frame3.button(:class,'new_submit').click

$table1 = $frame3.table(:id,'content_main')

=begin
#$table1.links.each {|l| puts l.to_s}
#$table1.cells.each {|c| puts c.to_s}
$table1.cell(:text,'测试部').click
#$table1.text_fields.each {|t| puts t.to_s}
$table1.text_field(:name,'departname').set "测试部1232"
#$table1.buttons.each{|b| puts b.to_s}
$table1.button(:value,'修改').click
=end

=begin
$table1.link(:text,'员工批量修改').click
$ie2=Watir::IE.attach
=end

$x ='e:\员工通讯录.xls'
$table1.link(:text,'导出通讯录').click_no_wait
sleep(6)
autoit = WIN32OLE.new("autoitx3.control")
$a = autoit.WinWait("文件下载","",1)
puts $a
$b = autoit.ControlFocus("文件下载","","Button2")
puts $b
$c = autoit.ControlClick("文件下载","保存(&S)","Button2")
puts $c
$d = autoit.WinWait("另存为","",1)
puts $d
$e = autoit.ControlFocus("另存为","","Edit1")
puts $e
$f = autoit.ControlSetText("另存为", "","Edit1",$x)
puts $f
$g = autoit.ControlClick("另存为","保存(&S)","Button2")
puts $g
$h = autoit.WinWait("下载完毕","",1)
puts $h
$i = autoit.ControlFocus("下载完毕","","Button4")
puts $i
$j = autoit.ControlClick("下载完毕","关闭","Button4")
puts $j

#puts 结果全为1 说明结果通过

收藏举报

TAG: