Sub Globals
Dim WebView1 As WebView
Dim WebViewExtras1 As WebViewExtras
End Sub
Sub Activity_Create(FirstTime As Boolean)
WebView1.Initialize("")
WebViewExtras1.Initialize(WebView1)
' WebViewExtras1 is now an 'extended' version of a WebView
' it has all properties and methods of a WebView plus many more
' you can use WebView1 or WebViewExtras1 to call WebView methods and set WebView properties
' but only WebViewExtras1 can call the new methods and set the new properties
' to keep things logical no longer use WebView1 instead use WebViewExtras1 where you previously referenced WebView1
Activity.AddView(WebViewExtras1, 0, 0, 100%x, 100%y)
Dim WebViewClient1 As WebViewClient
WebViewClient1.Initialize("WebViewClient1")
WebViewExtras1.SetWebViewClient(WebViewClient1)
'WebViewExtras1.PostUrl("my url goes here", Array As Byte(1, 2, 255))
WebViewExtras1.ClearCache(True)
WebViewExtras1.ClearFormData
WebViewExtras1.ClearHistory
'WebViewExtras1.ClearSslPreferences
'WebViewExtras1.SetHttpAuthUsernamePassword("http://www.abc.com:80", "My Realm", "", "")
WebViewExtras1.LoadUrl("http://www.abc.com/privilege/")
'WebViewExtras1.GetHttpAuthUsernamePassword(Null, Null)
WebViewExtras1.SetHttpAuthUsernamePassword("http://www.abc.com:80", "My Realm", "", "")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub WebViewClient1_UserAndPasswordRequired(Host As String, Realm As String) As String()
Log("WebViewClient1_UserAndPasswordRequired")
Log("host: " & Host & ", Realm: " & Realm)
'handle the event and return an Array of String
Return Array As String("test", "test")
End Sub
Sub WebViewClient1_PageFinished(Url As String)
Log("page finished loading")
ToastMessageShow("page finished", False)
End Sub