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

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

up

این قسمت از کد رو نگاه کن:

WebViewExtras.executeJavascript(WebView1,"B4A.callsub('process_HTML',true,document.documentElement,outerHTML)")

قبل از outerHTML ویرگول گذاشتی ، باید نقطه بذاری به این صورت:

WebViewExtras.executeJavascript(WebView1,"B4A.callsub('process_HTML',true,document.documentElement.outerHTML)")

ضمنا با httpjob هم میتونی با کد ساده تر سورس سایت رو بگیری.

[کاربر ناشناس 2,148]

این قسمت از کد رو نگاه کن:

WebViewExtras.executeJavascript(WebView1,"B4A.callsub('process_HTML',true,document.documentElement,outerHTML)")

قبل از outerHTML ویرگول گذاشتی ، باید نقطه بذاری به این صورت:

WebViewExtras.executeJavascript(WebView1,"B4A.callsub('process_HTML',true,document.documentElement.outerHTML)")

ضمنا با httpjob هم میتونی با کد ساده تر سورس سایت رو بگیری.

 

ممنونم از پاسخ شما

الان این ارور رو میده

** Activity (about) Pause, UserClosed = true **
** Activity (main) Resume **
** Service (newapp) Start **
** Service (newapp) Start **
** Service (newapp) Start **
** Service (newapp) Start **
** Service (newapp) Start **
** Service (newapp) Start **
** Service (newapp) Start **
** Service (newapp) Start **
** Service (newapp) Start **
** Service (starter) Create **
** Service (starter) Start **
** Activity (main) Create, isFirst = true **
** Activity (main) Resume **
Uncaught TypeError: Object [object Object] has no method 'callsub' in  (Line: 1)

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

 

ممنونم از پاسخ شما

الان این ارور رو میده

** Activity (about) Pause, UserClosed = true **
** Activity (main) Resume **
** Service (newapp) Start **
** Service (newapp) Start **
** Service (newapp) Start **
** Service (newapp) Start **
** Service (newapp) Start **
** Service (newapp) Start **
** Service (newapp) Start **
** Service (newapp) Start **
** Service (newapp) Start **
** Service (starter) Create **
** Service (starter) Start **
** Activity (main) Create, isFirst = true **
** Activity (main) Resume **
Uncaught TypeError: Object [object Object] has no method 'callsub' in  (Line: 1)

به حروف کوچیک و بزرگ حساسه.

بعدش اومدی webViewExtarcts رو از نوع WebViewExtracts تعریف کردی ، باید یه اسم دیگه واسه متغیرت بذاری ، مثل webviewextract1

کلا همون کدهاتو که بالا گذاشتی به این تغییر بده درست میشه.

Sub Globals
	Private EditText1 As EditText
	Private EditText2 As EditText
	Private ImageView1 As ImageView
	Private Button1 As Button
	Dim HttpJob As HttpJob
	Dim WebViewExtras1 As WebViewExtras
	Dim WebView1 As WebView
	
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("get")
	HttpJob.Initialize("Myjob1" , 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

[کاربر ناشناس 2,148]

 

به حروف کوچیک و بزرگ حساسه.

بعدش اومدی webViewExtarcts رو از نوع WebViewExtracts تعریف کردی ، باید یه اسم دیگه واسه متغیرت بذاری ، مثل webviewextract1

کلا همون کدهاتو که بالا گذاشتی به این تغییر بده درست میشه.

Sub Globals
	Private EditText1 As EditText
	Private EditText2 As EditText
	Private ImageView1 As ImageView
	Private Button1 As Button
	Dim HttpJob As HttpJob
	Dim WebViewExtras1 As WebViewExtras
	Dim WebView1 As WebView
	
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("get")
	HttpJob.Initialize("Myjob1" , 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]

متشکرم استادم

کدهایی که دادید کپی ، الحاق کردم درست شد

ولی اخر نفهمیدم مشکل از کدام خط بود       

1.قبل از outerHTML باید نقطه میذاشتی که ویرگول گذاشته بودی.

2.جای callsub باید بنویسی CallSub ،چون به حروف کوچک و بزرگ حساسه.

3.جای WebViewExtract که تعریف کردی داخل گلوبال ، باید با یه اسم دیگه تعریف میکردی، مثلا: Web1 یا WebViewExtract1

[فرهاد علوی 1]

چ طور می تونم با جت المنت در برنامه عکس نمایش بدم

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

چ طور می تونم با جت المنت در برنامه عکس نمایش بدم

شما قشنگ اول بشین آموزش های تصویری رو نگاه کن.

هروقت به جواب نرسیدی یه تاپیک جدا گونه بزن و قشنگ توضیح بده که میخوای عکس رو از کدوم سایت بگیری و...

این تاپیک آموزش هست و سوالا زیاد شده.

 

ازاین به بعد برای پرسیدن سوال جدید تاپیک جدید بزنید.