QTP - 脚本相关收集

1)生产随机数列

    第一种方法
    randomize'更新反回的数据
    funcation rand(k,n)
    n="int((k-1)*rnd+1) rand=n
    end funcation
    
    第二种方法
    n="randomnumber.value(1,255)
    

2)wintreeview一些操作

    选择一个条目:wintreeview.select(item)'根是0
    根的名称：wintreeview.getitem(0)

3)QTP中用代码连接数据库

    Set Conn = CreateObject("ADODB.Connection" )
    str="DRIVER=Oracle in OraHome92;SERVER=192.168.0.1;DBQ=testdb;user id=test; password=test"
    Conn.open str
    Set Rs = CreateObject ("ADODB.Recordset" )
    sql = "select * from user_table t where table_name = 'XXX' "
    Rs.open sql,conn',1,3

4)QTP如何测试鼠标右键菜单

    以QTP附带的订票网站sample为例，edit控件username鼠标右键，点击paste（第4个菜单项）

    cur_replay_type = Setting.WebPackage("ReplayType")
    'Run mouse operations using the mouse, if 1 using browser events
    Setting.WebPackage("ReplayType") = 2    
    Browser("Browser").Page("Welcome: Mercury Tours").WebEdit("userName").Click micRightBtn
    Setting.WebPackage("ReplayType") = cur_replay_type
    
    index=4
    Set WshShell = CreateObject("Wscrīpt.Shell")
    For i = 1 To index
        WshShell.sendKeys "{DOWN}"
    Next
    WshShell.sendKeys "{ENTER}"
    Set WshShell = nothing

5)QTP测试页面字体颜色的办法

    set ōbj = Browser().Page().WebElement().Object
    ' Get the  object
    set iStyle= obj.currentstyle
    ' Get the attribute
    sColor = iStyle.color

6)从QC自动启动qtp如何自动加载插件

    '此函数用于加载指定Test所有的插件，若要运行Test可自己加个qtApp.Test.Run
    Function Load_Addins(testPath)
            Dim qtApp 'As QuickTest.Application
            Dim blnNeedChangeAddins
            Dim arrTestAddins
            Set qtApp = CreateObject("QuickTest.Application")
            arrTestAddins = qtApp.GetAssociatedAddinsForTest(testPath)
            blnNeedChangeAddins = False
            For Each testAddin In arrTestAddins
                    If qtApp.Addins(testAddin).Status <> "Active" Then
                        blnNeedChangeAddins = True
                        Exit For
                    End If
            Next
      If qtApp.Launched And blnNeedChangeAddins Then
              qtApp.Quit
      End If
      If blnNeedChangeAddins Then
          Dim blnActivateOK
          blnActivateOK = qtApp.SetActiveAddins(arrTestAddins, errorDescr&#299;ption)
          If Not blnActivateOK Then
                            Call ErrorLog(errorDescr&#299;ption)  '这里是调用自己的日志函数，可替换为自己的或注释掉
                            Wscr&#299;pt.Quit
          End If
      End If
      If Not qtApp.Launched Then
          qtApp.Launch
      End If
      qtApp.Visible = True
      qtApp.Open testPath
            '可在此加入qtApp.Test.Run来运行Test
            Set qtApp = Nothing
End Function

7)换行符

    vbcr----chr(13)回车符
    vblf----chr(10)换行符
    vbcrlf----chr(13)+chr(10)结合
    type(chr(13)就相当于按了一上键盘上的enter
    

8)防程序中断方法

    On error resume next
    On error goto 0

9)"is+*"类型function

    isarray    '是否是数组
    isconnected    '判断QTP是否连接到TD
    isdate    '是否是合法的日期类型
    isempty    '判断是否初始化
    isNull    '判断是否为空值
    isNumeric    '判断是否是数字型
    isobject    '判断是否一个功能对象
    isready    '判断设备是否准备就绪
    isRootFolder    '是否是根目录

10)WScript.Shell的一些应用

    set WshShell = CreateObject("WScript.Shell")
    WshShell.SendKeys "{ENTER}"     '模拟键盘进行操作
    WshShell.AppActivate "Calculator"    '启动应用程序
    
    ' 利用粘贴板，实现中文输入    
    strCopy = "软件测试."
    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Navigate("about:blank")
    objIE.document.parentwindow.clipboardData.SetData "text", strCopy
    objIE.Quit    
    wait 1
    Setting.WebPackage("ReplayType")=2
    Set obj=createobject("wscr&#299;pt.shell")
    obj.sendkeys "{TAB}"
    wait 2
    obj.sendkeys "^v"
    wait 1
    Setting.WebPackage( "ReplayType")=1

