fix http observer chache

fix caching issue with the http observer #516
This commit is contained in:
hama3254 2022-08-08 13:21:29 +02:00
parent a366d4641f
commit f1bdd1c0ad
3 changed files with 23 additions and 9 deletions

Binary file not shown.

View File

@ -245,15 +245,25 @@ Public Class CefSharp_Browser
Private Sub ObserveHttp(e As RequestResourceEventArgs) 'Handles RequestResource.GetUrl Private Sub ObserveHttp(e As RequestResourceEventArgs) 'Handles RequestResource.GetUrl
'Debug.WriteLine(e.Request.Url) 'Debug.WriteLine(e.Request.Url)
If (Me.InvokeRequired) Then 'If (Me.InvokeRequired) Then
If Main.b = True And Main.FunimationJsonBrowser = Nothing Then ' If Main.b = True And Main.FunimationJsonBrowser = Nothing Then
Exit Sub
End If ' Exit Sub
Else ' Else
If Main.b = True And Main.FunimationJsonBrowser = Nothing Then ' Debug.WriteLine("false i guess?")
Exit Sub ' Debug.WriteLine(Main.b.ToString)
End If ' Debug.WriteLine(Main.FunimationJsonBrowser)
End If ' End If
'Else
' If Main.b = True And Main.FunimationJsonBrowser = Nothing Then
' Exit Sub
' Else
' Debug.WriteLine("false i guess?")
' Debug.WriteLine(Main.b.ToString)
' Debug.WriteLine(Main.FunimationJsonBrowser)
' End If
'End If

View File

@ -4463,6 +4463,10 @@ Public Class Main
End If End If
End If End If
If b = True Then If b = True Then
'LoadedUrls
'Debug.WriteLine(LoadedUrls.Count.ToString)
LoadedUrls.Clear()
Debug.WriteLine("Just Browsing, exiting...")
Exit Sub Exit Sub
End If End If
'MsgBox("loaded!") 'MsgBox("loaded!")