svnno****@sourc*****
svnno****@sourc*****
2010年 12月 11日 (土) 02:42:25 JST
Revision: 1200 http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1200 Author: syo68k Date: 2010-12-11 02:42:25 +0900 (Sat, 11 Dec 2010) Log Message: ----------- 変数名修正 Modified Paths: -------------- trunk/Tween/Connection/HttpConnectionOAuth.vb -------------- next part -------------- Modified: trunk/Tween/Connection/HttpConnectionOAuth.vb =================================================================== --- trunk/Tween/Connection/HttpConnectionOAuth.vb 2010-12-10 17:24:00 UTC (rev 1199) +++ trunk/Tween/Connection/HttpConnectionOAuth.vb 2010-12-10 17:42:25 UTC (rev 1200) @@ -335,10 +335,10 @@ 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