Private Sub StartManager(localAddress As String)
Dim localEP As New IPEndPoint
localEP.NameOrAddress = localAddress
localEP.Port = 162
Manager1.Start localEP
End Sub
Private Sub Manager1_Trap(ByVal trapMessage As DartSnmpCtl.ISnmpMessage)
'Process trap as needed here, or display:
Text1.Text = Text1.Text + trapMessage.ToString + vbCrLf
End Sub
Private Sub Manager1_Inform(ByVal informMessage As DartSnmpCtl.ISnmpMessage)
' Inform message has arrived. Send back a response (acknowlegement)
Dim message As SnmpMessage
Set message = Manager1.CreateInformResponse(informMessage)
Manager1.SendResponse message, informMessage.Origin
'Update UI as needed
Text1.Text = Text1.Text + "Manager received inform:" + vbCrLf + informMessage.ToString + vbCrLf
End Sub