vb2005
دوشنبه 03 تیر 1387, 19:16 عصر
سلام دوستان،من از کد زیر برای دریافت rss استقاده میکنم اما بعضی از نشانی هارو نمیتونه دریافت کنه،لطفاً کمک کنید.
Set rss = CreateObject("msxml2.domdocument")
rss.async = False
rss.Load (Text1.Text)
List1.Clear
Me.Refresh
Set myItem = rss.getElementsByTagName("item")
For I = 0 To myItem.length - 1
List1.AddItem myItem(I).getElementsByTagName("title").Item(0).firstChild.nodeValue
Next I
Set rss = CreateObject("msxml2.domdocument")
rss.async = False
rss.Load (Text1.Text)
List1.Clear
Me.Refresh
Set myItem = rss.getElementsByTagName("item")
For I = 0 To myItem.length - 1
List1.AddItem myItem(I).getElementsByTagName("title").Item(0).firstChild.nodeValue
Next I