دریافت سورس یک سایت

[ho3ein.3ven]

سلام بر همگی . دوستان من می خوام سورس یک سایت رو دریافت کنم . نیاز به سرعت زیاد دارم . اول با inet امتحان کردم که اصلا سورس این سایت رو نگرفت . بعد با rhc و web browser تست کردم که این ها هم سرعتشون خیلی پایین بود یعنی در حد 2-3 دقیقه طول کشید.بعد از تابع URLDownloadToFile هم امتحان کردم که اینم سرعت خوبی نداشت.
می خواستم ببینم راه دیگه ای هم هست ؟ من میخوام سورس سایت 4shared رو بگیرم.
ممنون از همگی

[_behnam_]

سلام.
با وینسوک امتحان کنید.

[ho3ein.3ven]

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

[محسن واژدی]

سلام علیکم

سورس زیر بررسی کنید

موفق باشید

[Veteran]

Run-time error '40006':

Wrong protocol or connection state for the requested transaction or request

[ho3ein.3ven]

سلام.ممنون جناب واژدی
الان امتحان کردم سرعت دریافتش خوبه ولی کدی که می ده یه جوریه . چیزایی که تو سورس صفحه هست تو اون کد نیست. و چطور میشه تشخیص داد که کل سورس رو خونده یا نه.
اگه این دو مورد را بررسی کنید ممنون میشم.

[محسن واژدی]

کدی که می ده یه جوریه

اگه منظورتون ابتدای سورس هست، بله بالای سورس ، نتیجه بسته ارسالی اضافه میشود (حدودا" 10-12 خط) و تا پیش از سورس صفحه ادامه دارد

چطور میشه تشخیص داد که کل سورس رو خونده یا نه

طبیعتا انتهای سورس بایستی به </html> ختم شود که در صورت یافتن این تگ در انتهای سورس میتوانیم اطمینان از دریافت کامل صفحه اطمینان حاصل کنیم (یا رویداد SendComplete)

موفق باشید

[ho3ein.3ven]

سلام . منظور من اینجوری بود که مطالبی که در صفحه هست رو من در سورس که چستچو می کنم چیزی پیدا نمی کنم.
با تشکر

[ho3ein.3ven]

و در /html هم در آخر سورس نیست . فک کنم ناقص سورس رو میگیره

[ho3ein.3ven]

سلام اگر ممکنه راهنمایی کنید .

[محسن واژدی]

سلام علیکم

دوباره سورس پست 4 را بررسی کنید

موفق باشید

[ho3ein.3ven]

سلام . ممنون خیلی خوبه.
ولی یه مشکلی که داره اینه وقتی که هنوز کل سورس رو نخونده پیقام completed رو میده.
با تشکر

[meys34]

سلام . ممنون خیلی خوبه.
ولی یه مشکلی که داره اینه وقتی که هنوز کل سورس رو نخونده پیقام completed رو میده.
با تشکر

1- چه سایتی رو میخواهید بخونید؟
2- شما از کجا میفهمید که هنوز کل سورس رو نخونده؟

[محسن واژدی]

ولی یه مشکلی که داره اینه وقتی که هنوز کل سورس رو نخونده پیقام completed رو میده.

نمیتوان گفت 100% اما در اغلب اوقات صحیح هست چراکه انتهای فایل به تگهای < /html > و < /body > ختم میشود

[ho3ein.3ven]

چون بعد از اینکه این پیغام رو میده باز هم سورس اضافه می کنه.

[ho3ein.3ven]

با تشکراز همگی . این تکه کدش رو به صورت زیر تغییر دادم درست شد:
If LCase(sBuffer) Like "*</body>" & vbCrLf & "</html>*" Then DataCompleted

[محسن واژدی]

شاید اگر کد را بصورت زیر ویرایش کنیم بهتر باشد چرا که معلوم نیست در همه سورس ها تگ Html بلافاصله پس از Body قرار گرفته باشد یا این دو تگ بدون کاراکتر انتهای خط، پشت سر هم قرار گرفته باشند

 If LCase(sBuffer) Like "*<*/body*>*<*/html*>*" Then DataCompleted     

موفق باشید

[ho3ein.3ven]

روی اون سایتی که من می خوام کار کنم اون کار جواب میده .
اگه میشه در مورد این کدی که الان گذاشتین یکم توضیح بدین.
ممنون

[محسن واژدی]

با عرض پوزش، تگ های body و html توسط وی بولتن حذف شده بودند دلیل اینکه چرا اینطور است ممکن هست بخاطر خاموش بودن تگ های HTML باشد، کد را با کمی تغییرات جایگزین کردم، ستاره های داخل تگها صرفا برای جلوگیری از حذف هستند وگرنه تاثیری در نتیجه نهایی ندارند

موفق باشید