1.GetCellData函数 

  作用:获取单元格的值

  例:  rowCount = Browser("xxx ").Page("xxx ").Frame("xxx").WebTable("xxx").RowCount
For counter = 1 To rowCount
  text = Browser("xxx").Page("xxx").Frame("xxx").WebTable("xxx").GetCellData(counter,1)
  If (text = "xxx") Then
    counter = counter - 1
    selectNO = "#" & counter
    Browser("xxx").Page("xxx").Frame("xxx").WebRadioGroup("xxx").Select selectNO
    Exit For
  End If
Next

2.把值插入datatable里

  例:   datatable.setcurrentrow(i)
        datatable.value("name","Global")="name"
        datatable.value("passwd","Global")="passwd"

3.用代码来启动浏览器

  Browser1 = "IE"
  StartURL = "www.51testing.com"
  IF Browser1 = "IE" THEN
     set IE = CreateObject("InternetExplorer.Application")
     IE.Visible = true
     IE.Navigate StartURL
  END IF
 

4.ExecuteFile函数

  作用:ExecuteFile 可以直接执行vbs文件，而不需要将其导入resource中 
       ExecuteFile FileName 
  说明:where FileName is the absolute or relative path of your VBscrīpt file.

  例:ExecuteFile("F:\test.vbs")

5.Strcomp函数 

  作用:比较文本

  例:dim strtext1,strtext2,str ,str1,comp1
     strtext1 = "xxx"
     strtext2 = "xxx"
     str = VbWindow("xxx").VbWindow("xxx").VbLabe1("xxx").GetTOProperty("text")
     str1= VbWindow("xxx").VbWindow("xxx").VbLabel("xxx").GetTOProperty("text")
     comp1=strcomp(strtext1,str,0)
     If  comp=0 Then
          msgbox “这两个串相等”
     else
       msgbox str
     End If 

6.CaptureBitmap 

  作用:捕获屏幕

7. GetROProperty

  作用:取对象属性值

  例:VbWindow("xxx").VbWindow("xxx").VbWindow("xxx").ActiveX("xxx").GetROProperty("TextMatrix(1,0)")　

8.ExitAction - 退出当前操作，无论其循环属性如何。
  ExitActionIteration - 退出操作的当前循环。
  ExitRun - 退出测试，无论其循环属性如何。
  ExitGlobalIteration - 退出当前全局循环。

9.如何使用Excel对象处理数据？
  Dim xl
  打开excel文件
  Function OpenExcelFile(strFilePath)
  Set xl = CreateObject("Excel.Application")
  xl.Workbooks.Open strFilePath
  End Function
  获得指定单元格数据
  Function GetCellData(strSheet,rwIndex,colIndex)
  GetCellData = xl.WorkSheets(strSheet).Cells(rwIndex,colIndex)
  End Function
  填充单元格数据
  Function PutCellData(strSheet,rwIndex,colIndex,varData)
  xl.WorkSheets(strSheet).Cells(rwIndex,colIndex) = varData
  End Function
  保存并推出
  Function SaveAndQuit()
  xl.Activeworkbook.save
  xl.Quit
  Set xl = nothing
  End Function

10.连接sql数据库

  例: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

     本例还是以QTP安装后自带的Flight Reservation为例来录制脚本.首先我们把登录程序系统,然后新建定单,再打开定单,最后关闭系统.分别录制成5个action,设置一个主的action为main来分别先后调用login(登录),new order(新建定单),open order(打开定单),logout(退出).

注明:设置拆分action，选择菜单功能split Action ．选择independent of each other为并列的两个action．选择Nested为主次的两个action.

全部录制完所有action后，在main action中代码如下：

RunAction "login", oneIteration
RunAction "new order", oneIteration
RunAction "open order", oneIteration
RunAction "logout", oneIteration

其中RunAction是一个调用action的函数，后面跟action名和要传递的参数．

说明：

RunAction ActionName, [Iteration , Parameters]

在这里我再引入action之间参数传递．在login action中选择菜单选项，在action properties中设置两input参数分别先后为username 和　passwd.

这样我们就通过RunAction "login", oneIteration,"mercury","mercury"　　把这两个变量分别传给username 和passwd.这边的变量先后关系分别依次对应了action properties里input参数的先后关系．

这样我们就可以在login action中调用这两个变量了．

Dialog("Login").WinEdit("Agent Name:").Set Parameter("username")
Dialog("Login").WinEdit("Password:").Set Parameter("passwd")
Dialog("Login").WinButton("OK").Click

下面再来实现从一个action中传出一个变量给另一个action.

那么我们在new order　中选择菜单选项，在action properties中设置一个output参数为orderno

Window("Flight Reservation").WinEdit("Order No:").Output CheckPoint("Order No:")

通过上面这句话把生成的定单号的值存放到这个ouput参数中

RunAction "new order", oneIteration,order
RunAction "open order", oneIteration,order

再靠main　action中这个order变量来传递，这个变量正好对应着new order里的output参数．从new order中传出来，再把这个变量传给open order．当然在open order中还要同样设置input参数．和这个order变量对应起来．

这样就可以在open order中使用这个变量了．

Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set Parameter("orderno")

当然其实两个action之间传递参数还可以更简单点．比如一个脚本中　datatable和环境变量都是全局的，在一个脚本中的任何action都能使用．所以可以借用这两个来传递．

通过这个例子最主要讲的是两点，拆分action和action之间的参数传递