Sub Globals
Private WebView1 As WebView
Dim wve As WebViewExtras
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("Layout1")
Dim c As DefaultWebViewClient
c.Initialize("client")
wve.Initialize(WebView1)
wve.SetWebViewClient(c)
WebView1.LoadUrl("http://yesmallz.com/")
End Sub
Sub client_ReceivedSslError(SslErrorHandler1 As SslErrorHandler, SslError1 As SslError)
Log(SslError1)
SslErrorHandler1.Proceed
End Sub