Question

我正在尝试清除WPF WebBrowser中的会话cookie。这个方法

Public Const INTERNET_OPTION_END_BROWSER_SESSION As Integer = 42
<DllImport("wininet.dll", SetLastError:=True)>
Public Function InternetSetOption(ByVal hInternet As IntPtr, ByVal dwOption As Integer, ByVal lpBuffer As IntPtr, ByVal lpdwBufferLength As Integer) As Boolean
End Function

这里描述How to clear System.Windows.Forms.WebBrowser session data?适用于我们的WinForms应用程序，但不适用于WPF。

有什么想法吗？

由于

Answer 1

原来答案是确保每次加载页面时都创建WebBrowser对象。

由于WebBrowser对象不被视为控件，我在初始化时创建了ScrollViewer，然后在加载的事件上将WebBrowser添加到ScrollViewer。

它现在完美无缺

for Faber75

Imports System.ComponentModel
Class Website_Login_Page
Private LoginBrowser As WebBrowser


Private Sub Website_Login_Page_Initialized(sender As Object, e As System.EventArgs) Handles Me.Initialized
    Try
        Website_Login_Grid.Background = New SolidColorBrush(Colors.White)

        For i As Integer = 0 To 1
            Dim vRow As New RowDefinition
            If i = 0 Then
                vRow.Height = New GridLength(35, GridUnitType.Star)
            Else
                vRow.Height = New GridLength(35)
            End If
            Website_Login_Grid.RowDefinitions.Add(vRow)
        Next

        Dim SV As New ScrollViewer
        With SV
            .VerticalScrollBarVisibility = ScrollBarVisibility.Auto
            .Name = "Website_Login_SV"
        End With
        RegisterControl(Website_Login_Grid, SV)
        'Cookies are not removed if the WebBrowser object is not created each time the page is loaded!
        ' LoginBrowser = New WebBrowser
        Grid.SetRow(SV, 0)
        Website_Login_Grid.Children.Add(SV)

        Dim DP As DockPanel = PageStatusBarDP(Website_Login_Grid)
        Grid.SetRow(DP, 1)
        Website_Login_Grid.Children.Add(DP)

    Catch ex As Exception
        EmailError(ex)
    End Try
End Sub





Private Sub Website_Login_Page_Loaded(sender As Object, e As System.Windows.RoutedEventArgs) Handles Me.Loaded
    Try

        If LoginBrowser Is Nothing Then
            LoginBrowser = New WebBrowser
        End If
        Dim SV As ScrollViewer = Website_Login_Grid.FindName("Website_Login_SV")
        SV.Content = LoginBrowser

        AddHandler LoginBrowser.Navigating, AddressOf WebBrowser_Loading
        AddHandler LoginBrowser.LoadCompleted, AddressOf WebBrowser_Loaded
        AddHandler LoginBrowser.Navigated, AddressOf WebBrowser_Navigated
        If InternetSetOption(IntPtr.Zero, INTERNET_OPTION_END_BROWSER_SESSION, IntPtr.Zero, 0) = False Then
            MessageBox.Show("Returned False")
        End If
        With LoginBrowser
            .Navigate(New Uri("https://website.com"))
                        End With

    Catch ex As Exception
        EmailError(ex)
    End Try

End Sub


Private Sub Website_Login_Page_Unloaded(sender As Object, e As System.Windows.RoutedEventArgs) Handles Me.Unloaded
    Try
        If Not LoginBrowser Is Nothing Then

            RemoveHandler LoginBrowser.Navigating, AddressOf WebBrowser_Loading
            RemoveHandler LoginBrowser.LoadCompleted, AddressOf WebBrowser_Loaded
            RemoveHandler LoginBrowser.Navigated, AddressOf WebBrowser_Navigated
            LoginBrowser = Nothing




        End If
        GC.GetTotalMemory(True)

    Catch ex As Exception
        EmailError(ex)
    End Try
End Sub

Private Sub WebBrowser_Loading(ByVal sender As Object, ByVal e As NavigatingCancelEventArgs)
    PageStatusBarLoading(Website_Login_Grid)
    PageStatusBarRightChangeText(Website_Login_Grid, "Loading... Please wait...")

End Sub

Private Sub WebBrowser_Loaded(ByVal sender As Object, ByVal e As NavigationEventArgs)
    Dim vDoc As Object = LoginBrowser.Document
    Dim vTitle As String = vDoc.Title
    PageStatusBarLoaded(Website_Login_Grid, vTitle)
    PageStatusBarRightChangeText(Website_Login_Grid, "Loaded")
End Sub

Private Sub WebBrowser_Navigated(ByVal sender As Object, ByVal e As NavigationEventArgs)
    Dim vDoc As Object = LoginBrowser.Document
    Dim vTitle As String = vDoc.Title
    PageStatusBarLoaded(Website_Login_Grid, vTitle)
    PageStatusBarRightChangeText(Website_Login_Grid, "Loaded")
End Sub

结束班

在WPF WebBrowser控件中清除会话cookie

1 个答案: