چند سوال در مورد کامنت گذاري داشتم

[gorg313]

((سلام به همه ي برنامه نويسان و کاربران عزيز))


من چند تا سوال دارم به خاطر همين سوالامو تک تک مي پرسم که به جواب دقيقتر برسم

در مورد اينکه بتونم

آخرين پست يه سايت يا وبلاگ را به دست بيارم بايد از چه روشي استفاده کنم

مثلآ بلوگفا


بعد اينکه وقتي کامنت گذاشتم تو بلوگفا چند حالت بوجود مياد


1.پستی با شماره درخواستی در وبلاگ به ثبت نرسیده یا حذف شده است


2.امکان مشاهده یا درج نظر برای این پست وجود ندارد


3.نظر شما به ثبت رسید و پس از تایید نویسنده وبلاگ نمایش داده خواهد شد

...............

مثلا من ميخوام وقتي نظر ارسال شد پيام بده نظر با موفقعيت ارسال شد

و اگر ارسال نشد يا چنين پستي امکان درج نظر براش نبود پيغام مخصوص خودشو بده

ممنون ميشم با توضيح و کد راهنمايي کنيد

ممنون ميشم کمکم کنيد :خجالت:

[niksalehi]

سلام!
در مورد پیدا کردن اخرین پست وبلاگ های بلاگفا میتونی از این آدرس استفاده کتید:

www.yourblog.blogfa.com/posts
در مورد سوال بعد هم : کامنت رو که گذاشتی، متنِ وب براوزر رو بگیر، اگه جمله "نظر شما به ثبت رسید" توش بود، پیغام موفقیت در ثبت رو بده!
یه کدی شبیه به این:

dim x az string
x =webbrowser1.Document.Body.innertext
if instr(1,x,"Bazare Shoma Be Sabt Resid") > 0 then
'your code
else
'your code
end if

[reza13812]

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

Dim Link As String

Private Sub Command1_Click()
URL = "http://" & txtblogID.Text & ".blogfa.com/rss.aspx"
Set rss = CreateObject("msxml2.domdocument")
rss.async = False
rss.Load (URL)
Set myItem = rss.getElementsByTagName("item")
Link = myItem(0).getElementsByTagName("link").Item(0).firstChild.nodeValue
MsgBox Link
End Sub

[gorg313]

آقاي صالحي و آقا رضا از هر دو تاتون ممنونم

واقعآ کمک خوبي بود

سوال دوم اينه که مراحل کامنت گذاري اتوماتيک چجوره ؟ + چند تا سوال ريز:خجالت:

1. ابتدا وبلاگ لود ميشه
2. آدرس وبلاگ + آي دي لود ميشه و پست وبلاگ را بارگذاري ميکنه
3.فيلدها و کد کپچا بارگذاري ميشه (اينکه کد کپچا در بلوگفا در صورتي بارگذاري ميشه رو تصوير که کليد در کلاس خوده کامنت گذاري بلوگفا زده بشه)
مثل ::: نمونه زير
WebBrowser1.Document.getElementById("txtbody").focus
SendKeys "{tab}", True
ولي بعضي اوقات کپچا لود نميشه؟؟ البته تو خوده کامنت گذاري بلوگفا ميشه ولي تو پيکچر باکس فرم نشون نميده و دوباره هم تصوير کد را در پيکچر باکس فراخواني ميکنم نميشه
اگه بخوام با تامير کد بالا را در موقع کامنت گذاري بنويسم به چه صورت ميشه بعد اول SendKey ميکنه و سپس کپچا را لود ميکنه؟؟
ممنون ميشم کمي در مورد اين توضيح بديد
4.بعد از تکميل فيلد ها و بارگذاري کد کپچا نظر به ثبت ميرسه

نکته::: آيا اين مراحل که من نوشتم درست هست؟؟؟:متفکر:
سوال اصلي ::: اگه بخوايم نرم افزار اتومات نظر را بذاره و بعد از گذاشتن نظر به وبلاگ بعدي بره چه جور من مراحل را طي کنم؟ منظورم همون مراحل را تايمر انجام بده تشخيص بده که مراحل به چه صورت انجام شده
وقتي کامنت به صورت کامل لود شد بره به مرحله ي دو و ....

اگه کسي راهنمايي خوب داره بهم بگه سورس کد هم با توضيح باشه خودم مي تونم بنويسم فقط مراحلش گيجم کرده :خجالت:

[niksalehi]

مراحل تقریبا درسته، ابتدا باید لیست وبلاگ های به روز شده بلاگفا رو جمع کنیم( مثلا توی لیستباکس)
بعد اخرین پست وبلاگ اول ( ایتم اول لیست باکس) رو پیدا میکنیم ، بعد وب براوزر رو لود میکنیم، بعد با استفاده از این سورس ( که خیلی بهتر از send key هستش)( و اقای مستانی زحمتش رو کشیده) کپچا رو توی پیکچر باکس لود میکنیم: http://barnamenevis.org/attachment.php?attachmentid=107801&d=1374623936
بعد فیلد ها رو پر میکنیم، فرم رو سابمیت میکنیم... بعد از اینکه متن فرمِ سابمیت شده رو ارزیابی کردیم ( برای موفقیت امیز بودن ثبت نظر ) ، ایتم اول لیست باکس رو remove میکنیم ، دوباره همین روال و طی میکنیم...
موفق باشید.