关于QTP的经验小结

　　做工作马上就一年了,用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---------------------