网上收集的QTP小技巧

上一篇 / 下一篇  2008-10-20 12:33:47 / 个人分类:QTP

目录

1.     测试登陆是否正确...2

2.     QTP调用Win API3

3.     QTPexcel中写入内容...4

4.     读取Excel表格数据...4

5.     QTP运行后锁键盘和鼠标。...5

6.     使用Extern.DeclareExtern.<已声明的方法>方法更改记事本窗口的标题。...5

7.     QTP自动截图...6

8.     自动化运行QuickTest.6

9.     共享点映射到本地...9

10.       移除共享映射...10

11.       QTP中的调用命令...11

12.       QTP编程自动获得网页中的javascrīpt代码和完整的html代码...12

13.       对系统文件的操作...13

 

 

 

 

1.     测试登陆是否正确

 

Reporter.ReportEvent micDone, "Login", "开始登陆操作"

Dialog("Login").Activate

Dialog("Login").Check CheckPoint("Login")

'RunAction "Action_help", oneIteration

Dialog("Login").WinEdit("Agent Name:").Set DataTable("UserID", dtGlobalSheet)

Dialog("Login").WinEdit("Password:").SetSecure DataTable("Password", dtGlobalSheet)

Dialog("Login").WinButton("OK").Click

If Dialog("Login").Dialog("Flight Reservations").Exist Then

       Dialog("Login").Dialog("Flight Reservations").Activate

       Dialog("Login").Dialog("Flight Reservations").WinButton("确定").Click

       Reporter.ReportEvent micDone, "Login", "登陆失败"

       Dialog("Login").Activate

       Dialog("Login").Close

else

        Reporter.ReportEvent micDone, "Login", "完成登陆操作"

       If Window("Flight Reservation").Exist Then

                Window("Flight Reservation").Activate

                Window("Flight Reservation").Close

               Reporter.ReportEvent micDone, "Login", "退出"

       End If

End If

 

 

脚本应该是没什么问题

但是如果你要测试“登录”功能

这个用例仅能测正确的用户名和正确的密码是否能够登录

逻辑上还缺少登录错误的情况:用户名不存在,密码错误

另外日志登录成功失败都是done状态,文字区分用例的结束状态不明显

 

要有针对性的设计用例,比如:

用户名 密码 预期结果

正确 正确 登录成功

不存在 无所谓 用户名不存在

正确 错误 密码错误

 

这样来设计就不会有遗漏了,最好是datatable三行数据,预期结果也放入

日志里成功用micPass,失败用micFail

 

NS250X测试登录窗口是否存在例子

 wait 5

 

If Browser("Browser").Dialog("Connect to 192.168.5.183").Exist Then

       Browser("Browser").Dialog("Connect to 192.168.5.183").WinEdit("User name:").Set "admin"

Browser("Browser").Dialog("Connect to 192.168.5.183").WinEdit("User name:").Type micTab

Browser("Browser").Dialog("Connect to 192.168.5.183").WinEdit("Password:").SetSecure "48d89a4e62f25dbfea0fa154853e"

Browser("Browser").Dialog("Connect to 192.168.5.183").WinButton("OK").Click

       

       Reporter.ReportEvent micDone, "Login", "登陆成功"

      

else

         Reporter.ReportEvent micDone, "Login", "登陆失败"

 

end if

 

2.     QTP调用Win API

Extern.Declare micLong, "WinExec", "kernel32.dll", "WinExec", micString,micLong

Extern.WinExec "d:\1.exe", 1

 

3.     QTPexcel中写入内容

 filename="D:\xyb\xueyb\xueyb.xls"

    ' create the Excel object

Set ExcelObj = CreateObject("Excel.Application")

ExcelObj.Workbooks.Add

Set NewSheet = ExcelObj.Sheets.Item(1)

NewSheet.Name = "Page Information"

row = 1

NewSheet.Cells(1,1) = "name"

NewSheet.Cells(1,2) = "xueyb"

NewSheet.Columns("A:A").ColumnWidth = 20

NewSheet.Columns("A:A").Font.Bold = True

NewSheet.Columns("B:B").ColumnWidth = 60

NewSheet.Columns("B:B").HorizontalAlignment = -4108 ' xlCenter

' save the Excel file

ExcelObj.ActiveWorkbook.SaveAs filename

ExcelObj.Quit

Set ExcelObj = Nothing

 

 

4.     读取Excel表格数据 

 

 

Option explicit

Dim srcData,srcDoc,i,j

set srcData = CreateObject("Excel.Application")

srcData.Visible = true

set srcDoc = srcData.Worksheets("Sheet1").Activate

   Dim myarray(7,4),temp

   Dim str

For i=2 to 7

   For j=1 to 4

   myarray(i,j)= srcDoc.Worksheets("Sheet1").Cells(i,j).value

Select Case j

   Case "1"

TAG: QTP

引用 删除 lixuch   /   2009-08-12 23:44:27
ceshi
 

评分:0

我来说两句

日历

« 2024-03-04  
     12
3456789
10111213141516
17181920212223
24252627282930
31      

数据统计

  • 访问量: 47684
  • 日志数: 52
  • 文件数: 1
  • 建立时间: 2007-11-11
  • 更新时间: 2013-05-09

RSS订阅

Open Toolbar