''第一步:录制脚本
''场景一:正常登录
'Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统").WebEdit("username_").Set "liulili"
'Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统").WebEdit("password_").SetSecure "59b731ddf64049675e3036efaae17946f130"
'Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统").WebButton("登 录").Click
'Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统_2").Sync
'Browser("东风汽车股份有限公司营销领域服务系统").CloseAllTabs
''场景二:用户名错误:提示user is disable
'
'Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统").WebEdit("username_").Set "liu1"
'Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统").WebEdit("password_").SetSecure "59b732779b3975d5199ec769615e172da9b4"
'Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统").WebButton("登 录").Click
'
''场景三:密码错误:提示the password is invalid
'Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统").WebEdit("username_").Set "liulili"
'Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统").WebEdit("password_").SetSecure "59b732b79955a47f3da31704f5fceb600d09"
'Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统").WebButton("登 录").Click
''场景四:用户名和密码为空:提示 用户名不能为空
'Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统").WebButton("登 录").Click
'
''场景五:密码为空:提示 密码不能为空
'Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统").WebEdit("username_").Set "liulili"
'Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统").WebButton("登 录").Click
'
'Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统").Sync
'Browser("东风汽车股份有限公司营销领域服务系统").CloseAllTabs
'第二步:强化脚本
'Dim iStatus
'Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统").WebEdit("username_").Set DataTable("username", dtLocalSheet)
'Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统").WebEdit("password_").Set DataTable("password", dtLocalSheet)
'Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统").WebButton("登 录").Click
'wait 3
''Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统_2").Sync
'
'iStatus = DataTable("status", dtLocalSheet)
'If iStatus ="登录成功" Then
'Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统_2").Sync
'End If
'
'If iStatus="user is disable" Then
'Reporter.ReportEvent micFail, "登陆", "user is disable"
'End If
'
'If iStatus="the password is invalid" Then
'Reporter.ReportEvent micFail, "登陆", "the password is invalid"
'End If
'
'If iStatus="用户名不能为空" Then
'Reporter.ReportEvent micFail, "登陆", "用户名不能为空"
'End If
'
'If iStatus="密码不能为空" Then
'Reporter.ReportEvent micFail, "登陆", "密码不能为空"
'End If
'
''Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统").Sync
'Browser("东风汽车股份有限公司营销领域服务系统").CloseAllTabs
'wait 3
'第三步:读取datatable中所有数据
Dim iStatus,iCount
'依次读取datatable中的值
iCount= DataTable.getSheet("Action1").GetRowCount
For iCount=0 to iCount -1
DataTable.GetSheet("Action1").SetNextRow
wait 3
Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统").WebEdit("username_").Set DataTable("username", dtLocalSheet)
wait 2
Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统").WebEdit("password_").Set DataTable("password", dtLocalSheet)
wait 2
Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统").WebButton("登 录").Click
wait 3
iStatus =DataTable("status", dtLocalSheet)
If iStatus ="登录成功" Then
Browser("东风汽车股份有限公司营销领域服务系统").Page("东风汽车股份有限公司营销领域服务系统_2").Sync
Browser("东风汽车股份有限公司营销领域服务系统").CloseAllTabs
SystemUtil.Run"C:\Program Files\Internet Explorer\IEXPLORE.EXE","http://58.48.109.82/2014z08dfacdmsTest/bdf2.core.view.frame.Login.d"
End If
'其他异常情况的登录
If iStatus="user is disable" Then
Reporter.ReportEvent micFail, "登陆", "user is disable"
End If
If iStatus="the password is invalid" Then
Reporter.ReportEvent micFail, "登陆", "the password is invalid"
End If
If iStatus="用户名不能为空" Then
Reporter.ReportEvent micFail, "登陆", "用户名不能为空"
End If
If iStatus="密码不能为空" Then
Reporter.ReportEvent micFail, "登陆", "密码不能为空"
End If
wait 1
Next