From 5efa82c0c3edc84db9aa38262b975ac8b3899dbb Mon Sep 17 00:00:00 2001 From: syo68k Date: Thu, 30 Sep 2010 12:18:40 +0000 Subject: [PATCH] =?utf8?q?Twitter=E6=A4=9C=E7=B4=A2=E3=81=AE=E8=BF=94?= =?utf8?q?=E3=81=97=E3=81=A6=E3=81=8D=E3=81=9F=E8=AD=A6=E5=91=8A=E3=82=92?= =?utf8?q?=E8=AA=8D=E8=AD=98=E3=81=97=E3=81=A6=E8=A1=A8=E7=A4=BA=E3=81=99?= =?utf8?q?=E3=82=8B=E3=82=88=E3=81=86=E3=81=AB=E3=81=97=E3=81=9F?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@923 e39ad16e-3079-482e-bb30-4b4d378143b6 --- Tween/Twitter.vb | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/Tween/Twitter.vb b/Tween/Twitter.vb index 022c6e31..695d3049 100644 --- a/Tween/Twitter.vb +++ b/Tween/Twitter.vb @@ -1617,6 +1617,7 @@ Public Class Twitter End Try Dim nsmgr As New XmlNamespaceManager(xdoc.NameTable) nsmgr.AddNamespace("search", "http://www.w3.org/2005/Atom") + nsmgr.AddNamespace("twitter", "http://api.twitter.com/") For Each xentryNode As XmlNode In xdoc.DocumentElement.SelectNodes("/search:feed/search:entry", nsmgr) Dim xentry As XmlElement = CType(xentryNode, XmlElement) Dim post As New PostClass @@ -1695,6 +1696,12 @@ Public Class Twitter End Try Next + Dim xNode As XmlNode = xdoc.DocumentElement.SelectSingleNode("/search:feed/twitter:warning", nsmgr) + + If xNode IsNot Nothing Then + Return "Warn:" + xNode.InnerText + "(" + GetCurrentMethod.Name + ")" + End If + Return "" End Function -- 2.11.0