رفتن به مطلب

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


کاربر ناشناس

ارسال‌های توصیه شده

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

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

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

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

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

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

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

aval1.jpg

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

	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

dovom2.jpg

حال در 

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

sevom3.jpg

 

خوب همان طور که میدانید وقتی که 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)")

panjom5.jpg

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

Sub process_HTML(HTML As String)

End Sub

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

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

sheshin6.jpg

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

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

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

LOGO.png

لینک ارسال
به اشتراک گذاری در سایت های دیگر

  • 1 ماه بعد...

درود

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

بفرمایید

 

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

  • 2 هفته بعد...

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

 

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

 

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

 

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

 

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...