Sub Class_Globals
Private Root As B4XView
Private xui As XUI
Private WebView1 As WebView
Private manager As JavaObject
Private handler As JavaObject
End Sub
Public Sub Initialize
End Sub
'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
manager.InitializeNewInstance("java.net.CookieManager", Null)
handler.InitializeStatic("java.net.CookieHandler").RunMethod("setDefault", Array(manager))
Root.LoadLayout("MainPage")
WebView1.LoadUrl("https://www.google.com")
End Sub
Private Sub Button1_Click
Dim cookieStore As JavaObject=manager.RunMethodJO("getCookieStore",Null)
Dim s As List= cookieStore.RunMethodJO("getCookies",Null)
Log(s)
End Sub