App Ignores All Nav Commands Post NavError

[Curiousx]

Hoping someone here can help with this problem -

I am running an AxWebBrowser with a proxy server connection to reach the internet. However, after a navigation error event, the application ignores all further navigate commands. When not connecting through a proxy, the code works fine. Here's the main code:

        RefreshIESettings("216.120.33.31:3128") 'Working proxy picked off the web, have tried different proxies
        WebBrowser1.Navigate("www.fiali3kskfjls.com") 'Intentional Navigate Error

        While WebBrowser1.ReadyState < SHDocVw.tagREADYSTATE.READYSTATE_COMPLETE
            Application.DoEvents()
        End While

        WebBrowser1.Navigate("www.google.com") 'For some reason, this command is ignored

Here's the proxy code from Rodger

  'PROXY CODE
    ' The structure we use for the information
    ' to be interpreted correctly by API.
    Public Structure Struct_INTERNET_PROXY_INFO
        Public dwAccessType As Integer
        Public proxy As IntPtr
        Public proxyBypass As IntPtr
    End Structure

    ' The Windows API function that allows us to manipulate
    ' IE settings programmatically.
    Private Declare Auto Function InternetSetOption Lib "wininet.dll" _
    (ByVal hInternet As IntPtr, ByVal dwOption As Integer, ByVal lpBuffer As IntPtr, _
     ByVal lpdwBufferLength As Integer) As Boolean

    ' The function we will be using to set the proxy settings.
    Private Sub RefreshIESettings(ByVal strProxy As String)
        Const INTERNET_OPTION_PROXY As Integer = 38
        Const INTERNET_OPEN_TYPE_PROXY As Integer = 3
        Dim struct_IPI As Struct_INTERNET_PROXY_INFO

        ' Filling in structure
        struct_IPI.dwAccessType = INTERNET_OPEN_TYPE_PROXY
        struct_IPI.proxy = System.Runtime.InteropServices.Marshal.StringToHGlobalAnsi(strProxy)
        struct_IPI.proxyBypass = System.Runtime.InteropServices.Marshal.StringToHGlobalAnsi("local")

        ' Allocating memory
        Dim intptrStruct As IntPtr = System.Runtime.InteropServices.Marshal.AllocCoTaskMem(System.Runtime.InteropServices.Marshal.SizeOf(struct_IPI))

        ' Converting structure to IntPtr
        System.Runtime.InteropServices.Marshal.StructureToPtr(struct_IPI, intptrStruct, True)
        Dim iReturn As Boolean = InternetSetOption(IntPtr.Zero, INTERNET_OPTION_PROXY, intptrStruct, System.Runtime.InteropServices.Marshal.SizeOf(struct_IPI))
    End Sub

[kleinma]

Generally you should just handle the DocumentCompleted event which fires when a page has finished loading, not loop with DoEvents and wait for a ready state.

If the navigation after your doevents loop never fires, I would say it is a safe guess that the browser never reaches an state of SHDocVw.tagREADYSTATE.READYSTATE_COMPLETE when your code runs.