11)childobjects的应用

    childobject可以返回界面上满足条件的对象集合，而且与对象库里是否有这些对象无关，这就可以简化对象库；
    返回的对象集合的count方法可以返回对象个数，这就可以通过下标对单个对象进行操作；在出现index标识对象时
    可以进行运用.如:
    ' Find All WebEdit Objects on a Web Page and Set a Value for a Specific One
    Sub ChildObjects_Example()
        Dim EditToSearch, ValueToSet, NumberOfEdits
        EditToSearch = "credit_card_number"
        ValueToSet = "3558986773230578"
        
        Set oDesc = Description.Create()
            oDesc("micclass").Value = "WebEdit"
            oDesc("name").Value = "credit_card_number"
        
        Set EditCollection = Browser("Book a Flight: Mercury").Page("Book a Flight: Mercury").ChildObjects(oDesc)
        NumberOfEdits = EditCollection.Count
        
        For i = 0 To NumberOfEdits - 1
            If EditCollection(i).GetROProperty("name") = EditToSearch Then
               EditCollection(i).Set ValueToSet
            End If
        Next
    
    End Sub

12)关闭所有IE

SystemUtil.CloseProcessByName("iexplore.exe")

13)启动IE的语句：SystemUtil.Run "iexplore.exe", "http://www.***.com"
   关闭IE或其他程序的语句：
   SystemUtil.CloseProcessByName "app.exe"
   SystemUtil.CloseProcessByWndTitle "Some Title"

14)引用自定义环境变量

    Environment.LoadFromFile "D:\询价\case\环境\huiyuan.xml"
    
15) 环境变量有2种，一种是QTP的内置变量，一种是用户自定义的变量。内置变量是可以直接就可以用，自定义环境变量需要在菜单中选择“文件”——>“ 设置”——>“环境”，在变量类型中选择“用户自定义”,然后进行添加，可以对添加的变量全部导出，导出的文件为.xml格式的文档。既然可以导出，那么必然可以导入.xml文件，你可以在该对话框中的选中“从外部文件导入”，然后添加其文件路径即可。(当然这些操作都可以直接使用脚本来实现，如：Environment.LoadFromFile(“FileName”))
    xml文件格式如下：
    <Environment>
            <Variable>                        // 变量定义起始标识
                    <Name>aa</Name>               // 变量名称
                    <Value>11</Value>             // 变量值
                    </Variable>                   // 变量定义结束标识
            <Variable>
                    <Name>bb</Name>
                    <Value>22</Value>
            </Variable>
    </Environment>
    使用的脚本
    Dim aParam3
    aParam3=Environment.Value(“aa”)          // 调用环境变量
    msgbox aParam3

16）弹出输入窗口

    Dim Input
    Input = InputBox("Enter your name")
    MsgBox ("You entered: " & Input)

