#Region Project Attributes
#ApplicationLabel: TorAuf
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
' #SupportedOrientations: portrait
#CanInstallToExternalStorage: false
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: False
#End Region
'Activity module
Sub Process_Globals
End Sub
Sub Globals
Dim WebViewExtras1 As WebViewExtras
Dim WebView1 As WebView
End Sub
Sub Activity_Create(FirstTime As Boolean)
WebView1.Initialize("WebView1")
Activity.AddView(WebView1, 0dip, 0dip, 100%x, 100%y)
WebViewExtras1.addJavascriptInterface(WebView1, "B4A")
WebView1.LoadUrl("http://mydns.de:123/auf")
End Sub
Sub WebView1_PageFinished (Url As String)
Dim Javascript As String = "B4A.CallSub('ProcessHTML', false, document.documentElement.outerHTML)"
WebViewExtras1.executeJavascript(WebView1, Javascript)
' Log("PageFinished: " & Javascript)
Activity.Finish
ExitApplication
End Sub