OSDN Git Service
(root)
/
opentween
/
open-tween.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
6d25d71
)
ニコニコ動画APIへのアクセスの際にUserAgentを付加するようにした
author
syo68k
<syo68k@users.sourceforge.jp>
Thu, 2 Sep 2010 10:10:15 +0000
(10:10 +0000)
committer
Kimura Youichi
<kim.upsilon@bucyou.net>
Sat, 18 Feb 2012 14:15:08 +0000
(23:15 +0900)
git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@799
e39ad16e
-3079-482e-bb30-
4b4d378143b6
Tween/Tween.vb
patch
|
blob
|
history
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