Changeset 23259

Timestamp:

11/12/08 00:50:10 (5 years ago)

Author:

syo68k

Message:

is.gdで圧縮されたURLのデコード対応と、圧縮処理での例外のハンドリング

Location:

lang/vb2005/Tween/Tween

Files:

• Resources/ChangeLog.txt (modified) (1 diff)
• Tween.vb (modified) (2 diffs)
• Twitter.vb (modified) (1 diff)

lang/vb2005/Tween/Tween/Resources/ChangeLog.txt

@@ -1 +1 @@
 更新履歴
 
+***Ver0.1.0.2(2008/11/12)
+-URL圧縮処理で通信エラーが起こった場合を考慮していなかったのを修正
+-is.gdで圧縮されたURLのデコードに対応
 ***Ver0.1.0.1(2008/11/11)
 -「操作」メニューに「返信先ステータスを開く」を追加。ショートカットキーはCTRL+Iです。

lang/vb2005/Tween/Tween/Tween.vb

@@ -6979 +6979 @@
             Case UrlConverter.TinyUrl       'tinyurl
                 If SrcUrl.StartsWith("http") Then
-                    ret = DirectCast(_mySock.GetWebResponse("http://tinyurl.com/api-create.php?url=" + SrcUrl, resStatus, MySocket.REQ_TYPE.ReqPOSTEncode), String)
+                    Try
+                        ret = DirectCast(_mySock.GetWebResponse("http://tinyurl.com/api-create.php?url=" + SrcUrl, resStatus, MySocket.REQ_TYPE.ReqPOSTEncode), String)
+                    Catch ex As Exception
+                        '
+                    End Try
                 End If
                 If Not ret.StartsWith("http://tinyurl.com/") Then
@@ -6986 +6990 @@
             Case UrlConverter.Isgd
                 If SrcUrl.StartsWith("http") Then
-                    ret = DirectCast(_mySock.GetWebResponse("http://is.gd/api.php?longurl=" + SrcUrl, resStatus, MySocket.REQ_TYPE.ReqPOSTEncode), String)
+                    Try
+                        ret = DirectCast(_mySock.GetWebResponse("http://is.gd/api.php?longurl=" + SrcUrl, resStatus, MySocket.REQ_TYPE.ReqPOSTEncode), String)
+                    Catch ex As Exception
+                        '
+                    End Try
                 End If
                 If Not ret.StartsWith("http://is.gd/") Then

lang/vb2005/Tween/Tween/Twitter.vb

@@ -442 +442 @@
                                     _signed = False
                                     Return "GetTimeline -> Err: Can't get tinyurl."
+                                End Try
+                                Dim Response As String = ""
+                                Dim retUrlStr As String = ""
+                                retUrlStr = DirectCast(_mySock.GetWebResponse(urlStr, Response, MySocket.REQ_TYPE.ReqGETForwardTo), String)
+                                If retUrlStr.Length > 0 Then
+                                    orgData = orgData.Replace("<a href=""" + urlStr, "<a href=""" + retUrlStr)
+                                End If
+                            ElseIf orgData.IndexOf("<a href=""http://is.gd/", posl2) > -1 Then
+                                Dim urlStr As String
+                                Try
+                                    posl1 = orgData.IndexOf("<a href=""http://is.gd/", posl2)
+                                    posl1 = orgData.IndexOf("http://is.gd/", posl1)
+                                    posl2 = orgData.IndexOf("""", posl1)
+                                    urlStr = orgData.Substring(posl1, posl2 - posl1)
+                                Catch ex As Exception
+                                    _signed = False
+                                    Return "GetTimeline -> Err: Can't get is.gd."
                                 End Try
                                 Dim Response As String = ""