مشکل در << آموزش تصویری GetElement کردن و کار با کتابخانه WebViewExtras>>

[arf 30]

دوستان طبق اموزشی که در این پست بود پیش رفتم ولی کار نمی کنه؟؟؟؟

http://answercenter.ir/topic/363-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%D8%AA%D8%B5%D9%88%DB%8C%D8%B1%DB%8C-getelement-%DA%A9%D8%B1%D8%AF%D9%86-%D9%88-%DA%A9%D8%A7%D8%B1-%D8%A8%D8%A7-%DA%A9%D8%AA%D8%A7%D8%A8%D8%AE%D8%A7%D9%86%D9%87-webviewextras/

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
	Dim HttpJob1 As HttpJob
	Dim WebViewExtras1 As WebViewExtras
	Dim webview1 As WebView
	Private EditText1 As EditText
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("main")
	HttpJob1.Initialize("myjop1",Me)
	webview1.Initialize("webview1")
	WebViewExtras1.addJavascriptInterface(webview1,"B4A")
	WebViewExtras1.addWebChromeClient(webview1,"")
	webview1.LoadUrl("http://217.219.20.41/login.aspx")
	
End Sub 
Sub webview1_PageFinished(url As String)
WebViewExtras1.executeJavascript(webview1,"B4A.callsub('Process_HTML',true,document.documentElement.outerHTML)") 
End Sub
Sub Process_HTML(HTML As String) 
HTML=HTML.Replace("""","'")
EditText1.Text=HTML
End Sub

[پژمان نیکروان 6,055]

جای این خط از کدتون:

WebViewExtras1.executeJavascript(webview1,"B4A.callsub('Process_HTML',true,document.documentElement.outerHTML)") 

اینو جایگزین کنید:

WebViewExtras1.executeJavascript(webview1,"B4A.CallSub('Process_HTML',true,document.documentElement.outerHTML)") 

[arf 30]

 

جای این خط از کدتون:

WebViewExtras1.executeJavascript(webview1,"B4A.callsub('Process_HTML',true,document.documentElement.outerHTML)") 

اینو جایگزین کنید:

WebViewExtras1.executeJavascript(webview1,"B4A.CallSub('Process_HTML',true,document.documentElement.outerHTML)") 

با تشکر فراوان درست شد

[arf 30]

این آموزش توسط اقای ایزدی گذاشته شده بود.

اگر کسی میتونه کمک کنه