Can anyone give me example of Visual Basic ?

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

This topic contains 1 reply, has 2 voices, and was last updated by  Anton 13 years, 11 months ago.

Viewing 2 posts - 1 through 2 (of 2 total)
  • Author
    Posts
  • #4818

    wat
    Participant

    Can anyone give me example of Visual Basic Code for using “NT Kernel Resources Local Host Monitor API” in order to capture raw data of every packet?

    Thank you for advance.

    #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
Viewing 2 posts - 1 through 2 (of 2 total)

You must be logged in to reply to this topic.