آموزش گام به گام گت المنت (متنی)

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

با سلام و خسته نباشید خدمت تمامی کاربران گرامی

همان جور که از عنوان تاپیک پیداست ما در این تاپیک میخواهیم آموزش  گت المنت رو از 0 تا جایی که یاد داریم به صورت متنی بدیم...

خوب امروز قسمت اول این آموزش رو میدیم

​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•​•

بسم الله الرحمن الرحیم

جلسه اول گت المنت :

ابتدا کتابخانه های WebViewExtras , HttpUtils2 به پروژه اد میکنیم

و برای هر یک ، یک متغیر تعریف میکنیم به صورت زیر :

	Dim HttpJob1 As HttpJob
	Dim WebViewExtras1 As WebViewExtras

حال کدنویسی های لازم رو انجام میدیم

اول یک WebView به پروژه اد میکنیم (به صورت کدنویسی نه در دیزاین)

Sub Globals
	Dim WebView1 As WebView
End Sub

و یک ادیت تکست هم به پروژه اد میکنیم در دیزاین

Sub Globals
	Dim t As AutoCompleteEditText
End Sub

حال در 

Sub Activity_Create(FirstTime As Boolean)

End Sub

کدنویسی رو آغاز میکنیم

اول لایوت رو معرفی میکنیم

Activity.LoadLayout("get")

بعد HttpJob رو معرفی میکنیم بر اساس اون متغیری که بالا معرفی کردیم

HttpJob1.Initialize("Myjob1" , Me)

و WebView را که با کدنویسی ساختیم Initialize میکنیم

 

WebView1.Initialize("WebView1")

خوب حالا میام WebView رو به WebViewExtras1 معرفی میکنیم و در interFace کال ساب رو معرفی میکنیم

WebViewExtras1.addJavascriptInterface(WebView1 , "B4A")

خوب حالا میاییم کدی مینویسیم که WebView از کلاینت های جدید بتونه ساپورت کنه و "" (پارامتر دوم) اسم رویداد هست

به این دلیل ما این خالی میزاریم چون به رویداد WebViewExtras1 نیاز نداریم

WebViewExtras1.addWebChromeClient(WebView1 , "")

حال میایم یک سایت رو در WebView لود میکنیم

WebView1.LoadUrl("http://217.219.20.41/login.aspx")

خوب این از کدنویسی Activity_Create

 

خوب همان طور که میدانید وقتی که WebView رو از طریق دیزاین به پروژه اد میکنیم رویدادی به ما میده به اسم PageFinished

حال چون ما از طریق کدنویسی WebView ساختیم باید باییم یه ساب به اسم WebView1_PageFinished براش بسازیم

Sub WebView1_PageFinished(URL As String)
	
End Sub

در این سابی که تعریف کردیم ؛ کدهایی داخل این ساب مینویسیم بعد از اتمام لود سایت مورد نظر است که اجراء میشود

بگذریم ؛ تو این کدی که براتون میزارم به WebViewExtras1 گفتیم کد جاوا اسکریپت رو روی WebView اجراء کنه و چون این کد مقدار برگشتی میده از طریق B4A.CallSub دادیمش به ساب process_HTML ، process_HTML همان اسم رویداد ما است که میتوانیم ان را تغییر دهیم برای مثال : shayan

به کد جاوا اسکریپت هم گفتیم بیاد سورس کدهای سایت رو برای ما بگیره.

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

حالا کد را گرفته ، و کد رو میفرسته به رویداد process_HTML که ما هم ایجادش میکنیم به این صورت

Sub process_HTML(HTML As String)

End Sub

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

	HTML = HTML.Replace("""" , "'")
	t.Text = HTML

در این دو خط گفتیم داخل کدهای سایت هرجا که " رو پاک کنه و جای انها ' بزاره

و نتیجه ی کار رو بریزه در ادیت تکست

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

 منتظر آموزش های بعدی در همین تاپیک باشید 

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

درود

دوستان مثل اینکه یادم رفته بود سورس رو براتون قرار بدم

بفرمایید

 

http://answercenter.ir/topic/9311-سورس-گت-المنت-لود-عکس-گرفتن-کدهای-سایت/

[mohammad-alone 564]

بسیار عالی برای مبتدی های این متد بسیار عالی هستش.

 

منتظر بروزرسانی هستیم

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

بسیار عالی برای مبتدی های این متد بسیار عالی هستش.

 

منتظر بروزرسانی هستیم

 

به زودی آموزش ساخت تبلیغات عدد (اما با مدیریت خودتون ، یعنی تبلیغات انلاین با قابلیت تغییر) و همین متنی رو دارم پر میکنم

 

شب میزارم انجمن