17）不同数据库检查点手动SQL写法

    QTP插入数据库检查点，手动指定SQL语句的写法。
    
    一、SQL Server格式(本地无需安装SQL Server)
    connectionstring(连接字符串):
    1.本地没有创建数据源的方式
    DRIVER=SQL Server;SERVER=数据库IP地址;UID=用户名;PWD=密码;APP=Microsoft Office 2003;WSID=本地主机名;DATABASE=数据库名
    实例：
    DRIVER=SQL Server;SERVER=10.160.11.10;UID=sa;PWD=sa;APP=Microsoft Office 2003;WSID=RJHLJUN;DATABASE=dcwork

    2.本地已创建数据源的方式
    DSN=数据源名称;UID=用户名;PWD=密码;APP=Microsoft Office 2003;WSID=数据库的主机名;DATABASE=数据库名
    实例：
    DSN=LocalServer;UID=sa;PWD=sa;APP=Microsoft Office 2003;WSID=RJDCWORKTEST;DATABASE=dcwork

    3.SQL语句实例(从数据库表HR_LANGUAGE_TYPE中，查询字段语言名称LANGUAGE_NAME，条件语言名称＝中文，按语言名称升序排序结果)
    SELECT HR_LANGUAGE_TYPE.LANGUAGE_NAME FROM dcwork.dbo.HR_LANGUAGE_TYPE HR_LANGUAGE_TYPE WHERE (HR_LANGUAGE_TYPE.LANGUAGE_NAME='中文') ORDER BY HR_LANGUAGE_TYPE.LANGUAGE_NAME

    二、DB2格式：(本地至少安装DB2 Run-Time Client Lite)

    connectionstring(连接字符串):
    1.本地没有创建数据源的方式
    DRIVER={IBM DB2 ODBC DRIVER};UID=用户名;PWD=密码;MODE=SHARE;DBALIAS=数据库名;
    实例：
    DRIVER={IBM DB2 ODBC DRIVER};UID=db2admin;PWD=db2admin;MODE=SHARE;DBALIAS=DCWORK;
    
    2.本地已创建数据源的方式
    DSN=数据源名称;UID=用户名;PWD=密码;MODE=SHARE;DBALIAS=DCWORK;
    实例：
    DSN=DWCORKDB2;UID=db2admin;PWD=db2admin;MODE=SHARE;DBALIAS=DCWORK;
    
    3.SQL语句实例
    SELECT HR_LANGUAGE_TYPE.LANGUAGE_NAME FROM DB2ADMIN.HR_LANGUAGE_TYPE HR_LANGUAGE_TYPE WHERE (HR_LANGUAGE_TYPE.LANGUAGE_NAME='中文') ORDER BY HR_LANGUAGE_TYPE.LANGUAGE_NAME

    三、Oracle格式：(本地需要安装Oracle ODBC DRIVER)

    connectionstring(连接字符串):
    1.本地没有创建数据源的方式
    DRIVER={Oracle in OraHome92};SERVER=数据库服务名;UID=用户名;PWD=密码;DBQ=数据库名;DBA=W;APA=T;EXC=F; XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=Lo;BAM=IfAllSuccessful;MTS=F;MDI=Me;CSR=F;FWC=F;PFC=10;TLO=O;
    实例：
    DRIVER={Oracle in OraHome92};SERVER=DCWORK;UID=DCWORK;PWD=DCWORK;DBQ=DCWORK;DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=Lo;BAM=IfAllSuccessful;MTS=F;MDI=Me;CSR=F;FWC=F;PFC=10;TLO=O;
    
    2.本地已创建数据源的方式
    DSN= 数据源名称;UID=用户名;PWD=密码;DBQ=数据库名;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10; FDL=10;LOB=T;RST=T;GDE=F;FRL=F;BAM=IfAllSuccessful;MTS=F;MDI=F;CSR=F;FWC=F;PFC=10;TLO=0;
    实例：
    DSN=dcworkoracle;UID=DCWORK;DBQ=DCWORK;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=F;BAM=IfAllSuccessful;MTS=F;MDI=F;CSR=F;FWC=F;PFC=10;TLO=0;
    
    3.SQL语句实例
    SELECT HR_LANGUAGE_TYPE.LANGUAGE_NAME FROM DCWORK.HR_LANGUAGE_TYPE HR_LANGUAGE_TYPE WHERE (HR_LANGUAGE_TYPE.LANGUAGE_NAME='中文') ORDER BY HR_LANGUAGE_TYPE.LANGUAGE_NAME

    四， mysql
    Set Conn = CreateObject("ADODB.Connection" )
    str="DRIVER={MySQL ODBC 3.51 Driver};SERVER=192.168.1.100;DATABASE=wp_blog;user id=zzz ; password=123456"
    Conn.open str
    Set Rs = CreateObject ("ADODB.Recordset" )
    sql = "select * from `wp_blog`.`blg_webcategory` limit 0, 5000;"
    Rs.open sql,conn,1,3
    If (not Rs.eof) then
    Rs.MoveFirst
    MsgBox Rs(0)
    MsgBox Rs(1)
    MsgBox Rs(2)
    MsgBox Rs(3)
    end if
    
    Rs.close
    Set Rs = Nothing
    Conn.close
    Set Conn = Nothing
    
    五. access
    
    Set Conn = CreateObject("ADODB.Connection" )
    str="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:/db1.mdb"
    Conn.open str
    Set Rs = CreateObject("ADODB.Recordset")