checkURL=Trim (Browser("micClass:=Browser").Object.LocationURL)
If checkURL="http://bbs.51testing.com/" Then
Reporter.ReportEvent micPass,"Step 1","assed"
Else
Reporter.ReportEvent micFail,"Step 1","Failed"
End If
Browser("51Testing软件测试论坛-首页").Page("51Testing软件测试论坛-首页").Link("登录").Click
With Browser("51Testing软件测试论坛-首页").Page("51Testing软件测试论坛-用户登录")
.WebEdit("username").Set "malasyan"
.WebEdit("password").Set "831212"
.WebButton("登录").Click:Wait 3
End With
oExist=Browser("51Testing软件测试论坛-首页").Page("51Testing软件测试论坛-首页").Link("退出").Exist (3)
If oExist Then
Reporter.ReportEvent micPass,"Step 3","assed"
Else
Reporter.ReportEvent micFail,"Step 3","Failed"
End If
Browser("hwnd:="&testHWND).Close
Browser("micClass:=Browser").Refresh:Wait 1
oExist=Browser("51Testing软件测试论坛-首页").Page("51Testing软件测试论坛-首页").Link("退出").Exist (3)
If oExist Then
Reporter.ReportEvent micPass,"Step 4","assed"
Else
Reporter.ReportEvent micFail,"Step 4","Failed"
End If