رفتن به مطلب

گرفتن سورس کد سایت از طریق کتابخانه HttpUtils2


مهدی ایزدی

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

سلام خدمت همه کاربران عزیز

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

از طریق HttpUtils2 و متغیر HttpJob هم میشه همین کارها رو تا حدودی انجام داد ولی کار مشکل تر میشه.

مثلا کار ساده ای که میشه انجام داد برای گرفتن سورس کد کل سایت میتونید به این صورت عمل کنید:

Sub Globals
   Dim HttpJob1 As HttpJob
   Private EditText1 As EditText
End Sub

Sub Activity_Create(FirstTime As Boolean)
   Activity.LoadLayout("Layout1")
   HttpJob1.Initialize("HttpJob1",Me)
End Sub

Sub Button1_Click
   HttpJob1.Download("http://answercenter.ir")
End Sub

Sub JobDone(Job As HttpJob)
EditText1.Text = Job.GetString
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

کار خاصی رو انجام ندادیم . فقط اومدین سایت مورد نظر رو دانلود کردیم و بعد از دانلود شدن (JobDone ) ، کل سورس ها رو GetString کردیم و در یک EditText قرار دادیم.

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

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

میشه کتابخانه HttpUtils2 رو قرار بدین من ندارمش.

مرسی.

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

  • 5 ماه بعد...

سلام

من توی قسمت سایت این مورد رو قرار دادم http://time4basic.hj.cx/

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

به این صورت هم قرار دادم کار نکرد. http://time4basic.hj.cx/index.php

من کد شما رو اینجوری ویرایش کردم حل شد.

Sub Globals    Dim HttpJob1 As HttpJob	Private EditText1 As EditTextEnd Sub
Sub Activity_Create(FirstTime As Boolean)    Activity.LoadLayout("Layout1")    HttpJob1.Initialize("HttpJob1",Me)	Dim download_update_softwear_job As HttpJobdownload_update_softwear_job.Initialize("",Me)download_update_softwear_job.Download("http://time4basic.hj.cx/index.php")End Sub
Sub JobDone(Job As HttpJob)EditText1.Text = Job.GetStringEnd Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub  

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

  • 1 ماه بعد...
سلام خدمت همه کاربران عزیز

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

از طریق HttpUtils2 و متغیر HttpJob هم میشه همین کارها رو تا حدودی انجام داد ولی کار مشکل تر میشه.

مثلا کار ساده ای که میشه انجام داد برای گرفتن سورس کد کل سایت میتونید به این صورت عمل کنید:

Sub Globals
   Dim HttpJob1 As HttpJob
   Private EditText1 As EditText
End Sub

Sub Activity_Create(FirstTime As Boolean)
   Activity.LoadLayout("Layout1")
   HttpJob1.Initialize("HttpJob1",Me)
End Sub

Sub Button1_Click
   HttpJob1.Download("http://answercenter.ir")
End Sub

Sub JobDone(Job As HttpJob)
EditText1.Text = Job.GetString
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

کار خاصی رو انجام ندادیم . فقط اومدین سایت مورد نظر رو دانلود کردیم و بعد از دانلود شدن (JobDone ) ، کل سورس ها رو GetString کردیم و در یک EditText قرار دادیم.

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

یه سئوال چرا خود به خود JobDone اجرا میشه :-?

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

بایگانی شده

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

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

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