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

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

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

خب آموزش تصویری 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 کنن این روش میتونه راحت تر باشه.

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

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

مرسی.

[Farzad Musavi 576]

رمز فایل : basic4android.org

HttpsUtils2.rar

[sajadakbari 163]

سلام

من توی قسمت سایت این مورد رو قرار دادم 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  

[gazmeh12 11]

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

خب آموزش تصویری 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 اجرا میشه :-?