1.通过Shell记录windows事件,在windows事件查看器中查看

优点是操作方便

Set WshShell = WScripit.CreateObject("Wscrīpt.Shell")

0是信息,1是错误,2是警告

WshShell.LogEvent 0, "Logon scrīpt Completed Successfully"WshShell.LogEvent 1, "Logon scrīpt failed"

2.通过FileSystemObject来打开文件来记录

优点是功能强大,想记录啥就是啥

3.利用Desktop.CaptureBitmap来记录当前Screen

填写问题单时,发生错误的页面抓图很有说服力,也便于查看,当出错时调用此函数

(2)   在qtp中建立连接和记录集 

   set cnn=createobject("adodb.connection")
   set ōbjrsa=createobject("adodb.recordset")

(3)    连接数据库

(4) 对数据库进行操作。
  objrsa.open "select bustypefullname from bustypeinfo",cnn,3,2
  a=objrsa("bustypefullname").value得到字段bustypefullname的值赋值给了变量a

第二部分

1、Datatable方法GetRowCount
   DataTable.GetSheet("Action1").GetRowCount   //获取总行数
  使用如：
  CountNum=DataTable.GetSheet("Action1").GetRowCount

2、Datatable方法SetNextRow
   DataTable.GetSheet("Action1").SetNextRow     //取得下一行
   datatable.setcurrentrow(n)   //取得某一行

3、Datatable方法getcurrentrow    //获得当前行数
   例如：datatable.getcurrentrow

4、获取datatable值
   4.1  DataTable("p_Text", dtLocalSheet)  //取得datatable中参数名称为：p_Text的值
   4.2  DataTable.GlobalSheet.GetParameter("p_Text").Value   //获取参数值方法和DataTable("p_Text", dtLocalSheet)一样
   例如：xname为变量，dim xname
   xname=DataTable("p_Text", dtLocalSheet)
   xname=DataTable.GlobalSheet.GetParameter("p_Text").Value

5、datatable.value("num")只在global形式下的一种省略形式；完整形式是:
datatable.value("num",dtlocalsheet)

-----向某一列的单元格赋值:
datatable.value("column_name",dtlocalsheet)="nanjing"

6、字符转换Cstr
   dim mm
   Cstr(mm)

7、获取对象属性名称用法:
GetRoProperty----从应用程序界面上获取对象属性（即，是脚本运行时，获取的对象动态属性值）
           例如：获取对象库中index属性值，似乎只能用GetToProperty,因为应用程序界面上对象没有该属性，只是
　　　　　　QTP为识别该对象创立的描述属性；
GetToproperty----从对象库中描述对象的属性，静态值
GetToProperties----获取用于标识对象的属性集；对于这个集合，有count等属性方法

