پیدا کردن لینک آخرین کامنت

[hackershz]

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

و برنامه نویسان گرامی

لطفا اگر امکانش هست به بنده کمک کنید

من میخوام لینک آخرین و جدیدیترین کامنت وبلاگ ها رو پیدا کنم ؟

چه روشی سریعترین و بهترین روش است

به عنوان مثال برای بدست اوردن لینک آخرین کامنت این وبلاگ باید چه کار کرد

http://ebrahimkakolvand.persianblog.ir/

لطفا با نمونه توضیح بدید ممنون میشم

با تشکر

[Fery666]

سلام با این کد امتحان کن ببین به جواب میرسی یا نه :




Dim bb
Public web As String
-----------------------------

DoEvents

WebBrowser3.Navigate("http://www." & ListBox1.Text & ".persianblog.ir/rss.xml")
Do Until WebBrowser3.ReadyState = WebBrowserReadyState.Complete
DoEvents
Loop
bb = Split(WebBrowser3.Document.Body.All.Item(150).Oute rText, "<comments>")
bb = Split(bb(1), "</comments>")
web = bb(0)
WebBrowser1.Navigate(web)

بجای ListBox1.Text اسم سایت رو بنویس فقط اسم مثلا : ebrahimkakolvand


این کدم برای پیدا کردن عکس کپچا هستش :

Private Sub WebBrowser1_DocumentCompleted_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEv entArgs) Handles WebBrowser1.DocumentCompleted
Application.DoEvents()



pic = WebBrowser1.Document.GetElementsByTagName("img").Item(0).GetAttribute("src")

بعد با استفاده از کد دانلود این Pic رو دانلود میکنی و در یک Picture Box نشون میدی .


End Sub



من برنامه به زبان .net نوشته بودم .