Changeset 25202

Show
Ignore:
Timestamp:
11/28/08 13:48:19 (5 years ago)
Author:
kiri_feather
Message:

0160リリース
DM取得できない問題に対応
パースエラーでファイル出力（コマンドライン引数/d）
リソースファイル入れ替えをTweenUpに任せるように

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

Legend:

Unmodified
Added
Removed

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

    r24812 r25202  
    5555' <Assembly: AssemblyVersion("1.0.*")>  
    5656 
    57 <Assembly: AssemblyVersion("0.1.5.0")>  
    58 <Assembly: AssemblyFileVersion("0.1.5.0")>  
     57<Assembly: AssemblyVersion("0.1.6.0")>  
     58<Assembly: AssemblyFileVersion("0.1.6.0")>  
    5959 

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

    r24810 r25202  
    255255                            Directory.CreateDirectory(My.Application.Info.DirectoryPath + "\en") 
    256256                        End If 
    257                         Dim fs As New System.IO.FileStream(My.Application.Info.DirectoryPath + "\en\Tween.resources.dll", FileMode.Create, FileAccess.Write) 
     257                        Dim fs As New System.IO.FileStream(My.Application.Info.DirectoryPath + "\en\Tween.resourcesNew.dll", FileMode.Create, FileAccess.Write) 
    258258                        Dim b As Integer 
    259259                        Using fs 

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

    r25161 r25202  
    11更新履歴 
    22 
    3 ***Ver0.1.5.1(Unrelease) 
     3***Ver0.1.6.0(2008/11/28) 
    44-詳細発言表示部分からの右クリック検索をローカライズ対応可能にした。その他メニュー項目の見直しを行った。 
    55-初期化完了してからフォームを表示するようにした（つもり） 
    … …  
    88-文字列を選択していなかったときに検索をしようとした場合の動作を修正 
    99-詳細発言表示部分からの右クリックメニューで、選択文字列を現在のタブで検索できるようにした。 
     10-Twitterコマンド誤認問題が本家で修正されたのにあわせ、回避ロジック修正 
     11-HTML解析に失敗したとき、切り出したHTMLをファイル出力（コマンドライン引数'/d'の時のみ） 
     12-DMが取れないケースに対応 
    1013***Ver0.1.5.0(2008/11/25) 
    1114-アイコンサイズ48*48の1列表示が正常に表示されないバグ修正 

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

    r24122 r25202  
    4141    Public Function EndUpdate() As String 
    4242        Dim NotifyString As String = _tabs.Distribute(_addedIds)    'タブに追加 
    43         _tabs.Sort()    'ソート 
     43        '_tabs.Sort()    'ソート 
    4444        Return NotifyString     '通知用メッセージを戻す 
    4545    End Function 
    … …  
    448448    '個別タブの情報をDictionaryで保持 
    449449    Private _sorter As ListViewItemComparerClass 
    450     Private _tabs As New Dictionary(Of String, TabClass)() 
     450    Private _tabs As New Dictionary(Of String, TabClass) 
    451451    Private _statuses As Statuses 
    452452 

  • lang/vb2005/Tween/Tween/Tween.resx

    r25090 r25202  
    119119  </resheader> 
    120120  <metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> 
    121     <value>0, 0</value> 
     121    <value>17, 17</value> 
    122122  </metadata> 
    123123  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" /> 
    … …  
    191191  </data> 
    192192  <metadata name="ContextMenuTabProperty.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> 
    193     <value>497, 58</value> 
     193    <value>130, 91</value> 
    194194  </metadata> 
    195195  <data name="AddTabMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
    … …  
    266266  </data> 
    267267  <metadata name="TabImage.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> 
    268     <value>261, 58</value> 
     268    <value>568, 54</value> 
    269269  </metadata> 
    270270  <data name="TabImage.ImageSize" type="System.Drawing.Size, System.Drawing"> 
    … …  
    323323  </data> 
    324324  <metadata name="ContextMenuStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> 
    325     <value>287, 99</value> 
     325    <value>262, 128</value> 
    326326  </metadata> 
    327327  <data name="IconNameToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
    … …  
    407407  </data> 
    408408  <metadata name="ContextMenuStrip4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> 
    409     <value>17, 17</value> 
     409    <value>244, 17</value> 
    410410  </metadata> 
    411411  <data name="SearchItem1ToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
    … …  
    797797  </data> 
    798798  <metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> 
    799     <value>0, 0</value> 
     799    <value>134, 17</value> 
    800800  </metadata> 
    801801  <data name="MenuStrip1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms"> 
    … …  
    803803  </data> 
    804804  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> 
    805     <value>689, 17</value> 
     805    <value>17, 54</value> 
    806806  </metadata> 
    807807  <data name="SettingStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> 
    … …  
    929929  </data> 
    930930  <metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> 
    931     <value>1023, 17</value> 
     931    <value>318, 54</value> 
    932932  </metadata> 
    933933  <data name="ReplyStripMenuItem.ShortcutKeys" type="System.Windows.Forms.Keys, System.Windows.Forms"> 
    … …  
    12891289  </data> 
    12901290  <metadata name="TimerTimeline.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> 
    1291     <value>430, 17</value> 
     1291    <value>396, 17</value> 
    12921292  </metadata> 
    12931293  <metadata name="NotifyIcon1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> 
    1294     <value>568, 17</value> 
     1294    <value>520, 17</value> 
    12951295  </metadata> 
    12961296  <data name="NotifyIcon1.Text" xml:space="preserve"> 
    … …  
    13011301  </data> 
    13021302  <metadata name="GetTimelineWorker.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> 
    1303     <value>856, 17</value> 
     1303    <value>169, 54</value> 
    13041304  </metadata> 
    13051305  <metadata name="TimerDM.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> 
    1306     <value>17, 58</value> 
     1306    <value>470, 54</value> 
    13071307  </metadata> 
    13081308  <metadata name="ExecWorker.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> 
    1309     <value>374, 58</value> 
     1309    <value>17, 91</value> 
    13101310  </metadata> 
    13111311  <metadata name="TimerColorize.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> 
    1312     <value>702, 58</value> 
     1312    <value>315, 91</value> 
    13131313  </metadata> 
    13141314  <metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> 
    1315     <value>836, 58</value> 
     1315    <value>438, 91</value> 
    13161316  </metadata> 
    13171317  <metadata name="TimerRefreshIcon.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> 
    1318     <value>982, 58</value> 
     1318    <value>571, 91</value> 
    13191319  </metadata> 
    13201320  <metadata name="PostWorker.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> 
    1321     <value>17, 99</value> 
     1321    <value>17, 128</value> 
    13221322  </metadata> 
    13231323  <metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> 
    1324     <value>138, 99</value> 
     1324    <value>128, 128</value> 
    13251325  </metadata> 
    13261326  <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> 

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

    r24810 r25202  
    318318                Catch ex As Exception 
    319319                    _signed = False 
     320                    Me.TraceOut("TM-ID:" + strPost) 
    320321                    Return "GetTimeline -> Err: Can't get ID." 
    321322                End Try 
    … …  
    327328                Catch ex As Exception 
    328329                    _signed = False 
     330                    Me.TraceOut("TM-Name:" + strPost) 
    329331                    Return "GetTimeline -> Err: Can't get Name." 
    330332                End Try 
    … …  
    340342                    Catch ex As Exception 
    341343                        _signed = False 
     344                        Me.TraceOut("TM-Nick:" + strPost) 
    342345                        Return "GetTimeline -> Err: Can't get Nick." 
    343346                    End Try 
    … …  
    355358                        Catch ex As Exception 
    356359                            _signed = False 
     360                            Me.TraceOut("TM-VBody:" + strPost) 
    357361                            Return "GetTimeline -> Err: Can't get Valentine body." 
    358362                        End Try 
    … …  
    367371                    Catch ex As Exception 
    368372                        _signed = False 
     373                        Me.TraceOut("TM-Img:" + strPost) 
    369374                        Return "GetTimeline -> Err: Can't get ImagePath." 
    370375                    End Try 
    … …  
    407412                        Catch ex As Exception 
    408413                            _signed = False 
     414                            Me.TraceOut("TM-VBody2:" + strPost) 
    409415                            Return "GetTimeline -> Err: Can't get Valentine body2." 
    410416                        End Try 
    … …  
    415421                        Catch ex As Exception 
    416422                            _signed = False 
     423                            Me.TraceOut("TM-Body:" + strPost) 
    417424                            Return "GetTimeline -> Err: Can't get body." 
    418425                        End Try 
    … …  
    497504                    Catch ex As Exception 
    498505                        _signed = False 
     506                        Me.TraceOut("TM-Link:" + strPost) 
    499507                        Return "GetTimeline -> Err: Can't parse links." 
    500508                    End Try 
    … …  
    509517                        Catch ex As Exception 
    510518                            _signed = False 
     519                            Me.TraceOut("TM-Date:" + strPost) 
    511520                            Return "GetTimeline -> Err: Can't get date." 
    512521                        End Try 
    … …  
    534543                        Catch ex As Exception 
    535544                            _signed = False 
     545                            Me.TraceOut("TM-Fav:" + strPost) 
    536546                            Return "GetTimeline -> Err: Can't get fav status." 
    537547                        End Try 
    … …  
    690700                Catch ex As Exception 
    691701                    _signed = False 
     702                    Me.TraceOut("DM-ID:" + strPost) 
    692703                    Return "GetDirectMessage -> Err: Can't get ID" 
    693704                End Try 
    … …  
    700711                Catch ex As Exception 
    701712                    _signed = False 
     713                    Me.TraceOut("DM-Name:" + strPost) 
    702714                    Return "GetDirectMessage -> Err: Can't get Name" 
    703715                End Try 
    … …  
    710722                Catch ex As Exception 
    711723                    _signed = False 
     724                    Me.TraceOut("DM-Nick:" + strPost) 
    712725                    Return "GetDirectMessage -> Err: Can't get Nick." 
    713726                End Try 
    … …  
    725738                    Catch ex As Exception 
    726739                        _signed = False 
     740                        Me.TraceOut("DM-Img:" + strPost) 
    727741                        Return "GetDirectMessage -> Err: Can't get ImagePath" 
    728742                    End Try 
    … …  
    734748                    Catch ex As Exception 
    735749                        _signed = False 
     750                        Me.TraceOut("DM-Protect:" + strPost) 
    736751                        Return "GetDirectMessage -> Err: Can't get Protect" 
    737752                    End Try 
    … …  
    745760                        Else 
    746761                            pos1 = strPost.IndexOf(_parseDM11, pos2) 
     762                            pos2 = strPost.IndexOf(_parseDM2, pos1) 
    747763                            orgData = strPost.Substring(pos1 + _parseDM11.Length, pos2 - pos1 - _parseDM11.Length).Trim() 
    748764                        End If 
    … …  
    750766                    Catch ex As Exception 
    751767                        _signed = False 
     768                        Me.TraceOut("DM-Body:" + strPost) 
    752769                        Return "GetDirectMessage -> Err: Can't get body" 
    753770                    End Try 
    … …  
    830847                    Catch ex As Exception 
    831848                        _signed = False 
     849                        Me.TraceOut("DM-Link:" + strPost) 
    832850                        Return "GetDirectMessage -> Err: Can't parse links" 
    833851                    End Try 
    … …  
    842860                        Catch ex As Exception 
    843861                            _signed = False 
     862                            Me.TraceOut("DM-Date:" + strPost) 
    844863                            Return "GetTimeline -> Err: Can't get date." 
    845864                        End Try 
    … …  
    14651484        Return DirectCast(_mySock.GetWebResponse("http://www.asahi-net.or.jp/~ne5h-ykmz/TweenRes" + strver + ".gz?" + Now.ToString("yyMMddHHmmss") + Environment.TickCount.ToString(), resStatus, MySocket.REQ_TYPE.ReqGETFileRes), String) 
    14661485    End Function 
     1486 
     1487    Private Sub TraceOut(ByVal Message As String) 
     1488        If My.Application.CommandLineArgs.Count = 0 OrElse My.Application.CommandLineArgs.Contains("/d") = False Then Exit Sub 
     1489        Dim now As DateTime = DateTime.Now 
     1490        Dim fileName As String = String.Format("TweenTrace-{0:0000}{1:00}{2:00}-{3:00}{4:00}{5:00}.log", now.Year, now.Month, now.Day, now.Hour, now.Minute, now.Second) 
     1491 
     1492        Using writer As IO.StreamWriter = New IO.StreamWriter(fileName) 
     1493            writer.WriteLine("**** TraceOut: {0} ****", DateTime.Now.ToString()) 
     1494            writer.WriteLine("このファイルの内容を kiri.feather@gmail.com まで送っていただけると助かります。") 
     1495            writer.WriteLine("ご面倒なら@kiri_featherまでお知らせ頂くだけでも助かります。") 
     1496            writer.WriteLine() 
     1497            writer.WriteLine("動作環境:") 
     1498            writer.WriteLine("   オペレーティング システム: {0}", Environment.OSVersion.VersionString) 
     1499            writer.WriteLine("   共通言語ランタイム       : {0}", Environment.Version.ToString()) 
     1500            writer.WriteLine("   Tween.exeのバージョン    : {0}", My.Application.Info.Version.ToString()) 
     1501            writer.WriteLine(Message) 
     1502            writer.WriteLine() 
     1503        End Using 
     1504    End Sub 
    14671505 
    14681506#If DEBUG Then