8、如果弹出对话框就获取上面提示信息并与表中的信息对比，不统一证明弹出的提示出错,主要用来验证
if browser("web_name").dialog("dialog_name").exist(1) then'如果不出现=false
     error_message=browser("web_name").dialog("diaglog_name").static("用户密码错误!".getRoproperty("text")
　　　if error_message<>(datatable.value("error_info"))then
         msgbox(error_message)
      end if
     browser("web_name").dialog("diaglog_name").close
  end if
这里总结了两点技巧：
　　一是：对于dialog中，虽然提示信息对象名称是"用户密码错误"，但如果信息对象名称是“该用户不存在”，不用更改会自动识别，我想主要是录制第一遍时，“用户密码错误”只是让运行时能找到这个控制，而不管它是什么内容，因为在对象仓库中，text不是决定该对象的属性
    二是：如果对于提示信息比较长的，可以用mid(error_message,n,m)取一部份特征提示信息进行验证，这样我想可以节省处理时间，又可以避免长度以及空格等字符的处理

9、数据库检查点模块:
sub database_check
set con=createobject("adodb.connection")
con.open "Descrīption=IBM_ODBC;DRIVER=SQL Server;SERVER=IBM;UID=sa;"&_
                 "PWD=123456;APP=Quick Test Pro;WSID=IBM;DATABASE=IBM_table"
'access方式:con.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\test.mdb"
'Orocle方式:con.open "DRIVER={Oracle in OraHome92};SERVER=CESHI;UID=CND_TEST;PWD=CND;DBQ=CESHI;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;"
set record=createobject("adodb.recordset")
sql="select*from ibm_one_table"
record.open sql,con
DO
if(record("ibm_table_column")="kai")then'//查找表格中有多少kai
num=num+1;
end if
record.movenext
loop until record.eof=true
record.close
set record=nothing
con.close
set con=nothing
end sub

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

11、for方法1,参数化时选择：dtLocalSheet
Dim CountNum
CountNum=DataTable.GetSheet("Action1").GetRowCount
For i=0 to CountNum-1
－－－－xunhuanti------
DataTable.GetSheet("Action1").SetNextRow    //使用SetNextRow方法
Next

12、for方法2，参数化时选择：dtLocalSheet
dim countNum
countNum = DataTable.GetSheet("Action1").GetRowCount
For i=1 to countNum
DataTable.GetSheet("Action1").SetCurrentRow(i)  //使用SetCurrentRow(i)方法
―――ddd―――
next
13、while方法1，参数化时选择：dtLocalSheet
Dim CountNum,i
i=1
CountNum=DataTable.GetSheet("Action1").GetRowCount
While i<=CountNum
－－－－－－xuhuanti---
DataTable.GetSheet("Action1").SetNextRow
i = i+1
Wend

14、while方法2，参数化时选择：dtLocalSheet
Dim CountNum,i
i=1
CountNum=DataTable.GetSheet("Action1").GetRowCount
While i<=CountNum

DataTable.GetSheet("Action1").SetCurrentRow(i)
－－－－xuhuanti－－－
i = i+1
Wend

第三部分

15、Do while方法
Dim i,RowCount '定义两个变量
i=0
RowCount=DataTable.GetSheet("Action1").GetRowCount '设置RowCount等于Action1中的行数。
msgbox RowCount
Do while i<rowcount
i=i+1 '第一次进入循环，执行这句后，i=1
'DataTable.GetSheet("Action1").SetCurrentRow(i)  这句话被我注释掉了，正确的写法应该是下面这样，分开写。

datatable.getsheet("Action1")
datatable.setcurrentrow(i)

－－－－xunhuanti－－－－
loop

16、取对象属性（Property）值

Dim usname
usname =Browser("测试登录").Page("办公自动化系统").Frame("mainFrame_2").WebEdit("addressVO.name").GetRoProperty("Value")   '获取对象属性（Property）值，如Property为Value
MsgBox usname

17、取得要删除的id，并删除
'url在查看该新增记录的信息页面对象中取得，所以录制的时候，登记，查看（修改），删除

Dim strUserid,id,strId

     id=Browser("测试登录").Page("办公自动化系统").Frame("mainFrame_4").GetROProperty("url") '在url这个属性值中存在我需要删除记录的ID信息
  strId=Mid (id,instr(60,id,"=")+1)  '这一步是把需要的id值取了出来，例如：strId=Mid (id,instr(1,id,"=")+1)
     strUserid =strId  'strUserid是我要删除的记录前的复选框属性值当中的ID信息
Browser("测试登录").Page("办公自动化系统").Frame("mainFrame").WebCheckBox("value:="&strUserid).Set "ON" 这样就把想删除的记录选中了。
Browser("测试登录").Page("办公自动化系统").Frame("mainFrame").WebButton("删 除").Click '这样就删除掉啦，呵呵

17.2通过数据库取得id值，并赋值进行删除

Browser("测试登录").Page("办公自动化系统").Frame("mainFrame_2").WebEdit("addressVO.name").Set DataTable("p_Text", dtGlobalSheet)
Browser("测试登录").Page("办公自动化系统").Frame("mainFrame_2").WebEdit("addressVO.address").Set DataTable("p_Text1", dtGlobalSheet)

Browser("测试登录").Page("办公自动化系统").Frame("mainFrame_2").WebEdit("addressVO.unitTel").Set DataTable("p_Text2", dtGlobalSheet)

Dim xname,address,unitTel
xname=DataTable("p_Text", dtGlobalSheet)   '从datatable中取值
address=DataTable("p_Text1", dtGlobalSheet)
unitTel=DataTable("p_Text2",dtGlobalSheet)