Sub Globals
Private WebView1 As WebView
Private we As WebViewExtras
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
we.Initialize(WebView1)
Dim client As DefaultWebViewClient
client.Initialize("client")
we.SetWebViewClient(client)
WebView1.LoadUrl("https://xxxxx.com")
End Sub
Sub client_ReceivedSslError(SslErrorHandler1 As SslErrorHandler, SslError1 As SslError)
Log(SslError1)
SslErrorHandler1.Proceed
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub