Sub OnEvent(ByVal sender As Object, ByVal e As MonitorEventArgs)
If e.TracePoint = MonitorTracePoint.BeforeEvent Then
Console.WriteLine("Description: " & e.Description)
Console.WriteLine(" Extra info: " & e.ExtraInfo)
End If
End Sub
<MTAThread()> _
Sub Main()
Dim exactTargetConn As ExactTargetConnection = New ExactTargetConnection( _
"user=MyCompanyAdmin;password=mypassword;url=https://webservice.s7.exacttarget.com/Service.asmx;")
Dim exactTargetMonitor As ExactTargetMonitor = New ExactTargetMonitor
AddHandler exactTargetMonitor.TraceEvent, AddressOf OnEvent
exactTargetMonitor.IsActive = True
Dim exactTargetCommand As ExactTargetCommand = New ExactTargetCommand("select count(*) from Email", exactTargetConn)
exactTargetConn.Open()
Console.WriteLine(exactTargetCommand.ExecuteScalar())
exactTargetConn.Close()
RemoveHandler exactTargetMonitor.TraceEvent, AddressOf OnEvent
Console.ReadLine()
End Sub