From f6c72b3c6613c097d36b8a2fd0821562471cfee1 Mon Sep 17 00:00:00 2001 From: syo68k Date: Fri, 10 Dec 2010 17:42:25 +0000 Subject: [PATCH] =?utf8?q?=E5=A4=89=E6=95=B0=E5=90=8D=E4=BF=AE=E6=AD=A3?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@1200 e39ad16e-3079-482e-bb30-4b4d378143b6 --- Tween/Connection/HttpConnectionOAuth.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Tween/Connection/HttpConnectionOAuth.vb b/Tween/Connection/HttpConnectionOAuth.vb index a4ddda31..eaa082ff 100644 --- a/Tween/Connection/HttpConnectionOAuth.vb +++ b/Tween/Connection/HttpConnectionOAuth.vb @@ -335,10 +335,10 @@ Public Class HttpConnectionOAuth AppendOAuthInfo(webReq, query, requestToken, "") 'HTTP応答取得 Dim header As New Dictionary(Of String, String) From {{"Date", ""}} - Dim responceCode As HttpStatusCode = GetResponse(webReq, content, header, False) - If responceCode = HttpStatusCode.OK Then Return responceCode + Dim responseCode As HttpStatusCode = GetResponse(webReq, content, header, False) + If responseCode = HttpStatusCode.OK Then Return responseCode If Not String.IsNullOrEmpty(header("Date")) Then content += Environment.NewLine + "Check the Date & Time of this computer." + Environment.NewLine + "Server:" + CDate(header("Date")).ToString + " PC:" + Now.ToString - Return responceCode + Return responseCode End Function #End Region -- 2.11.0