51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

查看: 2886|回复: 0
打印 上一主题 下一主题

[原创] watir:web操作实例

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2011-6-16 10:01:25 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
def Goto_web(ie,testSite) #打开指定URL的页面
  begin
    ie.goto(testSite)
  rescue StandardError , NameError => boom     #捕获异常
    puts "Goto Web Error: "+ boom
    if $refreshCount < 10
      Goto_web(ie,testSite)
      sleep 1
      $refreshCount += 1 #用于加载失败时刷新页面的计数器
    else  
      $returnStr = "{reply #{$strCmdPort} {return -code 0 {1 Err001}}}}"
      ie.close
    end
  ensure
    if ie.url != ""
      ie.maximize
      ie.bring_to_front
    end
  end
end

def Logon_web(ie,username,password,language = "English")
  $var_language = "NULL"
  if ie.contains_text("Please enter your username and password")  == nil
    return 0
  else
    ie.text_field(:name, "Username").set(username)
    ie.text_field(:name, "Password").set(password)
    $var_language = ie.select_list(:name, "language").getSelectedItems()
    ie.select_list(:name, "language").select(language)
    ie.link(:id, "btnLogin").click
    $refreshCount = 0 #初始化加载失败时的计数器
    sleep 1
  end     
end


login

require 'Config.rb'
#Suc001:WAN配置操作成功
#Err001:缺少必要配置项\没有WAN连接可查询
#Err002:输入参数不合法
def Web_Login(testSite,strCmdArray)  
  ##变量定义部分
  ##打开页面部分
  Goto_web($ie,testSite) #打开指定URL的页面
  username = "root" unless  (username =get_InputPara(strCmdArray,"username")) != nil
  password = "admin" unless  (password =get_InputPara(strCmdArray,"password")) != nil
  Logon_web($ie,username,password) #使用帐号密码登录页面
  #Goto_page($ie,strCmdArray[0]) #根据link,打开指定页面
  sleep 1

  ##实际操作部分

  #查看WAN连接

  $returnStr = "{reply #{$strCmdPort} {return -code 0 {0 Suc001}}}}"
  $ie.close
  return 0
end
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-5-8 10:58 , Processed in 0.080900 second(s), 27 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表