Changeset 23259

Show
Ignore:
Timestamp:
11/12/08 00:50:10 (5 years ago)
Author:
syo68k
Message:

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

Location:
lang/vb2005/Tween/Tween
Files:
3 modified

Legend:

Unmodified
Added
Removed
  • lang/vb2005/Tween/Tween/Resources/ChangeLog.txt

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

    r23239 r23259  
    69796979            Case UrlConverter.TinyUrl       'tinyurl 
    69806980                If SrcUrl.StartsWith("http") Then 
    6981                     ret = DirectCast(_mySock.GetWebResponse("http://tinyurl.com/api-create.php?url=" + SrcUrl, resStatus, MySocket.REQ_TYPE.ReqPOSTEncode), String) 
     6981                    Try 
     6982                        ret = DirectCast(_mySock.GetWebResponse("http://tinyurl.com/api-create.php?url=" + SrcUrl, resStatus, MySocket.REQ_TYPE.ReqPOSTEncode), String) 
     6983                    Catch ex As Exception 
     6984                        ' 
     6985                    End Try 
    69826986                End If 
    69836987                If Not ret.StartsWith("http://tinyurl.com/") Then 
     
    69866990            Case UrlConverter.Isgd 
    69876991                If SrcUrl.StartsWith("http") Then 
    6988                     ret = DirectCast(_mySock.GetWebResponse("http://is.gd/api.php?longurl=" + SrcUrl, resStatus, MySocket.REQ_TYPE.ReqPOSTEncode), String) 
     6992                    Try 
     6993                        ret = DirectCast(_mySock.GetWebResponse("http://is.gd/api.php?longurl=" + SrcUrl, resStatus, MySocket.REQ_TYPE.ReqPOSTEncode), String) 
     6994                    Catch ex As Exception 
     6995                        ' 
     6996                    End Try 
    69896997                End If 
    69906998                If Not ret.StartsWith("http://is.gd/") Then 
  • lang/vb2005/Tween/Tween/Twitter.vb

    r23239 r23259  
    442442                                    _signed = False 
    443443                                    Return "GetTimeline -> Err: Can't get tinyurl." 
     444                                End Try 
     445                                Dim Response As String = "" 
     446                                Dim retUrlStr As String = "" 
     447                                retUrlStr = DirectCast(_mySock.GetWebResponse(urlStr, Response, MySocket.REQ_TYPE.ReqGETForwardTo), String) 
     448                                If retUrlStr.Length > 0 Then 
     449                                    orgData = orgData.Replace("<a href=""" + urlStr, "<a href=""" + retUrlStr) 
     450                                End If 
     451                            ElseIf orgData.IndexOf("<a href=""http://is.gd/", posl2) > -1 Then 
     452                                Dim urlStr As String 
     453                                Try 
     454                                    posl1 = orgData.IndexOf("<a href=""http://is.gd/", posl2) 
     455                                    posl1 = orgData.IndexOf("http://is.gd/", posl1) 
     456                                    posl2 = orgData.IndexOf("""", posl1) 
     457                                    urlStr = orgData.Substring(posl1, posl2 - posl1) 
     458                                Catch ex As Exception 
     459                                    _signed = False 
     460                                    Return "GetTimeline -> Err: Can't get is.gd." 
    444461                                End Try 
    445462                                Dim Response As String = ""