Changeset 29481

Show
Ignore:
Timestamp:
02/03/09 18:15:50 (4 years ago)
Author:
kiri_feather
Message:

0.2.4.0&0.2.5.0。構造変更後の初リリース

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

Legend:

Unmodified
Added
Removed

  • lang/vb2005/Tween/Tween/AnalyzeKey.vb

    r28745 r29481  
    11Public Module AnalyzeKey 
    2 '    このファイルはデバッグビルドのTweenにより自動作成されました   作成日時  2009/01/21 15:49:28 
     2'    このファイルはデバッグビルドのTweenにより自動作成されました   作成日時  2009/02/03 11:12:03 
    33 
    4     Public _splitPost As String = "<tr id=""status_" 
    5     Public _splitPostRecent As String = "<tr id=""status_" 
     4    Public _splitPost As String = "<li id=""status_" 
     5    Public _splitPostRecent As String = "<li id=""status_" 
    66    Public _statusIdTo As String = """" 
    7     Public _splitDM As String = "<tr id=""direct_message_" 
     7    Public _splitDM As String = "<li id=""direct_message_" 
    88    Public _parseName As String = "://twitter.com/" 
    99    Public _parseNameTo As String = """" 
    … …  
    2323    Public _parseStar As String = "<a class=""" 
    2424    Public _parseStarTo As String = """" 
    25     Public _parseStarEmpty As String = "non-fav" 
     25    Public _parseStarEmpty As String = "fav-action non-fav" 
    2626    Public _followerList As String = "<select id=""direct_message_user_id"" name=""user[id]""><option value="""" selected=""selected"">" 
    2727    Public _followerMbr1 As String = "/option>" 

  • lang/vb2005/Tween/Tween/My Project/AssemblyInfo.vb

    r29394 r29481  
    5555' <Assembly: AssemblyVersion("1.0.*")>  
    5656 
    57 <Assembly: AssemblyVersion("0.2.3.5")>  
    58 <Assembly: AssemblyFileVersion("0.2.3.5")>  
     57<Assembly: AssemblyVersion("0.2.5.0")>  
     58<Assembly: AssemblyFileVersion("0.2.5.0")>  
    5959 

  • lang/vb2005/Tween/Tween/MySocket.vb

    r28940 r29481  
    7676                'IE設定（システム設定）はデフォルト値なので処理しない 
    7777        End Select 
     78        _proxyType = ProxyType 
    7879    End Sub 
    7980 
    … …  
    8384            Optional ByVal data As String = "", _ 
    8485            Optional ByVal referer As String = "", _ 
    85             Optional ByVal timeOut As Integer = 15000, _ 
     86            Optional ByVal timeOut As Integer = 20000, _ 
    8687            Optional ByVal userAgent As String = "Mozilla/5.0 (Windows; U; Windows NT 5.1; ja; rv:1.9) Gecko/2008051206 Firefox/3.0") As Object 
    8788        Dim webReq As HttpWebRequest 
    … …  
    115116               reqType = REQ_TYPE.ReqPOSTAPI Then 
    116117                webReq.Method = "POST" 
    117                 webReq.Timeout = timeout 
     118                webReq.Timeout = timeOut 
    118119                Dim dataB As Byte() = Encoding.ASCII.GetBytes(data) 
    119120                webReq.ContentLength = dataB.Length 

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

    r29394 r29481  
    11更新履歴 
    22 
    3 ***Ver0.2.3.5(2009/2/1 trunk) 
     3***Ver0.2.5.0(2009/2/3) 
     4-設定->通信のプロキシ設定が使われないバグ修正 
     5-DMの取得で、送信分・受信分のページを歯抜けで取得するバグ修正 
     6-通信タイムアウトのデフォルト値を15秒->20秒へ 
     7-日時昇順で「新着時リスト固定」していてもスクロールしてしまうバグ修正 
     8-新着取得後の選択状態再設定で例外が頻発するバグ修正 
     9-他タブ同発言移動（Alt + ←/→）で発言未選択で行うと例外発生するバグ修正 
     10***Ver0.2.4.0(2009/2/3) 
    411-起動時読み込みモードとReplyタブで更新したとき以外のタイミングでReplyタブを取得していなかったバグ修正 
    512-ちらつきが激しくなるようなので描画処理を元に戻した 
    6 ***Ver0.2.3.4(2009/2/1 trunk) 
    713-未読管理しないタブでもフォントが未読になるバグ修正 
    814-CTRL+B/CTRL+SHIFT+Bでフォントを即時切り替えるようにした 
    915-描画周り微調整 
    10 ***Ver0.2.3.3(2009/1/30 trunk) 
    1116-タブの全発言を保存しようとするとエラーを起こすバグ修正 
    1217-描画を若干高速化 
    … …  
    1924-終了時に時間がかかることがあったのを減らした 
    2025-発言取得時のスクロールを調整 
    21 ***Ver0.2.3.2(2009/1/27 trunk) 
    2226-再フィルタの実行時に移動フィルタが正しく動作しないバグを修正 
    23 ***Ver0.2.3.1(2009/1/27 trunk) 
    2427-データ保持方式変更 
    2528-Sourceの取得に対応 
    … …  
    3538-Followersリスト取得結果をキャッシュするようにした 
    3639-片思いリスト取得メニューにサブメニューを追加し、キャッシュ無効の状態での全件取得と現在からの差分取得ができるようにした 
    37 ***Ver0.2.2.0(2009/1/22) 
     40***Ver0.2.3.0(2009/1/22) 
    3841-取得失敗時に再サインインができないバグ修正 
    3942***Ver0.2.2.0(2009/1/22) 

  • lang/vb2005/Tween/Tween/Setting.vb

    r29226 r29481  
    255255            _MyStatusText = StatusText.Text 
    256256            _MyPlaySound = PlaySnd.Checked 
    257             TweenMain.PlaySoundMenuItem.Checked = _MyPlaySound 
     257            TweenMain.PlaySoundMenuItem.Checked = _MyPlaySound  'これは勘弁 
    258258            _MyUnreadManage = UReadMng.Checked 
    259259            _MyOneWayLove = OneWayLv.Checked 

  • lang/vb2005/Tween/Tween/Tween.vb

    r29454 r29481  
    768768                    If ListLockMenuItem.Checked Then 
    769769                        '制御しない 
    770                         smode = -1 
     770                        'smode = -1 
     771                        '現在表示位置へ強制スクロール 
     772                        topId = _statuses.GetId(_curTab.Text, _curList.TopItem.Index) 
     773                        smode = 0 
    771774                    Else 
    772775                        '最下行が表示されていたら、最下行へ強制スクロール。最下行が表示されていなかったら制御しない 
    … …  
    15151518                    SetMainWindowTitle() 
    15161519                End If 
    1517                 GetTimeline(WORKERTYPE.Timeline, 1, 0) 
     1520                If rslt.retMsg.Length = 0 Then GetTimeline(WORKERTYPE.Timeline, 1, 0) 
    15181521            Case WORKERTYPE.Follower 
    15191522                _waitFollower = False 
    … …  
    30473050 
    30483051        If _curTab.Text = "Direct" Then Exit Sub ' Directタブは対象外（見つかるはずがない） 
     3052        If _curList.SelectedIndices.Count = 0 Then Exit Sub '未選択も処理しない 
     3053 
    30493054        targetId = GetCurTabPost(_curList.SelectedIndices(0)).Id 
    30503055 
    … …  
    47444749    Private Sub SelectListItem(ByVal LView As DetailsListView, ByVal Index() As Integer, ByVal FocusedIndex As Integer) 
    47454750        '複数 
    4746         For i As Integer = _curList.SelectedIndices.Count - 1 To 0 Step -1 
    4747             LView.Items(i).Selected = False 
     4751        For i As Integer = LView.SelectedIndices.Count - 1 To 0 Step -1 
     4752            LView.Items(LView.SelectedIndices(i)).Selected = False 
    47484753        Next 
    47494754        LView.SelectedIndices.Clear() 

  • lang/vb2005/Tween/Tween/Twitter.vb

    r29454 r29481  
    307307            ' tr 要素の class 属性を消去 
    308308            Do 
    309                 Dim idx As Integer = retMsg.IndexOf("<tr class=""", StringComparison.Ordinal) 
     309                Dim idx As Integer = retMsg.IndexOf(" class=""hentry", StringComparison.Ordinal) 
    310310                If idx = -1 Then Exit Do 
    311                 retMsg = retMsg.Remove(idx + 4, retMsg.IndexOf("""", idx + 11 + 1, StringComparison.Ordinal) - idx - 2) ' 11 = "<tr class=""".Length 
     311                retMsg = retMsg.Remove(idx, retMsg.IndexOf("""", idx + 14, StringComparison.Ordinal) - idx + 1) ' 11 = "<tr class=""".Length 
    312312            Loop 
    313313 
    … …  
    662662        End If 
    663663        '起動時モード  
    664         Dim num As Integer = (endPage - page + 1) * 2 - 1 
     664        Dim num As Integer = endPage - page 
    665665        Dim ar(num) As IAsyncResult 
    666666        Dim dlgt(num) As GetDirectMessageDelegate 
    667667 
    668668        For idx As Integer = 0 To num 
    669             If idx Mod 2 = 0 Then 
    670                 gType = WORKERTYPE.DirectMessegeRcv 
    671             Else 
    672                 gType = WORKERTYPE.DirectMessegeSnt 
    673             End If 
     669            gType = WORKERTYPE.DirectMessegeRcv 
    674670            dlgt(idx) = New GetDirectMessageDelegate(AddressOf GetDirectMessageThread) 
    675671            GetTmSemaphore.WaitOne() 
    … …  
    688684            If trslt.Length > 0 AndAlso rslt.Length = 0 Then rslt = trslt 
    689685        Next 
     686        For idx As Integer = 0 To num 
     687            gType = WORKERTYPE.DirectMessegeSnt 
     688            dlgt(idx) = New GetDirectMessageDelegate(AddressOf GetDirectMessageThread) 
     689            GetTmSemaphore.WaitOne() 
     690            ar(idx) = dlgt(idx).BeginInvoke(page + idx, read, endPage + idx, gType, Nothing, Nothing) 
     691        Next 
     692        For idx As Integer = 0 To num 
     693            Dim trslt As String = "" 
     694            Try 
     695                trslt = dlgt(idx).EndInvoke(ar(idx)) 
     696            Catch ex As Exception 
     697                '最後までendinvoke回す（ゾンビ化回避） 
     698                ExceptionOut(ex) 
     699                rslt = "GetDirectMessageErr" 
     700            End Try 
     701            If trslt.Length > 0 AndAlso rslt.Length = 0 Then rslt = trslt 
     702        Next 
    690703        Return rslt 
    691704    End Function 
    … …  
    729742            ' tr 要素の class 属性を消去 
    730743            Do 
    731                 Dim idx As Integer = retMsg.IndexOf("<tr class=""", StringComparison.Ordinal) 
     744                Dim idx As Integer = retMsg.IndexOf(" class=""hentry", StringComparison.Ordinal) 
    732745                If idx = -1 Then Exit Do 
    733                 retMsg = retMsg.Remove(idx + 4, retMsg.IndexOf("""", idx + 11 + 1, StringComparison.Ordinal) - idx - 2) ' 11 = "<tr class=""".Length 
     746                retMsg = retMsg.Remove(idx, retMsg.IndexOf("""", idx + 14, StringComparison.Ordinal) - idx + 1) ' 11 = "<tr class=""".Length 
    734747            Loop 
    735748