发布新日志

  • QTP在回放的时候最小化

    2007-07-04 15:18:50

    Dim objQTPWin
    Set ōbjQTPWin = GetObject("" , "QuickTest.Application")
    objQTPWin.WindowState = "Minimized"

    ...

    ...

     
    objQTPWin.WindowState = "Restored"
    Set ōbjQTPWin = Nothing
  • 调整IE浏览器窗口(转自http://www.51testing.com/?4696)

    2007-06-18 17:15:49

    界面交互测试有时需要在一些测试脚本运行过程中调整IE浏览器窗口的尺寸和位置。QTP仅仅提供了浏览器窗口的最大化方法,即Browser("Web Testing\").FullScreen,但是并没有提供其他的改变窗口尺寸和位置的方法。

    依靠QTP本身提供的有限方法是不够的,可以利用VBscrīpt语言和QTP的描述性编程实现对IE浏览器窗口的尺寸和位置的控制。代码如下:

    'Open an IE browser with the method CreateObject()
    Dim objIE, hwndIE
    Set ōbjIE = CreateObject("internetexplorer.application")
    objIE.Visible = true
    objIE.Navigate URL 'The parameter URL is the destination address for the IE browser

    'Wait a while till the page is fully loaded
    Wait(10)

    'Move and resize the browser
    hwndIE = objIE.HWND
    'Operate the IE browser as a window object with descrīptive programming
    'The window object can be uniquely identified by the parameter hwndIE, which is the window's handle of the browser
    Window ("hwnd:=" & hwndIE).Activate
    Window ("hwnd:=" & hwndIE).Move intPosX, intPosY 'intPosX and intPosY represent the new location for the IE browser
    Window ("hwnd:=" & hwndIE).Resize intSizeX, intSizeY 'intSizeX and intSizeY represent the new size for

    'Release the object after the adjustment
    Set ōbjIE = nothing

    除了IE浏览器之外,这样的代码同样适用于其他被测的应用程序,如Word、Excel等。只要将创建对象处的参数加以调整就可以了。

  • 正则表达式用法

    2007-06-18 15:10:29

    正则表达式的概念

      什么是UBB代码?什么是正则表达式?

      UBB代码是HTML的一个变种。一般情况下,UBB论坛不允许你使用HTML代码,而只能用UBB代码替代HTML代码。
      UBB代码是一套由流行的UBB标签组成了固定代码,代码有统一的格式。用户只要遵循代码规则就可以实现用户想要的功能。如:
      想要显示粗体的how are you 字样,就应该输入 how are you而不是输入<b>how are you</b>

      你也许会问:ASP是怎样把 how are you转换为<b>how are you</b>的呢?
      回答这个问题就是:用正则表达式。

    三、正则表达式的用途

       有时我们在制作网站表单数据处理的时候,都需要进行数据验证和字符串替代,特别是UBB论坛要进行大量的数据安全性和字符串替代

    邮于一般的论坛不支持HTML语法这就使得用户不能修改字体,不能贴图等等一些功能。这样使得论坛失去了吸引用户的一个强有力的途径。可能说一个强大的论坛在吸引用户数量上还是很重要的。这样就出现了一个UBB解决方案,即在论坛不支持HTML语法的情况下用户仍然可以定制自已贴子的样式,贴图,增加链接,转贴网页等等诸多的功能,可能达到支持HTML语法同样的效果,而且这样可以使得论坛相对于HTML的论坛安全性大大提高。用户基本不能对论坛过行任何恶意攻击。

    四、正则表达式的语法规则和标记

      
      字符描述:

      ^符号匹配字符串的开头。例如:
        ^abc 与“abc xyz”匹配,而不与“xyz abc”匹配

      $符号匹配字符串的结尾。例如:
        abc$ 与“xyz abc”匹配,而不与“abc xyz”匹配。
        注意:如果同时使用^符号和$符号,将进行精确匹配。例如:
           ^abc$ 只与“abc”匹配   

      *符号匹配0个或多个前面的字符。例如:
        ab* 可以匹配“ab”、“abb”、“abbb”等

      +符号匹配至少一个前面的字符。例如:
        ab+ 可以匹配“abb”、“abbb”等,但不匹配“ab”。

      ?符号匹配0个或1个前面的字符。例如:
        ab?c? 可以且只能匹配“abc”、“abbc”、“abcc”和“abbcc”

      .符号匹配除换行符以外的任何字符。例如:
        (.)+ 匹配除换行符以外的所有字符串

      x|y匹配“x”或“y”。例如:
        abc|xyz 可匹配 “abc”或 “xyz”,而“ab(c|x)yz”匹配 “abcyz”和“abxyz”

      {n}匹配恰好n次(n为非负整数)前面的字符。例如:
        a{2} 可以匹配“aa“,但不匹配“a”

      {n,}匹配至少n次(n为非负整数)前面的字符。例如:
        a{3,} 匹配“aaa”、“aaaa”等,但不匹配“a”和“aa”。
        注意:a{1,}等价于a+
           a{0,}等价于a*

      {m,n}匹配至少m个,至多n个前面的字符。例如:
        a{1,3} 只匹配“a”、“aa”和“aaa”。
        注意:a{0,1}等价于a?

      [xyz]表示一个字符集,匹配括号中字符的其中之一。例如:
        [abc] 匹配“a”、“b”和“c”

      [^xyz]表示一个否定的字符集。匹配不在此括号中的任何字符。例如:
        [^abc] 可以匹配除“a”、“b”和“c”之外的任何字符

      [a-z]表示某个范围内的字符,匹配指定区间内的任何字符。例如:
        [a-z] 匹配从“a”到“z”之间的任何一个小写字母字符

      [^m-n]表示某个范围之外的字符,匹配不在指定范围内的字符。例如:
        [m-n] 匹配除从“m”到“n”之间的任何字符

      \符号是转义操作符。例如:
        \n 换行符
        \f 分页符
        \r 回车
        \t 制表符
        \v 垂直制表符

        \\ 匹配“\”
        \/ 匹配“/”

        \s 任何白字符,包括空格、制表符、分页符等。等价于“[ \f\n\r\t\v]”
        \S 任何非空白的字符。等价于“^\f\n\r\t\v]”
        \w 任何单词字符,包括字母和下划线。等价于“[A-Za-z0-9_]”
        \W 任何非单词字符。等价于“[^A-Za-z0-9_]”

        \b匹配单词的结尾。例如:
          ve\b 匹配单词“love”等,但不匹配“very”、“even”等

        \B匹配单词的开头。例如:
          ve\B 匹配单词“very”等,但不匹配“love”等

        \d匹配一个数字字符,等价于[0-9]。例如:
          abc\dxyz 匹配“abc2xyz”、“abc4xyz”等,但不匹配“abcaxyz”、“abc-xyz”等

        \D匹配一个非数字字符,等价于[^0-9]。例如:
          abc\Dxyz 匹配“abcaxyz”、“abc-xyz”等,但不匹配“abc2xyz”、“abc4xyz”等

        \NUM匹配NUM个(其中NUM为一个正整数),引用回到记住的匹配。例如:
          (.)\1 匹配两个连续相同的字符。

        \oNUM匹配n(其中n为一个小于256的八进制换码值)。例如:
          \o011 匹配制表符

        \xNUM匹配NUM(其中NUM为一个小于256的十六进制换码值)。例如:
          \x41 匹配字符“A”


    五、实例分析

    1)在字符串中精确查找链接地址

    ((http|https|ftp)\/\/|\\\\)((\w)+[.]){1,}(net|com|cn|org|cc|tv|[0-9]{1,3})(((\/[\~]*|\\[\~]*)
    (\w)+)|[.](\w)+)*(((([?](\w)+){1}[=]*))*((\w)+){1}([\&](\w)+[\=](\w)+)*)*)

    我们知道,链接地址一般以http或者https或者ftp等形式出现。初步总结一下就是,链接地址必须符合如下条件:

    条件1
     以http://或者https://或者ftp://等开头(当然还有其它形式,这里只列出主要的)

    条件2
     http://后面必须跟一个单词字符,紧接着单词字符后面的是"."(这样的组合必须出现一次或多次)。紧跟着“.”后面的是域名后缀(如net或者com或者cn等,如果是以IP地址的形式出现就可以是数字)

    条件3
     出现完整的链接地址后,还可以出现下一级或者更多级的目录(还要注意个人主页的地址有可能出现"~"符号)

    条件4
     链接地址末尾可以带参数。如典型的页数?PageNo=2&action=display等

    现在我们用下面的代码来逐个匹配上面的条件——

    1、((http|https|ftp)\/\/|\\\\) 满足条件1
    表示http:// http:\\ https:// https:\\ ftp:// ftp:\\都匹配(在这里考虑了某些用户可能把"//"输成“\\”的易发性错误)
    注意:"|"表示“或者”,"\"是转义字符。“\/\/”表示"//",“\\\\”表示"\\"

    2、((\w)+[.]){1,}(net|com|cn|org|cc|tv|[0-9]{1,3}) 满足条件2
    “((\w)+[.]){1,}”表示一个单词字符加一个点号可以出现1次或者多次(这里考虑了某些用户喜欢省略www而将http://www.w3c.com写成http://w3c.com
    “(net|com|cn|org|cc|tv|[0-9]{1,3})”表示必须要以net或者com或者cn或者org或者cc或者tv或者三位以下的数字结束
    [0-9]{1,3}表示三位以下的数字,因为ip地址的任何段不能超过255

    3、(((\/[\~]*|\\[\~]*)(\w)+)|[.](\w)+)* 满足条件3
    “(\/[\~]*|\\[\~]*)”表示可以出现"/~"或者是"\~",(其中“[\~]*”表示 ~ 可以出现也可以不出现),因为不是每个链接地址都有下一级目录
    “(\w)+)|[.](\w)+)”表示必须出现一个单词字符(即目录或者是一个带有扩展名的文件)
    注意:最后还有一个“*”表示上面括号内的可以出现也可以不出现,否则就只能匹配有下一级目录的链接地址了。

    4、(((([?](\w)+){1}[=]*))*((\w)+){1}([\&](\w)+[\=](\w)+)*)*)满足条件4
    “((([?](\w)+){1}[=]*))*((\w)+){1}”表示形如"?PageNo=2"的字符串可以出现也可以不出现,如果出现则只能出现一次(因为不可能有两个“?”号出现)。

    “([\&](\w)+[\=](\w)+)*)”表示形如“&action=display”的字符串可以出现也可以不出现(因为并不是每个网页都带有两个以上的参数。

    整个“((([?](\w)+){1}[=]*))*((\w)+){1}([\&](\w)+[\=](\w)+)*)*”表示形如“?PageNo=2&action=display”的字符串可以出现也可以不出现(即链接地址可以有参数也可以没有参数)


    把上面的组合起来,我们就可以匹配一个比较全面的链接地址了。比用简单的“(http:\/\/\S+)”来匹配一个链接地址要好,读者可以自行行测试比较。当然,这段代码还有很多不足之处,希望大家能够继续改进。

    2)替代典型的UBB标签:
    我们的目的就是要把成对的替换成<b></b>下面来看我们实现它的模板
      (\[b\])(.+)(\[\/b\])
    这里用了"(.+)"来配匹到之间的整个字符串,在替代的时候我们要写成这样
      str=checkexp(re,str,"<b>$2</b>"
    (注意:checkexp是我自定义的函数,将在后面给出。这个函数将把按照我们提供的模板进行替代。)

    也许你会问这里出现一个"$2"是什么东东,呵注意了这个$2可是很重要的,它代表了"(.+)"所配匹的整个字符串。
    为什么是$2而不是$1、$3呢?因为$1代表(\[b\])所匹配的""字符串,$3代表(\[\/b\])所匹配的""字符串,显然这里我们需要的是$2而不是$1$3。
  • 数据驱动(转自http://www.51testing.com/?action_viewnews_itemid_13588.html)

    2007-06-15 17:03:10

    前言:

       最近看了不少朋友写的blog文章后,就越显自己的文章比较稚嫩.但我觉得这也是一种学习的方式,现在抱着一种共同学习的态度来探讨一下数据驱动在QTP中运用.很希望看我文章朋友能不吝啬的发表一下自己对这个方面的看法,那真是万分感谢啊.

       所谓数据驱动就是用一个数据文件把测试脚本驱动起来,来达到更接近用户化更智能的测试.其目的是把测试人员从维护复杂的脚本程序中解放出来,只需维护好数据文件即可,减少了很多修改脚本的麻烦.下面讲一下通过四种途径来达到数据驱动.

    1.datatable

            QTP本身程序就给我们提供了这么一个数据表,我们可以把测试数据或测试用例填入这个数据表中.

    如:设计用例

       username  passwd

    case1  mercury mercury

    case2 xxxxxxx xxxxxx

    录制脚本

    For i=1 to Datatable.GetRowCount
    Dialog("Login").WinEdit("Agent Name:").Set DataTable("username", dtGlobalSheet)
    Dialog("Login").WinEdit("Password:").Set DataTable("passwd", dtGlobalSheet)
    Dialog("Login").WinButton("OK").Click
    datatable.GlobalSheet.SetNextRow
    Next

            本例是验证一个登录系统,通过DataTable不同的用例设计,驱动起这段脚本,达到测试的效果.当然上面的例子中还少一个很重要的步骤,那就是结果比较.如果不能进行结果比较的自动化测试不能够称为自动化测试.
            当然我们这里主要讲的是数据驱动,所以不在对上面的例子进行补充.

    2.文本文件

            我们可以把文本文件当成数据文件,通过对文本文件的读写操作,来实现数据驱动.

    例:文本文件内的内容

      mercury,mercuy

    读文件的代码

    Function writeorderno(orderno)
    Dim fso, myfile,username,passwd
    Set fso=CreateObject("scrīpting.FileSystemObject")
    Set myfile=fso.openTextFile("C:\testing.txt",1,false)
    tmp=split(myfile.readline,",")
    username=tmp(0)
    passwd=tmp(1)
    myfile.close
    End Function

    写文本文件的代码

    Function writeorderno(orderno)
    Dim fso, myfile
    Set fso=CreateObject("scrīpting.FileSystemObject")
    Set myfile=fso.openTextFile("C:\result1.txt",8,false)
    myfile.writeline orderno
    myfile.close
    End Function

    3EXCEL文件

            我们可以把EXCEL文件当成数据文件,通过对EXCEL文件的读写操作,来实现数据驱动.

            可以把EXCEL文件当作对象的方式来完成写的操作

    Dim Excel,ExcelSheet
    Set Excel=CreateObject("Excel.Application")
    Set ExcelSheet=CreateObject("Excel.Sheet")
    ExcelSheet.Application.visible=true
    ExcelSheet.ActiveSheet.Cells(1,1).value=1
    ExcelSheet.ActiveSheet.Cells(1,2).value=2
    ExcelSheet.ActiveSheet.Cells(1,3).value=3
    Excel.Save "C:\test.xls"
    Set ExcelSheet=Nothing

            用ADO的方式连接EXCEL文件来做读的操作


    Dim conn,input,filename
    filename="D:\公基本情况(tb_gsgk)-标准格式.xls" '
    Set conn= createobject("ADODB.Connection")
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source="&filename&";Extended Properties='Excel 8.0;hdr=yes'"
    Set input= createobject("ADODB.Recordset")
    input.Open "select * from [公基本情况-标准格式$] " ,conn,2,2
    input.close
    Set input=nothing

    4.数据库

            可以利用设计数据表,把测试数据和测试用例放在数据表里,用ADO或者其他任何可以访问连接数据库的方式连接数据库,来实现数据驱动

       Dim res,cmd,sql
    Set Res=createobject("adodb.recordset")
    Set Cmd=createobject("adodb.command")
    Cmd.activeconnection="Provider=SQLOLEDB.1;Password=111111;Persist Security Info=True;User ID=sa;Initial Catalog=xhq;Data Source=192.168.191.142"  '这句话是连接数据库的数据源,要做修改
    Cmd.CommandType = 1
    sql="selec t * from 表 where name=username"
    Cmd.CommandText = sql
    Set res = Cmd.Execute()
    Set res = nothing
    Set cmd.ActiveConnection = nothing
    Set Cmd= nothing

    以上四种方法都可以帮助我们实现数据驱动,应该说数据驱动在自动化测试中运用的比较的广泛,才有必要拿出来探讨一下.

  • 内置环境变量,转自jimmy2006.hi的个人空间

    2007-06-13 16:45:05

    a=environment.value("ProductDir")
    msgbox "ProductDir is:"&a

    ActionIteration       当前运行的操作循环
    ControllerHostName    Controller计算机的名称。只有在从LoadRunner Controller中作为GUI                           Vusery运行时该变量才相关
    GroupName             运行场景中组的名称.只有在从LoadRunner Controller中作为GUI                               Vusery运行时该变量才相关
    LocalHostName         本地主机名
    OS                    操作系统
    OSVersion             操作系统版本
    ProductDir            安装该产品的文件夹路径
    ProductName           产品名
    ProductVer            产品版本
    ResultDir             当前测试结果所在文件夹路径
    SystemTempDir         系统临时路径
    Scenariold            场景的标识编号.只有在从LoadRunner Controller中作为GUI                                   Vusery运行时该变量才相关
    TestIteration         当前运行的测试循环
    TestDir               测试所在文件夹的路径
    TestName              测试的名称
    UpdatingActiveScreen  指明在更新运行过程中是否更新Active Screen中的图象和值
    UpdatingCheckpoints   指明在更新运行过程中是否更新检查点。
    UpdatingTODescrīptions指明在更新运行过程中是否更新用于标识对象的属性集。
    UserName              Windows登陆用户
    VuserId               负载下的Vuser标识。只有在从LoadRunner Controller中作为GUI                               Vusery运行时该变量才相关
Open Toolbar