View Full Version : سوال: پیدا کردن لینک آخرین کامنت
hackershz
جمعه 15 آبان 1394, 19:32 عصر
با سلام و خسته نباشید به دوستان عزیز
و برنامه نویسان گرامی
لطفا اگر امکانش هست به بنده کمک کنید
من میخوام لینک آخرین و جدیدیترین کامنت وبلاگ ها رو پیدا کنم ؟
چه روشی سریعترین و بهترین روش است
به عنوان مثال برای بدست اوردن لینک آخرین کامنت این وبلاگ باید چه کار کرد
http://ebrahimkakolvand.persianblog.ir/
لطفا با نمونه توضیح بدید ممنون میشم
با تشکر
Fery666
جمعه 29 آبان 1394, 11:37 صبح
سلام با این کد امتحان کن ببین به جواب میرسی یا نه :
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 نوشته بودم .
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.