ニコニコ動画APIへのアクセスの際にUserAgentを付加するようにした

git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@799 e39ad16e-3079-482e-bb30-4b4d378143b6

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index 3822fc3..8965744 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -8687,7 +8687,9 @@ RETRY:
                 Dim apiurl As String = "http://www.nicovideo.jp/api/getthumbinfo/" + mc.Groups("id").Value
                 Dim src As String = ""
                 Dim imgurl As String = ""
-                If (New HttpVarious).GetData(apiurl, Nothing, src, 5000) Then
+                Dim headers As New Dictionary(Of String, String)
+                headers.Add("User-Agent", "Tween " + fileVersion)
+                If (New HttpVarious).GetData(apiurl, headers, src, 5000) Then
                     Dim sb As New StringBuilder
                     Dim xdoc As New XmlDocument
                     Try