写段QTP脚本与大家一起分享

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

发布了27 篇原创文章 · 获赞 0 · 访问量 4万+
展开阅读全文

没有更多推荐了,返回首页

©️2019 CSDN 皮肤主题: 大白 设计师: CSDN官方博客

分享到微信朋友圈

×

扫一扫,手机浏览