目录
1. 测试登陆是否正确...2
2. QTP调用Win API3
3. QTP在excel中写入内容...4
4. 读取Excel表格数据...4
5. QTP运行后锁键盘和鼠标。...5
6. 使用Extern.Declare和Extern.<已声明的方法>方法更改记事本窗口的标题。...5
7. QTP自动截图...6
8. 自动化运行QuickTest.6
9. 共享点映射到本地...9
10. 移除共享映射...10
11. QTP中的调用命令...11
12. 用QTP编程自动获得网页中的javascrīpt代码和完整的html代码...12
13. 对系统文件的操作...13
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
Extern.Declare
micLong, "WinExec", "kernel32.dll", "WinExec",
micString,micLong
Extern.WinExec
"d:\1.exe", 1
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
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"