WebBrowser control - how to reset cookies/cache
Question
All replies
-
still not working, tested on two sites now.
Isn't there a way to programatically restart the application? It is OK when td is done manually
I logged into this forums site. Then brought up another instance of I.E. at googles homepage. Exited out of the instance of I.E. at this site. In the only instance of I.E. open, at googles homepage, I deleted everything in the image below. Then went back to this site by selecting if from favorites in the open instance of I.E. and was still logged on.
I believe this code in sequence will cause your application to launch a new instance of it while making the current instance exit. Although I didn't try it. And it's possible that if the app is a "single instance" app that this code may not work since process.start is called prior to this instance exiting.
Application.ExecutablePath Property
Process.Start(Application.ExecutablePath) Application.Exit()
La vida loca
- Edited by Mr. Monkeyboy Saturday, May 30, 2015 5:22 AM
-
This code instantiates a WebBrowser object and disposes of it when done.
I tested the code by selecting Button1 with the Forums home URL, https://social.msdn.microsoft.com/Forums/en-US/home, in TextBox1. Then I logged on and looked at some stuff. Then I selected Button1 again with the URL still in TextBox1 which took me from the Forum page I was looking at back to the homepage. Because the first WebBrowser object was disposed and a new WebBrowser object navigated to the homepage I was no longer logged on when the homepage displayed in the second WebBrowser object.
1st image is prior to selecting Button1 therefore no WebBrowser is displayed and no URL is yet in the TextBox. 2nd image is prior to logging on.
Option Strict On Imports System.Windows.Forms Public Class Form1 Dim AWebBrowser As New List(Of WebBrowser) Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.Location = New Point(CInt((Screen.PrimaryScreen.WorkingArea.Width / 2) - (Me.Width / 2)), CInt((Screen.PrimaryScreen.WorkingArea.Height / 2) - (Me.Height / 2))) End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click If AWebBrowser.Count > 0 Then For i = AWebBrowser.Count - 1 To 0 Step -1 Me.Controls.Remove(AWebBrowser(i)) Try RemoveHandler AWebBrowser(i).DocumentCompleted, AddressOf WebBrowser1_DocumentCompleted Catch ex As Exception End Try AWebBrowser(i).Dispose() Next End If AWebBrowser.Clear() AWebBrowser.Add(New WebBrowser) With AWebBrowser(0) .Left = 20 .Top = 50 .Width = Me.ClientRectangle.Width - 40 .Height = Me.ClientRectangle.Height - 70 .Anchor = CType(AnchorStyles.Bottom + AnchorStyles.Left + AnchorStyles.Top + AnchorStyles.Right, AnchorStyles) End With AddHandler AWebBrowser(0).DocumentCompleted, AddressOf WebBrowser1_DocumentCompleted Me.Controls.Add(AWebBrowser(0)) If TextBox1.Text <> "" Then Try AWebBrowser(0).Navigate(TextBox1.Text) Catch ex As Exception End Try End If End Sub Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) MessageBox.Show("Seems to be working.") End Sub End Class
La vida loca
- Edited by Mr. Monkeyboy Saturday, May 30, 2015 6:16 AM
