.Net WebBrowser Control

See more:

.NET

WinForms

Hi,

I have a strange problem with the .Net WebBrowser control. I'm trying to delete facebook cookies and then dispose the WebBrowser control so that the cookies might be released from the memory and then reinitialize the WebBrowser control again in order for them to relogin to facebook.

It's not working. If I close the app and do that, it works.

Here's the code (yes, it doesn't look preety) I'm using:

Private Sub ReinitializeBrowser()
        '_instance = New FrmBrowser()
        Dim uri As System.Uri = WebBrowser1.Url
        Dim point As Point = WebBrowser1.Location
        Dim size As Size = WebBrowser1.Size
        If Not (Me.WebBrowser1 Is Nothing) Then
            Me.WebBrowser1.Dispose()
            Me.Controls.Remove(Me.WebBrowser1)
        End If
        WebBrowser1 = New System.Windows.Forms.WebBrowser
        Me.WebBrowser1.Location = point
        Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
        Me.WebBrowser1.Name = "WebBrowser1"
        Me.WebBrowser1.ScrollBarsEnabled = False
        Me.WebBrowser1.Size = size
        Me.WebBrowser1.TabIndex = 2
        AddHandler Me.WebBrowser1.Navigating, AddressOf WebBrowser1_Navigating
        AddHandler Me.WebBrowser1.NewWindow, AddressOf WebBrowser1_NewWindow
        Me.Controls.Add(Me.WebBrowser1)
        Browse(strURL)
    End Sub

Public Function ResetBrowser() As Boolean
        Dim IsFBCookieDeleted As Boolean = False
        Dim theCookies() As String = System.IO.Directory.GetFiles(Environment.GetFolderPath(Environment.SpecialFolder.Cookies))
        For Each currentFile As String In theCookies
            Try
                If (currentFile.ToString.Contains("@facebook")) Then
                    IsFBCookieDeleted = True
                    System.IO.File.Delete(currentFile)
                End If
            Catch ex As Exception
            End Try
        Next
        If (IsFBCookieDeleted) Then
            FrmBrowser.Instance.ReinitializeBrowser()
            Return True
        Else
            Return False
        End If
    End Function

Any help would be really appreciated.

Thanks,

Sudeep