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
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)