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

[hackershz]

با سلام خدمت شما دوست عزیز خسته نباشید

سوال ما »

ما یه وبلاگ داریم توی بلاگفا
مثلا
www.google.blogfa.com
حالا میخوام یه برنامه بنویسم که آدرس وبو که دادی آخرین پست رو بهت بگه 1-2-3 و....

مثلا اخرین پست این وبلاگ اینه 264

لطفا اگه میتونید و راهی بلدید با مثال ویبی به من توضیح بدید

مرسی از همتون خسته نباشید منتظر جواب هستم :قلب:

[r0ot$harp]

دوست عزیز در سورس صفحه اصلی این سایت مقداری هست به نام BlogComments .

شما باید بزرگترین مقدار این آرایه رو پیدا کنید :


BlogComments=[264,5,263,2,262,0,261,0,260,3,259,0,257,0,256,0,25 5,0,254,0,253,0,252,1,251,0,250,1,249,0,248,0,247, 0,246,1,245,1,244,0,243,0,242,0,241,0,240,0,239,0, 238,0,237,0,236,0,235,0,234,0];

باتشکر احسان

[hackershz]

دوست عزیز در سورس صفحه اصلی این سایت مقداری هست به نام BlogComments .

شما باید بزرگترین مقدار این آرایه رو پیدا کنید :


BlogComments=[264,5,263,2,262,0,261,0,260,3,259,0,257,0,256,0,25 5,0,254,0,253,0,252,1,251,0,250,1,249,0,248,0,247, 0,246,1,245,1,244,0,243,0,242,0,241,0,240,0,239,0, 238,0,237,0,236,0,235,0,234,0];

باتشکر احسان


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


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

حالا به فرض مثال من سورس صفحه رو توی یه تکس باکس گرفتم

حالا چه جوری پست اخر رو شمارشو درج کنم توی تکست باکس

ماشالله شماره حرفه ای هستید و ما مبتدی لطفا با مثال به ما توضیح بدید مرسی

[mohammadsamadi1377]

کسی نیست جواب بده ؟

[saber67]

همون آدرس وبلاگی که گذاشتی رو یه Posts به آخرش اضافه کن تا این شکلی بشه
http://www.google.blogfa.com/posts
اگه این آدرس رو تو مرورگرت وارد کنی می بینی که لیست آخرین پست های وبلاگ توش درج شده (RSS وبلاگه)
برای بدست آوردن لینک آخرین پست (که شماره پست هم توش هست) این کارو می کنی:

یه Webbrowser به فرم اضافه کن و کد زیر رو توی برنامه استفاده کن:
Dim StrPostNumber As String
WebBrowser1.Navigate ("http://www.google.blogfa.com" & "/posts")
Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
StrPostNumber = WebBrowser1.Document.links.Item(1)
خب تا اینجا لینک رو بدست آوردیم که مثلا این شکلیه:
http://www.google.blogfa.com/post-260.aspx
حالا باید متن های اضافه رو حذف کنی تا فقط شماره پست باقی بمونه
برای این کار هم از این روش استفاده کن:
StrPostNumber = Replace(StrPostNumber, "http://", "")
StrPostNumber = Replace(StrPostNumber, "www.", "")
StrPostNumber = Replace(StrPostNumber, ".blogfa.com", "")
که البته کامل ننوشتم، بقیش رو خودت بنویس که تمام متن های اضافه رو حذف کنه
موفق باشی