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
本博客介绍了一种使用自动化工具进行新浪邮箱登录及操作的测试流程。通过设置用户名和密码,模拟用户登录行为,并验证登录结果是否符合预期。此外,还包括了收发邮件的基本操作。

2705

被折叠的 条评论
为什么被折叠?



