If Browser("Mercury Tours").Page("Mercury Tours").Frame("info").Exist Then
mySheet.Cells(i,4).Value = Browser("Mercury Tours").Page("Mercury Tours").Frame("info").WebElement("user").GetROProperty("outertext")
If mySheet.Cells(i,3).value = mySheet.Cells(i,4).value Then
mySheet.Cells(i,5).Font.Color = vbBlue
mySheet.Cells(i,5).Value = "测试成功"
Else
mySheet.Cells(i,5).Font.Color = vbRed
mySheet.Cells(i,5).Value = "测试失败"
End If