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 salesforceConn As SalesforceConnection = New SalesforceConnection( _
"Server=login.salesforce.com;User Id= [email protected];Password=mypassword;Security Token=qweASDzcx1234567890rtyui;")
Dim salesforceMonitor As SalesforceMonitor = New SalesforceMonitor
AddHandler salesforceMonitor.TraceEvent, AddressOf OnEvent
salesforceMonitor.IsActive = True
Dim salesforceCommand As SalesforceCommand = New SalesforceCommand("select count(*) from Account", salesforceConn)
salesforceConn.Open()
Console.WriteLine(salesforceCommand.ExecuteScalar())
salesforceConn.Close()
RemoveHandler salesforceMonitor.TraceEvent, AddressOf OnEvent
Console.ReadLine()
End Sub