TwitterのRSSフィードを読むためにサブが消えるという断続的な問題があります。
95%の確率で、問題なく正常に動作します。残りの5%では、400 Bad Requestエラーが発生します(TwitterのRSSフィードは問題ありませんが、問題はTwitterではなく私の側にあることを示しています)。
コード:
Sub RetrieveStories()
'Create a new xmldocument and load the xml into it
Dim rssDoc As New XmlDocument
rssDoc.Load("http://twitter.com/statuses/user_timeline/athersgeo.rss")
'Select each item and put it into our array
Dim nodes As XmlNodeList = rssDoc.SelectNodes("rss/channel/item")
Dim i as integer = 1
divMRSS.InnerHtml = ""
Dim TweetText as string
Dim TweetURL as string
Dim UNameLen as integer = 15
For Each node As XmlNode In nodes
'Using xpath we can acess all the data we need in each node
TweetURL = node.SelectSingleNode("link").InnerText
TweetText = Mid(node.SelectSingleNode("title").InnerText,UNameLen)
TweetText = Linkify(TweetText)
TweetText = Atify(TweetText)
TweetText = Hashify(TweetText)
TweetText = "<a href=""http://twitter.com/athersgeo"" target=""_blank"">@athersgeo</a>: " & TweetText
divMRSS.InnerHtml += "" & TweetText & "<BR><a href=""" & TweetURL & """ target=""_blank"">" & RelativeTime(node.SelectSingleNode("pubDate").InnerText) & "</a><BR><HR>"
i = i + 1
If i = 5 then
Exit For
End if
Next
End Sub
私が閉じていない/処分していないものがあり、それが接続を吸い込んでいますか?それとも、盲目的に愚かなものをコーディングしただけですか?(これは初めてではないでしょう!)