#Region "Internet Connection Change"
 
    Private Structure INTERNET_PER_CONN_OPTION
        Public dwOption As Long
        Public dwValue1 As Long
        Public dwValue2 As Long
    End Structure
 
    Private Structure INTERNET_PER_CONN_OPTION_LIST
        Public dwSize As Long
        Public pszConnection As Long
        Public dwOptionCount As Long
        Public dwOptionError As Long
        Public pOptions As Long
    End Structure
 
    Private Const INTERNET_PER_CONN_FLAGS As Long = 1
    Private Const INTERNET_PER_CONN_PROXY_SERVER As Long = 2
    Private Const INTERNET_PER_CONN_PROXY_BYPASS As Long = 3
    Private Const PROXY_TYPE_DIRECT As Long = &H1
    Private Const PROXY_TYPE_PROXY As Long = &H2
    Private Const INTERNET_OPTION_REFRESH As Long = 37
    Private Const INTERNET_OPTION_SETTINGS_CHANGED As Long = 39
    Private Const INTERNET_OPTION_PER_CONNECTION_OPTION As Long = 75
 
    <DllImport("wininet.dll")> Shared Function InternetSetOption(ByVal _
      hInternet As IntPtr, _
                                                                 ByRef dwOption _
                                                                 As Integer, _
                                                                 ByRef lpBuffer _
                                                                 As IntPtr, _
                                                                 ByVal _
                                                                 dwBufferLength _
                                                                 As Integer) As _
                                                                 Boolean
    End Function
 
    Private Function VarPtr(ByVal e As Object) As Integer
        Dim GC As GCHandle = GCHandle.Alloc(e, GCHandleType.Pinned)
        Dim GC2 As Integer = GC.AddrOfPinnedObject.ToInt32
        GC.Free()
        Return GC2
    End Function
 
    Private Function StringToByteArray(ByRef str As String) As Byte()
        'Return Convert.FromBase64String(str)
        Return System.Text.Encoding.Default.GetBytes(str)
    End Function