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
本文转自 fish_yy 51CTO博客，原文链接：http://blog.51cto.com/tester2test/137614，如需转载请自行联系原作者
