From cde5c338ea3ad1fecb886fa8e660ef955f1854c9 Mon Sep 17 00:00:00 2001 From: syo68k Date: Wed, 29 Dec 2010 19:34:51 +0000 Subject: [PATCH] =?utf8?q?=E3=83=BBux.nu=E5=B1=95=E9=96=8B=E3=81=AB?= =?utf8?q?=E5=AF=BE=E5=BF=9C=20=E3=83=BB=E8=BB=A2=E9=80=81=E5=85=88?= =?utf8?q?=E5=8F=96=E5=BE=97=E3=82=92HEAD=E3=81=A7=E8=A1=8C=E3=81=86?= =?utf8?q?=E3=82=88=E3=81=86=E3=81=AB?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@1283 e39ad16e-3079-482e-bb30-4b4d378143b6 --- Tween/Connection/HttpVarious.vb | 3 ++- Tween/ShortUrl.vb | 1 + 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/Tween/Connection/HttpVarious.vb b/Tween/Connection/HttpVarious.vb index 31380203..5d644573 100644 --- a/Tween/Connection/HttpVarious.vb +++ b/Tween/Connection/HttpVarious.vb @@ -6,10 +6,11 @@ Public Class HttpVarious Private Const PostMethod As String = "POST" Private Const GetMethod As String = "GET" + Private Const HeadMethod As String = "HEAD" Public Function GetRedirectTo(ByVal url As String) As String Try - Dim req As HttpWebRequest = CreateRequest(GetMethod, New Uri(url), Nothing, False) + Dim req As HttpWebRequest = CreateRequest(HeadMethod, New Uri(url), Nothing, False) req.Timeout = 5000 req.AllowAutoRedirect = False Dim data As String = "" diff --git a/Tween/ShortUrl.vb b/Tween/ShortUrl.vb index 21c39e92..70305233 100644 --- a/Tween/ShortUrl.vb +++ b/Tween/ShortUrl.vb @@ -45,6 +45,7 @@ Public Class ShortUrl "http://htn.to/", _ "http://amzn.to/", _ "http://flic.kr/", _ + "http://ux.nu/", _ "http://moi.st/" _ } -- 2.11.0