مشکل در کدهای گت المنت

[chizi 6]

با سلام خدمت همه دوستان و اساتید محترم

 

من دارم بحث گت المنت رو تمرین میکنم از روی فیلم اموزشی  در یک بخش امدن و یک ساب برای وب ویو درست کردن و یه سری کد رو توش قرار دادن . من دقیقا عین ایشون پیش رفتم ولی از من خطا میگیره کدها رو و اجرا نمیکنه . چیزی که خطا میگیره رو قرار میدم شاید مشکلی داره من متوجه نیستم

Sub Globals


	Private EditText1 As EditText
	Private Button1 As Button
	'''''''''''''''''''''''''
	Dim HttpJob1 As HttpJob
	Dim WebViewExtras1 As WebViewExtras
	Dim WebView1 As WebView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("main")

	HttpJob1.Initialize("myjob1",Me)
	WebView1.Initialize("webview1")
	WebViewExtras1.addJavascriptInterface(WebView1,"B4A")
	WebViewExtras1.addWebChromeClient(WebView1,"")
	WebView1.LoadUrl("http://site.com")
	
	
	
End Sub

Sub webview1_PageFinished (Url As String)
	
	WebViewExtras1.executeJavascript(WebView1,"B4A.callsub("process_HTML",True,document.documentElement.outerHTML)")
	
End Sub

ممنون میشم راهنمایی کنید

[chizi 6]

دوستان مشکل این کد حل فقط وقتی میخوام سورس سایت رو توی ادیت تکست بگیرم در قسمت log این رو میزنه و چیزی نمایش نمیده مشکل چیه ؟

 

Uncaught ReferenceError: True is not defined in null (Line: 1)

[مهدی ایزدی 9,203]

سلام و درود

دوست عزیز کدتون اشتباه هست

رویداد رو نباید توی دو تا " قرار بدید

کد صحیح به این شکله :

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

همین رو کپی کنید به جای کدتون

[chizi 6]

اقای ایزدی اون مشکل حل شد ولی دقیقا کاری که شما کردید رو انجام دادم خواستم مثل پارت 1 اموزش شما کدهای سایت رو روی ادیت تکست داشته باشم اما اروری نمیده ولی کدهای رو هم نشون نمیده فقط در بخش log این رو میزنه

Uncaught ReferenceError: True is not defined in null (Line: 1)

 

مشکل از کجاست

[مهدی ایزدی 9,203]

@@chizi,  آدرس سایت مورد نظرتون رو بگید لطفا

 

در ضمن

رویداد process_HTML رو هم تعریف کردید یا خیر؟

[chizi 6]

سایت مد نظر من بخش حذف ایدی تلگرام هست . واسه تمرین فقط دارم روش کار میکنم.

Sub process_HTML(HTML As String)
	HTML = HTML.Replace("""","'")
	EditText1.Text = HTML	
	
End Sub

[مهدی ایزدی 9,203]

تیکه کدهای کامل خودتون که توش لینک مورد نظر هست رو کامل قرار بدید لطفا ! 

[chizi 6]

تیکه کدهای کامل خودتون که توش لینک مورد نظر هست رو کامل قرار بدید لطفا ! 

#Region  Project Attributes 
	#ApplicationLabel: B4A
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: portrait
	#CanInstallToExternalStorage: true
#End Region

#Region  Activity Attributes 
	#FullScreen: true
	#IncludeTitle: false
#End Region

Sub Process_Globals


End Sub

Sub Globals

	Private txt As EditText
	Private EditText1 As EditText
	Private Button1 As Button

	Dim HttpJob1 As HttpJob
	Dim WebViewExtras1 As WebViewExtras
	Dim WebView1 As WebView

End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("main")

	HttpJob1.Initialize("myjob1",Me)
	WebView1.Initialize("webview1")
	WebViewExtras1.addJavascriptInterface(WebView1,"B4A")
	WebViewExtras1.addWebChromeClient(WebView1,"")
	WebView1.LoadUrl("https://my.telegram.org/auth?to=deactivate")
	
	
	
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

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
	
End Sub