VB.NET Webbrowser System.UnauthorizedAccessException в цикле

Question

Я работал над этим кодом не менее года, и сегодня он выдал исключение, из-за которого я не смог понять, почему это происходит.Это Forms.WebBrowser, который сначала обращается к общему сайту, а затем к вторичному сайту.

        'first site
        wbr.ScriptErrorsSuppressed = False
        wbr.Navigate("http://www.bing.com/?rb=0")
        Do
            Application.DoEvents()
        Loop Until wbr.ReadyState = WebBrowserReadyState.Complete

        'second site
        wbr.ScriptErrorsSuppressed = True
        Dim start As DateTime = DateTime.Now
        Dim loopTimeout As TimeSpan = TimeSpan.FromSeconds(timeout)

        wbr.Navigate("http://www.FlightAware.com")
        Do
            Application.DoEvents()

            'loop timer
            If DateTime.Now.Subtract(start) > loopTimeout Then
                'stop browser
                wbr.Stop()

                'throw exception
                Dim eExpTme As Exception = New Exception("A loop timeout occurred in the web request.")
                Throw eExpTme
            End If
        Loop Until wbr.ReadyState = WebBrowserReadyState.Complete

Ошибка происходит при доступе ко второму сайту, и это показывает, что она выдает ошибку в самой последней строке с

System.UnauthorizedAccessException: доступ запрещен.(Исключение из HRESULT: 0x80070005 (E_ACCESSDENIED))

в System.Windows.Forms.UnsafeNativeMethods.IHTMLLocation.GetHref () в System.Windows.Forms.WebBrowser.get_Document () в System.Windows..get_ReadyState ()

Я просто не понимаю, почему происходит ошибка на втором сайте, а не на первом, и что именно означает это сообщение об ошибке.Я просмотрел некоторые справочные форумы, но ничего конкретного, что я могу использовать для устранения неполадок.

AGP

Answer 1

На сайте есть фрейм на ad.doubleclick.net, по умолчанию междоменный доступ к фреймам отключен для интернет-зоны , поэтому вы получаете исключение безопасности.

Поймай исключение и продолжай. В кадре не нужно особо заботиться, doubleclick - рекламный сервис.

Вы можете реализовать IInternetSecurityManager и позволить IE полагать, что ad.doubleclick.net и FlightAware.com - это один и тот же веб-сайт, но это может вызвать проблемы с безопасностью, если вы расширяете доверие к произвольным веб-сайтам.

Answer 2

Вот небольшой взлом в C #, который вы можете конвертировать в Vb.net:

 public class CrossFrameIE
{
    // Returns null in case of failure.
    public static IHTMLDocument2 GetDocumentFromWindow(IHTMLWindow2 htmlWindow)
    {
        if (htmlWindow == null)
        {
            return null;
        }

        // First try the usual way to get the document.
        try
        {
            IHTMLDocument2 doc = htmlWindow.document;                

            return doc;
        }
        catch (COMException comEx)
        {
            // I think COMException won't be ever fired but just to be sure ...
            if (comEx.ErrorCode != E_ACCESSDENIED)
            {
                return null;
            }
        }
        catch (System.UnauthorizedAccessException)
        {
        }
        catch
        {
            // Any other error.
            return null;
        }

        // At this point the error was E_ACCESSDENIED because the frame contains a document from another domain.
        // IE tries to prevent a cross frame scripting security issue.
        try
        {
            // Convert IHTMLWindow2 to IWebBrowser2 using IServiceProvider.
            IServiceProvider sp = (IServiceProvider)htmlWindow;

            // Use IServiceProvider.QueryService to get IWebBrowser2 object.
            Object brws = null;
            sp.QueryService(ref IID_IWebBrowserApp, ref IID_IWebBrowser2, out brws);

            // Get the document from IWebBrowser2.
            IWebBrowser2 browser = (IWebBrowser2)(brws);

            return (IHTMLDocument2)browser.Document;
        }
        catch
        {
        }

        return null;
    }

    private const int E_ACCESSDENIED = unchecked((int)0x80070005L);
    private static Guid IID_IWebBrowserApp = new Guid("0002DF05-0000-0000-C000-000000000046");
    private static Guid IID_IWebBrowser2 = new Guid("D30C1661-CDAF-11D0-8A3E-00C04FC9E26E");
}

// This is the COM IServiceProvider interface, not System.IServiceProvider .Net interface!
[ComImport(), ComVisible(true), Guid("6D5140C1-7436-11CE-8034-00AA006009FA"),
InterfaceTypeAttribute(ComInterfaceType.InterfaceIsIUnknown)]
public interface IServiceProvider
{
    [return: MarshalAs(UnmanagedType.I4)]
    [PreserveSig]
    int QueryService(ref Guid guidService, ref Guid riid, [MarshalAs(UnmanagedType.Interface)] out object ppvObject);
}