خواهش میکنم . ببین دوست عزیز با یک مثال برات توضیح میدم که چطوری بتونی InnerText کنی ...
یک پروژه جدید رو باز کن . میخوام برات در مورد سایت http://212.95.150.40 مثال بزنم. هیچی نمیخواد از Desinger اضافه کنی . همه چیز رو با کد نویسی اضافه میکنیم.
Sub Globals
Dim Label1 As Label
Public WebViewExtras1 As WebViewExtras
Dim WebView1 As WebView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Main")
WebView1.Initialize("WebView1")
WebViewExtras1.addJavascriptInterface(WebView1,"B4A")
WebViewExtras1.addWebChromeClient(WebView1,"")
WebView1.LoadUrl("http://212.95.150.40")
ProgressDialogShow("Loading Web...")
End Sub
Sub WebView1_PageFinished (Url As String)
ProgressDialogHide
If Url = "http://212.95.150.40/login.aspx" OR Url = "http://212.95.150.40/" Then
WebViewExtras1.executeJavascript(WebView1, "B4A.CallSub('Process_GetDate', true, document.getElementById('lblDate').innerText)")
End If
End Sub
Sub Process_GetDate(Html As String)
Label1.Initialize("Label1")
Activity.AddView(Label1,10%x,40%y,70%x,55%y)
Html = Html.Replace("""","'")
Label1.Text = Html
End Sub
این کارها رو انجام بده و به کدهات اضافه کن . جواب خودت رو میگیری. در مورد گوگل هم به همین روش شاید باشه. تست نکردم . این رو آماده داشتم *vibre*
موفق باشی