Public
Class Form1
Dim WithEvents MFNCtrl1 As mfncomLib.MFNHTTPCtrl
Private Sub Form1_Load(ByVal sender
As System.Object,
ByVal
e
As System.EventArgs) Handles
MyBase.Load
ListView1.Columns.Add("User Name", 100)
ListView1.Columns.Add("Program Name", 100)
ListView1.Columns.Add("URL", 250)
ListView1.Columns.Add("HTTP Header", 100)
'create the MFN ActiveX control
MFNCtrl1 = New mfncomLib.MFNHTTPCtrl
'Initialize the HTTP intercepting engine
MFNCtrl1.InitHTTP(mfncomLib.HTTP_PerformanceMode.HTTP_Scripting, mfncomLib.HTTP_DecodingMode.HTTP_DecodeContent,
0)
End Sub
Private Sub MFNCtrl1_OnRequestHeaderDisp(ByVal ID
As UInteger,
ByVal UserName
As String,
ByVal ProgramName
As
String, ByVal URL As
String,
ByVal HeaderData
As String)
Handles MFNCtrl1.OnRequestHeaderDisp
Dim item As
New ListViewItem(UserName, 0)
item.SubItems.Add(ProgramName)
item.SubItems.Add(URL)
item.SubItems.Add(HeaderData)
ListView1.Items.Add(item)
End Sub
Private Sub MFNCtrl1_OnRequestContentPacketDisp(ByVal ID
As UInteger,
ByRef PacketData
As Object,
ByVal RawPacketSize
As
UInteger) Handles MFNCtrl1.OnRequestContentPacketDisp
Dim i
As
UInteger
Dim bData As
Byte
Dim Size
As
UInteger
'Get the size of data in array
Size = UBound(PacketData)
'read the data from array
For i = 0 To Size
bData = PacketData(i)
Next
PacketData = Nothing
End Sub
Private Sub MFNCtrl1_OnResponseHeaderDisp(ByVal ID
As UInteger,
ByVal UserName
As String,
ByVal ProgramName
As
String, ByVal Status As
String,
ByVal HeaderData
As String)
Handles MFNCtrl1.OnResponseHeaderDisp
End Sub
Private Sub MFNCtrl1_OnResponseContentPacketDisp(ByVal ID
As UInteger,
ByRef PacketData
As Object,
ByVal RawPacketSize
As
UInteger) Handles MFNCtrl1.OnResponseContentPacketDisp
Dim i
As
UInteger
Dim bData As
Byte
Dim Size As
UInteger
'Get the size of data in array
Size = UBound(PacketData)
'read the data from array
For i = 0 To Size
bData = PacketData(i)
Next
PacketData = Nothing
End Sub
End
Class