写段QTP脚本与大家一起分享
2008-03-12 12:07
267 查看
Dim b,c
ic=datatable.GetSheet("Action1").GetRowCount
For i=1 to ic
Browser("新浪邮箱").Page("新浪邮箱").WebEdit("u").Set DataTable("user", dtLocalSheet)
Browser("新浪邮箱").Page("新浪邮箱").WebEdit("psw").Set DataTable("pass", dtLocalSheet)
Browser("新浪邮箱").Page("新浪邮箱").WebButton("登 录").Click
Browser("新浪邮箱").Page("经典再现_新浪邮箱").Link("这里").Click
a = Browser("新浪邮箱").Page("经典再现_新浪邮箱").Check (CheckPoint("jdzytony"))
b=abs(a)
c=abs(DataTable("result", dtLocalSheet))
If (b=c) Then reporter.ReportEvent micdone ,"成功:","执行与预期一致!"
Else reporter.ReportEvent micFail ,"错误:","第"&i&"个用例实际执行结果与预期不一致!"
End If
Browser("新浪邮箱").Page("新浪邮箱_2").WebButton("收邮件").Click
Browser("新浪邮箱").Page("新浪邮箱_2").Image("btQuit.gif").Click
DataTable.GetSheet("Action1").SetNextRow
Next
ic=datatable.GetSheet("Action1").GetRowCount
For i=1 to ic
Browser("新浪邮箱").Page("新浪邮箱").WebEdit("u").Set DataTable("user", dtLocalSheet)
Browser("新浪邮箱").Page("新浪邮箱").WebEdit("psw").Set DataTable("pass", dtLocalSheet)
Browser("新浪邮箱").Page("新浪邮箱").WebButton("登 录").Click
Browser("新浪邮箱").Page("经典再现_新浪邮箱").Link("这里").Click
a = Browser("新浪邮箱").Page("经典再现_新浪邮箱").Check (CheckPoint("jdzytony"))
b=abs(a)
c=abs(DataTable("result", dtLocalSheet))
If (b=c) Then reporter.ReportEvent micdone ,"成功:","执行与预期一致!"
Else reporter.ReportEvent micFail ,"错误:","第"&i&"个用例实际执行结果与预期不一致!"
End If
Browser("新浪邮箱").Page("新浪邮箱_2").WebButton("收邮件").Click
Browser("新浪邮箱").Page("新浪邮箱_2").Image("btQuit.gif").Click
DataTable.GetSheet("Action1").SetNextRow
Next
相关文章推荐
- 写段QTP脚本与大家一起分享
- 写段QTP脚本与大家一起分享
- [导入]写段QTP脚本与大家一起分享
- 写段QTP脚本与大家一起分享
- 【和大家一起分享主板的维护和维修的方法】
- 和大家一起分享人性中的感动!- 转老贴
- 漂亮的脚本日历,和大家分享
- Debug心得与大家一起分享
- android代码精华 各路大神写的代码精华,大家一起分享
- 初学cocos2dx 写了个2048 跟大家一起分享下
- Eclipse开发工具的一些小知识,Eclipse切换工作空间的办法!(记录下来,希望与大家一起分享,共同学习吧!)
- C# 对XML文件的操作代码,与大家一起分享
- 初学者cocos2dx 写2048 为了和大家一起分享
- ASP.NET跨页面传值技巧总结,大家一起分享下
- 漂亮的脚本日历,和大家分享
- 把遇到过的对.Net线程的一些问题和误解集中起来和大家分享,也希望大家能一起补充,热烈欢迎讨论
- 第一次 来这注册 欢迎大家来踩踩我 大家一起分享资源
- [转] 与大家一起分享JAVA源代码查询网站
- scrapy爬虫【1】→学习路上的坑和大家一起分享