自动化测试工具QTP的一些简单代码

1，利用QTP向excel表格中写入数据：

Option explicit

Dim fso,ddfile
Dim excelbook,excelsheet
ddfile="F:/test/data.xls"

Set fso=createobject("scripting.filesystemobject")
If fso.fileexists(ddfile) Then
 fso.deletefile(ddfile)
End If
wait 3
Set excelbook=createobject("excel.application")
Set excelsheet=createobject("excel.sheet")
excelsheet.application.visible=false

        ExcelSheet.ActiveSheet.Cells(1,1).Value = "Agent Name"
        ExcelSheet.ActiveSheet.Cells(1,2).Value = "Password"
        ExcelSheet.ActiveSheet.Cells(1,3).Value = "Expire Value"
        ExcelSheet.ActiveSheet.Cells(1,4).Value = "Fact Value"
        ExcelSheet.ActiveSheet.Cells(1,5).Value = "Execute Result"

        ExcelSheet.ActiveSheet.Cells(2,1).Value = "ad"
        ExcelSheet.ActiveSheet.Cells(2,2).Value = "Mercury/"
        ExcelSheet.ActiveSheet.Cells(2,3).Value = "Agent name must be at least 4 characters long."

        ExcelSheet.ActiveSheet.Cells(3,1).Value = "Admin"
        ExcelSheet.ActiveSheet.Cells(3,2).Value = "Merc"
        ExcelSheet.ActiveSheet.Cells(3,3).Value = "Incorrect password. Please try again"

        ExcelSheet.ActiveSheet.Cells(4,1).Value = "Admin"
        ExcelSheet.ActiveSheet.Cells(4,2).Value = "Mercury"
        ExcelSheet.ActiveSheet.Cells(4,3).Value = "Flight Reservation"

excelsheet.saveas ddfile
excelbook.quit
set    excelbook=nothing

2，利用QTP向excel表格中读写数据：

Option explicit

Dim fso,filepath,i
Dim excelbook,excelsheet,myexcelbook,myexcelsheet
filepath="F:/test/data.xls"

Set fso=createobject("scripting.filesystemobject")

Set excelbook=createobject("excel.application")
Set excelsheet=createobject("excel.sheet")
Set myexcelbook=excelbook.workbooks.open(filepath)
Set myexcelsheet=myexcelbook.worksheets("sheet1")

For i=2 to 4
 systemutil.CloseProcessByName "Flight4a.exe"
 systemutil.Run "C:/Program Files/Mercury Interactive/QuickTest Professional/samples/flight/app/flight4a.exe"

     dialog("Login").WinEdit("Agent Name:").Set myexcelsheet.cells(i,1)
  dialog("Login").WinEdit("Password:").Set myexcelsheet.cells(i,2)
  dialog("Login").WinButton("OK").Click
  If dialog("Login").Dialog("Flight Reservations").Exist Then
   myexcelsheet.cells(i,4).value=dialog("Login").Dialog("Flight Reservations").static("errInfo").GetROProperty("text")
   If dialog("Login").Dialog("Flight Reservations").static("errInfo").GetROProperty("text")=myexcelsheet.cells(i,3) Then
              myexcelsheet.cells(i,5).font.color=vbblue
     myexcelsheet.cells(i,5).value="pass"
     else
     myexcelsheet.cells(i,5).font.color=vbred
     myexcelsheet.cells(i,5).value="false"
   End If
   dialog("Login").Dialog("Flight Reservations").winbutton("确定").Click
   dialog("Login").WinButton("Cancel").Click
   elseif window("Flight Reservation").Exist then
   myexcelsheet.cells(i,4).value=window("Flight Reservation").GetROProperty("text")
   myexcelsheet.cells(i,5).font.color=vbblue
   myexcelsheet.cells(i,5).value="pass"
   window("Flight Reservation").Close
   else
   logfile.writeline "no window,false!"
   exitaction
  End If
Next
myexcelbook.save
excelbook.quit
Set excelbook=nothing

3，从txt文件中读出数据执行用例：

Dim fso
Dim f
systemutil.Run "F:/test/calc.exe"

Set fso=createobject("scripting.filesystemobject")
Set f=fso.opentextfile("F:/test/date.txt",1,false)

Do while f.atendofline <> true
 strtemp=f.readline
 x=split(strtemp,",")
 For i=1to len(x(0))
  btn=mid(x(0),i,1)
  window("计算器").WinButton(btn).Click
 Next
 btn=x(2)
 window("计算器").WinButton(btn).Click
 For i=1 to len(x(1))
  btn=mid(x(1),i,1)
  window("计算器").WinButton(btn).Click
 Next
 btn="="
 window("计算器").WinButton(btn).Click
 a=window("计算器").WinEdit("Edit").GetROProperty("text")
    msgbox  a
Loop
window("计算器").Close
f.close
Set f=nothing
Set fso=nothing