Reply To: Can anyone give me example of Visual Basic ?

Home Forums Discussions Support Portal Can anyone give me example of Visual Basic ? Reply To: Can anyone give me example of Visual Basic ?

#5431

Anton
Participant

This will help, I hope


Option Strict On
Imports LHMONAPILib
Module Module1

Sub Main()
Dim Lhmon As LhmonApi = New LhmonApi

If Not Lhmon.IsDriverLoaded Then
MsgBox("Delay value should be greater or equal to 0", MsgBoxStyle.Critical)
Return
End If

Dim FilterInfo As _FILTER_INFO = New _FILTER_INFO

Lhmon.Capture = False
Lhmon.PurgeLog()

FilterInfo.m_Address.m_Ip = Convert.ToUInt32(0)
FilterInfo.m_Address.m_Mask = Convert.ToUInt32(0)
FilterInfo.m_PortRange.m_StartRange = Convert.ToUInt16(0)
FilterInfo.m_PortRange.m_EndRange = Convert.ToUInt16(65535)
FilterInfo.m_LocalPortRange.m_StartRange = Convert.ToUInt16(0)
FilterInfo.m_LocalPortRange.m_EndRange = Convert.ToUInt16(65535)
FilterInfo.m_Protocol = _PROTOCOL.TCP
Lhmon.AddFilter(FilterInfo)

FilterInfo.m_Address.m_Ip = Convert.ToUInt32(0)
FilterInfo.m_Address.m_Mask = Convert.ToUInt32(0)
FilterInfo.m_PortRange.m_StartRange = Convert.ToUInt16(0)
FilterInfo.m_PortRange.m_EndRange = Convert.ToUInt16(65535)
FilterInfo.m_LocalPortRange.m_StartRange = Convert.ToUInt16(0)
FilterInfo.m_LocalPortRange.m_EndRange = Convert.ToUInt16(65535)
FilterInfo.m_Protocol = _PROTOCOL.UDP
Lhmon.AddFilter(FilterInfo)

Lhmon.Capture = True

Dim LogInfo As _LOG_INFO = New LHMONAPILib._LOG_INFO
Dim fbSuccess As Boolean
fbSuccess = True
While True

Do
fbSuccess = Lhmon.ReadLog(LogInfo)
If fbSuccess And Not LogInfo.m_Offset.Equals(0) Then
Console.WriteLine("Record" + LogInfo.m_ID.ToString())
Console.WriteLine("LogInfo.m_LocalAddress.m_Ip = " + LogInfo.m_LocalAddress.m_Ip.ToString())
Console.WriteLine("LogInfo.m_LocalAddress.m_Port = " + LogInfo.m_LocalAddress.m_Port.ToString())
Console.WriteLine("LogInfo.m_RemoteAddress.m_Ip = " + LogInfo.m_RemoteAddress.m_Ip.ToString())
Console.WriteLine("LogInfo.m_RemoteAddress.m_Port = " + LogInfo.m_RemoteAddress.m_Port.ToString())
Console.WriteLine("LogInfo.m_Protocol = " + LogInfo.m_Protocol.ToString())
Console.WriteLine("LogInfo.m_Offset = " + LogInfo.m_Offset.ToString())
Console.WriteLine("LogInfo.m_Flags = " + LogInfo.m_Flags.ToString())
Console.WriteLine("LogInfo.m_DataLength = " + LogInfo.m_DataLength.ToString())
Console.WriteLine("LogInfo.m_ProcessID = " + LogInfo.m_ProcessID.ToString())
Console.WriteLine("")

End If
Loop Until Not fbSuccess
System.Threading.Thread.Sleep(100)
End While

End Sub

End Module