Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.ComponentModel
Imports System.Runtime.InteropServices
 
Module modExWebBrowser
 
    Public Enum NWMF
        NWMF_UNLOADING = &H1&
        NWMF_USERINITED = &H2&
        NWMF_FIRST_USERINITED = &H4&
        NWMF_OVERRIDEKEY = &H8&
        NWMF_SHOWHELP = &H10&
        NWMF_HTMLDIALOG = &H20&
        NWMF_FROMPROXY = &H40&
    End Enum
 
    'First define a new EventArgs class to contain the newly exposed data
    Public Class WebBrowserNavigatingExtendedEventArgs
        Inherits CancelEventArgs
 
        Private m_Url As String
        Private m_Frame As String
        Private m_Postdata() As Byte
        Private m_Headers As String
 
        Public ReadOnly Property Url() As String
            Get
                Return m_Url
            End Get
        End Property
 
        Public ReadOnly Property Frame() As String
            Get
                Return m_Frame
            End Get
        End Property
 
        Public ReadOnly Property Headers() As String
            Get
                Return m_Headers
            End Get
        End Property
 
        Public ReadOnly Property Postdata() As String
            Get
                Return PostdataToString(m_Postdata)
            End Get
        End Property
 
        Public ReadOnly Property PostdataByte() As Byte()
            Get
                Return m_Postdata
            End Get
        End Property
 
        Public Sub New(ByVal url As String, ByVal frame As String, ByVal _
          postdata As Byte(), ByVal headers As String)
            m_Url = url
            m_Frame = frame
            m_Postdata = postdata
            m_Headers = headers
        End Sub
 
        Private Function PostdataToString(ByVal p() As Byte) As String
            'not sexy but it works...
            Dim tabpd() As Byte, bstop As Boolean = False, stmp As String = "", _
              i As Integer = 0
            tabpd = p
            If tabpd Is Nothing OrElse tabpd.Length = 0 Then
                Return ""
            Else
                For i = 0 To tabpd.Length - 1
                    stmp += ChrW(tabpd(i))
                Next
                stmp = Replace(stmp, ChrW(13), "")
                stmp = Replace(stmp, ChrW(10), "")
                stmp = Replace(stmp, ChrW(0), "")
            End If
            If stmp = Nothing Then
                Return ""
            Else
                Return stmp
            End If
        End Function
 
    End Class
    Public Class WebBrowserNewWindowExtendedEventArgs
        Inherits CancelEventArgs
 
        Private m_Url As String
        Private m_UrlContext As String
        Private m_Flags As NWMF
 
        Public ReadOnly Property Url() As String
            Get
                Return m_Url
            End Get
        End Property
 
        Public ReadOnly Property UrlContext() As String
            Get
                Return m_UrlContext
            End Get
        End Property
 
        Public ReadOnly Property Flags() As NWMF
            Get
                Return m_Flags
            End Get
        End Property
 
        Public Sub New(ByVal url As String, ByVal urlcontext As String, ByVal _
          flags As NWMF)
            m_Url = url
            m_UrlContext = urlcontext
            m_Flags = flags
        End Sub
 
    End Class