Code: Select all
Dim mypopupwatcher As New PopupWatcher()
mypopupwatcher.Watch(repo.ErrorMessage.SelfInfo, AddressOf geterrortxt)
mypopupwatcher.Start()
Public Sub geterrortxt()
Dim errormessagetxt As String
If repo.ErrorMessage.SelfInfo.Exists() Then
errormessagetxt = repo.ErrorMessage.MessageTxt.TextValue
Report.Screenshot(repo.ErrorMessage.Self)
Report.Log(ReportLevel.Failure,errormessagetxt)
End If
End Sub