For Each url in urlList
'MsgBox url
SystemUtil.Run "iexplore.exe", url
Reporter.ReportEvent micDone, "Url: ", url
Select Case true
Case Browser("欢迎访问中心系统").Page("欢迎访问中心系统").WebElement("login_pic").CheckProperty("innertext", "助理系统", "1000" )
MsgBox "回归助理系统"
Case Browser("欢迎访问中心系统").Page("欢迎访问中心系统").WebElement("login_pic").CheckProperty("innertext", "认证人事系统", "1000")
MsgBox "回归人事系统"
End Select