Chinaunix首页 | 论坛 | 博客
  • 博客访问: 743798
  • 博文数量: 769
  • 博客积分: 6000
  • 博客等级: 准将
  • 技术积分: 4985
  • 用 户 组: 普通用户
  • 注册时间: 2008-10-15 16:37
文章分类

全部博文(769)

文章存档

2011年(1)

2008年(768)

我的朋友

分类:

2008-10-15 16:44:17

  做工作马上就一年了,用QTP也有几个月了,在这里感谢一下小师父教了我这么多的知识,也把我的总结跟大家分享一下,有不对的地方希望大家指出我好修改,谢谢了!!

        1、拆分语句split
        例:取得当前日期后拆分

         riqi=date()
            my=split(riqi,"-")
            riqi=my(1)&"月"&my(2)&"日"
            datatable("riqi",DtGlobalSheet)=riqi
            本地表:DataTable("a", dtLocalSheet)
        riqi= year(date)& "-" & Right("0"& month(date),2) & "-"&Right("0"&   Day(Date),2)

        2、取得表格中某行某列的值GetCellData
        例:飞机票取票价
         shuA=Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury").WebTable("New York to Zurich").GetCellData(3,3)

        3、取距某年某月某日的天数datediff
        例:计算距2008-08-08奥运天数
         datediff("d",now,"2008-8-8")

        4、描述性编程text:=
        例:取得某页面上某文字的链接
         Browser("").Page("").Link("text:=娱乐").Click
             或
             neirong="娱乐"
             Browser("").Page("").Link("text:="&neirong).Click

        5、网页中HTML编辑器的录制
        功能:验证126邮箱的发信功能正确
        操作步骤:
              a.录制脚本,动作包括整个发信的过程。
              b.修改脚本,在输入信件主题代码后加wait 10语句
               c.回放脚本,观察在邮件正文中输入的内容,回放时QTP是否写入
              d.重新修改脚本,保证回放时QTP在邮件正文中写入内容

        英文解决方案:
            Browser("网易126免费邮--你的专业电子邮局").Page("网易电子邮箱 -
            wait 1
             Setting.WebPackage( "ReplayType")=2      '配置使用浏览器事件或鼠标运行鼠标操作的'方式.1 - 使用浏览器事件运行鼠标操作,2 - 使用鼠标运行鼠标操作。

              Set ōbj=createobject("wscrīpt.shell")
             obj.sendkeys "{TAB}"
             wait 2
             obj.sendkeys "abc1111"
             wait 1
             Setting.WebPackage( "ReplayType")=1


        中文解决方案
 

        strCopy = "软件."
        Set ōbjIE = CreateObject("InternetExplorer.Application")
        objIE.Navigate("about:blank")
        objIE.document.parentwindow.clipboardData.SetData "text", strCopy
        objIE.Quit

        wait 1
        Setting.WebPackage( "ReplayType")=2
        Set ōbj=createobject("wscrīpt.shell")
        obj.sendkeys "{TAB}"
        wait 2
        obj.sendkeys "^v"
        wait 1
        Setting.WebPackage( "ReplayType")=1

        6.使用Multi Test Manager添加文件时可以直接往里拖的哦。

        7.函数:新建记事本,改名为public.vbs例:

            function ZHIRSS
        ZHIRSS="RSS行业资讯分类维护"
        end function
          使用语句executefile "d:\zhaopin\case\denglu.vbs"或设置QTP test/settings/resources/+函数目录

        8.设置动作循环:
 右击/actiong call properties/run on all rows

        9.设置动作允许被调用:

 右击/action properties/general/reusable action打勾

[1]     

【责编:michael】

--------------------next---------------------

阅读(360) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~