Changeset 21501

Show
Ignore:
Timestamp:
10/17/08 17:52:26 (5 years ago)
Author:
kiri_feather
Message:

-TinyUrl展開オプションが機能していなかった問題を修正
-更新間隔自動調整が機能していなかった問題を修正
-更新間隔自動調整の有効・無効オプションを設定画面に追加（デフォルト有効）
-ステータス欄のPOST制限表示を時速表示に変更（自発言/取得発言）
-ステータス欄にタイムライン更新間隔表示を追加
タイムアウトデフォルト30秒に変更

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

Legend:

Unmodified
Added
Removed

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

    r21408 r21501  
    3232' <Assembly: AssemblyVersion("1.0.*")>  
    3333 
    34 <Assembly: AssemblyVersion("0.0.9.8")>  
    35 <Assembly: AssemblyFileVersion("0.0.9.8")>  
     34<Assembly: AssemblyVersion("0.0.9.9")>  
     35<Assembly: AssemblyFileVersion("0.0.9.9")>  
    3636 

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

    r21380 r21501  
    6161            Optional ByVal data As String = "", _ 
    6262            Optional ByVal referer As String = "", _ 
    63             Optional ByVal timeout As Integer = 100000) As Object 
     63            Optional ByVal timeout As Integer = 30000) As Object 
    6464        Dim webReq As HttpWebRequest 
    6565        Dim dataB As Byte() 

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

    r21408 r21501  
    11更新履歴 
    22 
     3***Ver0.0.9.9(Unreleased) 
     4-TinyUrl展開オプションが機能していなかった問題を修正 
     5-更新間隔自動調整が機能していなかった問題を修正 
     6-更新間隔自動調整の有効・無効オプションを設定画面に追加（デフォルト有効） 
     7-ステータス欄のPOST制限表示を時速表示に変更（自発言/取得発言） 
     8-ステータス欄にタイムライン更新間隔表示を追加 
    39***Ver0.0.9.8(2008/10/16) 
    410-wedata変更分の取り込み 

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

    r21380 r21501  
    136136        Me.TabControl1 = New System.Windows.Forms.TabControl 
    137137        Me.TabPage1 = New System.Windows.Forms.TabPage 
     138        Me.MaxPost = New System.Windows.Forms.TextBox 
     139        Me.Label52 = New System.Windows.Forms.Label 
    138140        Me.TabPage2 = New System.Windows.Forms.TabPage 
    139141        Me.CheckTinyURL = New System.Windows.Forms.CheckBox 
    … …  
    144146        Me.TabPage5 = New System.Windows.Forms.TabPage 
    145147        Me.GroupBox2 = New System.Windows.Forms.GroupBox 
     148        Me.Label55 = New System.Windows.Forms.Label 
     149        Me.TextProxyPassword = New System.Windows.Forms.TextBox 
     150        Me.LabelProxyPassword = New System.Windows.Forms.Label 
     151        Me.TextProxyUser = New System.Windows.Forms.TextBox 
     152        Me.LabelProxyUser = New System.Windows.Forms.Label 
     153        Me.TextProxyPort = New System.Windows.Forms.TextBox 
     154        Me.LabelProxyPort = New System.Windows.Forms.Label 
     155        Me.TextProxyAddress = New System.Windows.Forms.TextBox 
     156        Me.LabelProxyAddress = New System.Windows.Forms.Label 
     157        Me.RadioProxySpecified = New System.Windows.Forms.RadioButton 
     158        Me.RadioProxyIE = New System.Windows.Forms.RadioButton 
    146159        Me.RadioProxyNone = New System.Windows.Forms.RadioButton 
    147         Me.RadioProxyIE = New System.Windows.Forms.RadioButton 
    148         Me.RadioProxySpecified = New System.Windows.Forms.RadioButton 
    149         Me.LabelProxyAddress = New System.Windows.Forms.Label 
    150         Me.TextProxyAddress = New System.Windows.Forms.TextBox 
    151         Me.LabelProxyPort = New System.Windows.Forms.Label 
    152         Me.TextProxyPort = New System.Windows.Forms.TextBox 
    153         Me.LabelProxyUser = New System.Windows.Forms.Label 
    154         Me.TextProxyUser = New System.Windows.Forms.TextBox 
    155         Me.LabelProxyPassword = New System.Windows.Forms.Label 
    156         Me.TextProxyPassword = New System.Windows.Forms.TextBox 
    157         Me.Label55 = New System.Windows.Forms.Label 
    158         Me.Label52 = New System.Windows.Forms.Label 
    159         Me.MaxPost = New System.Windows.Forms.TextBox 
     160        Me.CheckPeriodAdjust = New System.Windows.Forms.CheckBox 
    160161        Me.GroupBox1.SuspendLayout() 
    161162        Me.TabControl1.SuspendLayout() 
    … …  
    241242        ' 
    242243        Me.Label4.AutoSize = True 
    243         Me.Label4.Location = New System.Drawing.Point(14, 126) 
     244        Me.Label4.Location = New System.Drawing.Point(14, 150) 
    244245        Me.Label4.Name = "Label4" 
    245246        Me.Label4.Size = New System.Drawing.Size(139, 12) 
    246         Me.Label4.TabIndex = 9 
     247        Me.Label4.TabIndex = 10 
    247248        Me.Label4.Text = "次頁取得件数閾値(1～20)" 
    248249        ' 
    249250        'NextThreshold 
    250251        ' 
    251         Me.NextThreshold.Location = New System.Drawing.Point(183, 123) 
     252        Me.NextThreshold.Location = New System.Drawing.Point(183, 147) 
    252253        Me.NextThreshold.Name = "NextThreshold" 
    253254        Me.NextThreshold.Size = New System.Drawing.Size(65, 19) 
    254         Me.NextThreshold.TabIndex = 10 
     255        Me.NextThreshold.TabIndex = 11 
    255256        ' 
    256257        'DMPeriod 
    257258        ' 
    258         Me.DMPeriod.Location = New System.Drawing.Point(183, 82) 
     259        Me.DMPeriod.Location = New System.Drawing.Point(183, 103) 
    259260        Me.DMPeriod.Name = "DMPeriod" 
    260261        Me.DMPeriod.Size = New System.Drawing.Size(65, 19) 
    261         Me.DMPeriod.TabIndex = 8 
     262        Me.DMPeriod.TabIndex = 9 
    262263        ' 
    263264        'Label5 
    264265        ' 
    265266        Me.Label5.AutoSize = True 
    266         Me.Label5.Location = New System.Drawing.Point(14, 85) 
     267        Me.Label5.Location = New System.Drawing.Point(14, 106) 
    267268        Me.Label5.Name = "Label5" 
    268269        Me.Label5.Size = New System.Drawing.Size(94, 12) 
    269         Me.Label5.TabIndex = 7 
     270        Me.Label5.TabIndex = 8 
    270271        Me.Label5.Text = "DM更新間隔（秒）" 
    271272        ' 
    272273        'NextPages 
    273274        ' 
    274         Me.NextPages.Location = New System.Drawing.Point(183, 148) 
     275        Me.NextPages.Location = New System.Drawing.Point(183, 172) 
    275276        Me.NextPages.Name = "NextPages" 
    276277        Me.NextPages.Size = New System.Drawing.Size(65, 19) 
    277         Me.NextPages.TabIndex = 12 
     278        Me.NextPages.TabIndex = 13 
    278279        ' 
    279280        'Label6 
    280281        ' 
    281282        Me.Label6.AutoSize = True 
    282         Me.Label6.Location = New System.Drawing.Point(14, 151) 
     283        Me.Label6.Location = New System.Drawing.Point(14, 175) 
    283284        Me.Label6.Name = "Label6" 
    284285        Me.Label6.Size = New System.Drawing.Size(144, 12) 
    285         Me.Label6.TabIndex = 11 
     286        Me.Label6.TabIndex = 12 
    286287        Me.Label6.Text = "閾値オーバー時の取得ページ" 
    287288        ' 
    … …  
    289290        ' 
    290291        Me.ReadLogDays.Enabled = False 
    291         Me.ReadLogDays.Location = New System.Drawing.Point(183, 173) 
     292        Me.ReadLogDays.Location = New System.Drawing.Point(183, 197) 
    292293        Me.ReadLogDays.Name = "ReadLogDays" 
    293294        Me.ReadLogDays.Size = New System.Drawing.Size(51, 19) 
    294         Me.ReadLogDays.TabIndex = 14 
     295        Me.ReadLogDays.TabIndex = 15 
    295296        Me.ReadLogDays.Visible = False 
    296297        ' 
    … …  
    299300        Me.Label7.AutoSize = True 
    300301        Me.Label7.Enabled = False 
    301         Me.Label7.Location = New System.Drawing.Point(14, 176) 
     302        Me.Label7.Location = New System.Drawing.Point(14, 200) 
    302303        Me.Label7.Name = "Label7" 
    303304        Me.Label7.Size = New System.Drawing.Size(163, 12) 
    304         Me.Label7.TabIndex = 13 
     305        Me.Label7.TabIndex = 14 
    305306        Me.Label7.Text = "ログ読み込み 起動時刻から過去" 
    306307        Me.Label7.Visible = False 
    … …  
    308309        'StartupReadPages 
    309310        ' 
    310         Me.StartupReadPages.Location = New System.Drawing.Point(74, 216) 
     311        Me.StartupReadPages.Location = New System.Drawing.Point(74, 240) 
    311312        Me.StartupReadPages.Name = "StartupReadPages" 
    312313        Me.StartupReadPages.Size = New System.Drawing.Size(34, 19) 
    313         Me.StartupReadPages.TabIndex = 18 
     314        Me.StartupReadPages.TabIndex = 19 
    314315        ' 
    315316        'Label8 
    316317        ' 
    317318        Me.Label8.AutoSize = True 
    318         Me.Label8.Location = New System.Drawing.Point(14, 201) 
     319        Me.Label8.Location = New System.Drawing.Point(14, 225) 
    319320        Me.Label8.Name = "Label8" 
    320321        Me.Label8.Size = New System.Drawing.Size(129, 12) 
    321         Me.Label8.TabIndex = 16 
     322        Me.Label8.TabIndex = 17 
    322323        Me.Label8.Text = "起動時読み込みページ数" 
    323324        ' 
    … …  
    325326        ' 
    326327        Me.Label9.AutoSize = True 
    327         Me.Label9.Location = New System.Drawing.Point(14, 247) 
     328        Me.Label9.Location = New System.Drawing.Point(14, 271) 
    328329        Me.Label9.Name = "Label9" 
    329330        Me.Label9.Size = New System.Drawing.Size(114, 12) 
    330         Me.Label9.TabIndex = 23 
     331        Me.Label9.TabIndex = 24 
    331332        Me.Label9.Text = "起動時読み込みポスト" 
    332333        ' 
    … …  
    334335        ' 
    335336        Me.StartupReaded.AutoSize = True 
    336         Me.StartupReaded.Location = New System.Drawing.Point(183, 246) 
     337        Me.StartupReaded.Location = New System.Drawing.Point(183, 270) 
    337338        Me.StartupReaded.Name = "StartupReaded" 
    338339        Me.StartupReaded.Size = New System.Drawing.Size(76, 16) 
    339         Me.StartupReaded.TabIndex = 24 
     340        Me.StartupReaded.TabIndex = 25 
    340341        Me.StartupReaded.Text = "既読にする" 
    341342        Me.StartupReaded.UseVisualStyleBackColor = True 
    … …  
    346347        Me.ReadLogUnit.FormattingEnabled = True 
    347348        Me.ReadLogUnit.Items.AddRange(New Object() {"分間", "時間", "日間"}) 
    348         Me.ReadLogUnit.Location = New System.Drawing.Point(235, 173) 
     349        Me.ReadLogUnit.Location = New System.Drawing.Point(235, 197) 
    349350        Me.ReadLogUnit.Name = "ReadLogUnit" 
    350351        Me.ReadLogUnit.Size = New System.Drawing.Size(61, 20) 
    351         Me.ReadLogUnit.TabIndex = 15 
     352        Me.ReadLogUnit.TabIndex = 16 
    352353        Me.ReadLogUnit.Visible = False 
    353354        ' 
    … …  
    977978        ' 
    978979        Me.Label31.AutoSize = True 
    979         Me.Label31.Location = New System.Drawing.Point(27, 219) 
     980        Me.Label31.Location = New System.Drawing.Point(27, 243) 
    980981        Me.Label31.Name = "Label31" 
    981982        Me.Label31.Size = New System.Drawing.Size(41, 12) 
    982         Me.Label31.TabIndex = 17 
     983        Me.Label31.TabIndex = 18 
    983984        Me.Label31.Text = "Recent" 
    984985        ' 
    … …  
    986987        ' 
    987988        Me.Label33.AutoSize = True 
    988         Me.Label33.Location = New System.Drawing.Point(114, 219) 
     989        Me.Label33.Location = New System.Drawing.Point(114, 243) 
    989990        Me.Label33.Name = "Label33" 
    990991        Me.Label33.Size = New System.Drawing.Size(34, 12) 
    991         Me.Label33.TabIndex = 19 
     992        Me.Label33.TabIndex = 20 
    992993        Me.Label33.Text = "Reply" 
    993994        ' 
    … …  
    995996        ' 
    996997        Me.Label35.AutoSize = True 
    997         Me.Label35.Location = New System.Drawing.Point(194, 219) 
     998        Me.Label35.Location = New System.Drawing.Point(194, 243) 
    998999        Me.Label35.Name = "Label35" 
    9991000        Me.Label35.Size = New System.Drawing.Size(22, 12) 
    1000         Me.Label35.TabIndex = 21 
     1001        Me.Label35.TabIndex = 22 
    10011002        Me.Label35.Text = "DM" 
    10021003        ' 
    10031004        'StartupReadReply 
    10041005        ' 
    1005         Me.StartupReadReply.Location = New System.Drawing.Point(154, 216) 
     1006        Me.StartupReadReply.Location = New System.Drawing.Point(154, 240) 
    10061007        Me.StartupReadReply.Name = "StartupReadReply" 
    10071008        Me.StartupReadReply.Size = New System.Drawing.Size(34, 19) 
    1008         Me.StartupReadReply.TabIndex = 20 
     1009        Me.StartupReadReply.TabIndex = 21 
    10091010        ' 
    10101011        'StartupReadDM 
    10111012        ' 
    1012         Me.StartupReadDM.Location = New System.Drawing.Point(222, 216) 
     1013        Me.StartupReadDM.Location = New System.Drawing.Point(222, 240) 
    10131014        Me.StartupReadDM.Name = "StartupReadDM" 
    10141015        Me.StartupReadDM.Size = New System.Drawing.Size(34, 19) 
    1015         Me.StartupReadDM.TabIndex = 22 
     1016        Me.StartupReadDM.TabIndex = 23 
    10161017        ' 
    10171018        'TextBox3 
    … …  
    11711172        ' 
    11721173        Me.CheckboxReply.AutoSize = True 
    1173         Me.CheckboxReply.Location = New System.Drawing.Point(254, 59) 
     1174        Me.CheckboxReply.Location = New System.Drawing.Point(77, 82) 
    11741175        Me.CheckboxReply.Name = "CheckboxReply" 
    11751176        Me.CheckboxReply.Size = New System.Drawing.Size(101, 16) 
    … …  
    12401241        'TabPage1 
    12411242        ' 
     1243        Me.TabPage1.Controls.Add(Me.CheckPeriodAdjust) 
    12421244        Me.TabPage1.Controls.Add(Me.MaxPost) 
    12431245        Me.TabPage1.Controls.Add(Me.Label52) 
    … …  
    12671269        Me.TabPage1.Controls.Add(Me.StartupReadReply) 
    12681270        Me.TabPage1.Controls.Add(Me.StartupReadDM) 
    1269         Me.TabPage1.Location = New System.Drawing.Point(4, 22) 
     1271        Me.TabPage1.Location = New System.Drawing.Point(4, 21) 
    12701272        Me.TabPage1.Name = "TabPage1" 
    12711273        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) 
    1272         Me.TabPage1.Size = New System.Drawing.Size(372, 436) 
     1274        Me.TabPage1.Size = New System.Drawing.Size(372, 437) 
    12731275        Me.TabPage1.TabIndex = 0 
    12741276        Me.TabPage1.Text = "基本" 
    12751277        Me.TabPage1.UseVisualStyleBackColor = True 
     1278        ' 
     1279        'MaxPost 
     1280        ' 
     1281        Me.MaxPost.Location = New System.Drawing.Point(186, 293) 
     1282        Me.MaxPost.Name = "MaxPost" 
     1283        Me.MaxPost.Size = New System.Drawing.Size(62, 19) 
     1284        Me.MaxPost.TabIndex = 27 
     1285        Me.MaxPost.Visible = False 
     1286        ' 
     1287        'Label52 
     1288        ' 
     1289        Me.Label52.AutoSize = True 
     1290        Me.Label52.Location = New System.Drawing.Point(14, 296) 
     1291        Me.Label52.Name = "Label52" 
     1292        Me.Label52.Size = New System.Drawing.Size(149, 12) 
     1293        Me.Label52.TabIndex = 26 
     1294        Me.Label52.Text = "1時間あたりの最大POST回数" 
     1295        Me.Label52.Visible = False 
    12761296        ' 
    12771297        'TabPage2 
    … …  
    13061326        Me.TabPage2.Controls.Add(Me.StatusText) 
    13071327        Me.TabPage2.Controls.Add(Me.CheckUseRecommendStatus) 
    1308         Me.TabPage2.Location = New System.Drawing.Point(4, 22) 
     1328        Me.TabPage2.Location = New System.Drawing.Point(4, 21) 
    13091329        Me.TabPage2.Name = "TabPage2" 
    13101330        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) 
    1311         Me.TabPage2.Size = New System.Drawing.Size(372, 436) 
     1331        Me.TabPage2.Size = New System.Drawing.Size(372, 437) 
    13121332        Me.TabPage2.TabIndex = 1 
    13131333        Me.TabPage2.Text = "動作" 
    … …  
    13601380        Me.TabPage3.Controls.Add(Me.CheckBox3) 
    13611381        Me.TabPage3.Controls.Add(Me.TextBox3) 
    1362         Me.TabPage3.Location = New System.Drawing.Point(4, 22) 
     1382        Me.TabPage3.Location = New System.Drawing.Point(4, 21) 
    13631383        Me.TabPage3.Name = "TabPage3" 
    13641384        Me.TabPage3.Padding = New System.Windows.Forms.Padding(3) 
    1365         Me.TabPage3.Size = New System.Drawing.Size(372, 436) 
     1385        Me.TabPage3.Size = New System.Drawing.Size(372, 437) 
    13661386        Me.TabPage3.TabIndex = 2 
    13671387        Me.TabPage3.Text = "表示" 
    … …  
    13711391        ' 
    13721392        Me.TabPage4.Controls.Add(Me.GroupBox1) 
    1373         Me.TabPage4.Location = New System.Drawing.Point(4, 22) 
     1393        Me.TabPage4.Location = New System.Drawing.Point(4, 21) 
    13741394        Me.TabPage4.Name = "TabPage4" 
    13751395        Me.TabPage4.Padding = New System.Windows.Forms.Padding(3) 
    1376         Me.TabPage4.Size = New System.Drawing.Size(372, 436) 
     1396        Me.TabPage4.Size = New System.Drawing.Size(372, 437) 
    13771397        Me.TabPage4.TabIndex = 3 
    13781398        Me.TabPage4.Text = "フォント＆色" 
    … …  
    13891409        Me.TabPage5.Text = "通信" 
    13901410        Me.TabPage5.UseVisualStyleBackColor = True 
    1391         ' 
    1392         'Label52 
    1393         ' 
    1394         Me.Label52.AutoSize = True 
    1395         Me.Label52.Location = New System.Drawing.Point(14, 272) 
    1396         Me.Label52.Name = "Label52" 
    1397         Me.Label52.Size = New System.Drawing.Size(149, 12) 
    1398         Me.Label52.TabIndex = 25 
    1399         Me.Label52.Text = "1時間あたりの最大POST回数" 
    14001411        ' 
    14011412        'GroupBox2 
    … …  
    14201431        Me.GroupBox2.Text = "プロキシの設定" 
    14211432        ' 
    1422         'MaxPost 
    1423         ' 
    1424         Me.MaxPost.Location = New System.Drawing.Point(186, 269) 
    1425         Me.MaxPost.Name = "MaxPost" 
    1426         Me.MaxPost.Size = New System.Drawing.Size(62, 19) 
    1427         Me.MaxPost.TabIndex = 26 
    1428         ' 
    1429         'RadioProxyNone 
    1430         ' 
    1431         Me.RadioProxyNone.AutoSize = True 
    1432         Me.RadioProxyNone.Location = New System.Drawing.Point(6, 18) 
    1433         Me.RadioProxyNone.Name = "RadioProxyNone" 
    1434         Me.RadioProxyNone.Size = New System.Drawing.Size(76, 16) 
    1435         Me.RadioProxyNone.TabIndex = 0 
    1436         Me.RadioProxyNone.Text = "使用しない" 
    1437         Me.RadioProxyNone.UseVisualStyleBackColor = True 
     1433        'Label55 
     1434        ' 
     1435        Me.Label55.AutoSize = True 
     1436        Me.Label55.ForeColor = System.Drawing.SystemColors.ActiveCaption 
     1437        Me.Label55.Location = New System.Drawing.Point(28, 134) 
     1438        Me.Label55.Name = "Label55" 
     1439        Me.Label55.Size = New System.Drawing.Size(314, 12) 
     1440        Me.Label55.TabIndex = 11 
     1441        Me.Label55.Text = "※認証が不要な場合は、ユーザ名とパスワードは空にしてください。" 
     1442        ' 
     1443        'TextProxyPassword 
     1444        ' 
     1445        Me.TextProxyPassword.Location = New System.Drawing.Point(274, 103) 
     1446        Me.TextProxyPassword.Name = "TextProxyPassword" 
     1447        Me.TextProxyPassword.Size = New System.Drawing.Size(68, 19) 
     1448        Me.TextProxyPassword.TabIndex = 10 
     1449        Me.TextProxyPassword.UseSystemPasswordChar = True 
     1450        ' 
     1451        'LabelProxyPassword 
     1452        ' 
     1453        Me.LabelProxyPassword.AutoSize = True 
     1454        Me.LabelProxyPassword.Location = New System.Drawing.Point(205, 106) 
     1455        Me.LabelProxyPassword.Name = "LabelProxyPassword" 
     1456        Me.LabelProxyPassword.Size = New System.Drawing.Size(69, 12) 
     1457        Me.LabelProxyPassword.TabIndex = 9 
     1458        Me.LabelProxyPassword.Text = "パスワード(&W)" 
     1459        ' 
     1460        'TextProxyUser 
     1461        ' 
     1462        Me.TextProxyUser.Location = New System.Drawing.Point(131, 103) 
     1463        Me.TextProxyUser.Name = "TextProxyUser" 
     1464        Me.TextProxyUser.Size = New System.Drawing.Size(68, 19) 
     1465        Me.TextProxyUser.TabIndex = 8 
     1466        ' 
     1467        'LabelProxyUser 
     1468        ' 
     1469        Me.LabelProxyUser.AutoSize = True 
     1470        Me.LabelProxyUser.Location = New System.Drawing.Point(62, 106) 
     1471        Me.LabelProxyUser.Name = "LabelProxyUser" 
     1472        Me.LabelProxyUser.Size = New System.Drawing.Size(63, 12) 
     1473        Me.LabelProxyUser.TabIndex = 7 
     1474        Me.LabelProxyUser.Text = "ユーザ名(&U)" 
     1475        ' 
     1476        'TextProxyPort 
     1477        ' 
     1478        Me.TextProxyPort.Location = New System.Drawing.Point(297, 78) 
     1479        Me.TextProxyPort.Name = "TextProxyPort" 
     1480        Me.TextProxyPort.Size = New System.Drawing.Size(45, 19) 
     1481        Me.TextProxyPort.TabIndex = 6 
     1482        ' 
     1483        'LabelProxyPort 
     1484        ' 
     1485        Me.LabelProxyPort.AutoSize = True 
     1486        Me.LabelProxyPort.Location = New System.Drawing.Point(243, 81) 
     1487        Me.LabelProxyPort.Name = "LabelProxyPort" 
     1488        Me.LabelProxyPort.Size = New System.Drawing.Size(48, 12) 
     1489        Me.LabelProxyPort.TabIndex = 5 
     1490        Me.LabelProxyPort.Text = "ポート(&P)" 
     1491        ' 
     1492        'TextProxyAddress 
     1493        ' 
     1494        Me.TextProxyAddress.Location = New System.Drawing.Point(102, 78) 
     1495        Me.TextProxyAddress.Name = "TextProxyAddress" 
     1496        Me.TextProxyAddress.Size = New System.Drawing.Size(135, 19) 
     1497        Me.TextProxyAddress.TabIndex = 4 
     1498        ' 
     1499        'LabelProxyAddress 
     1500        ' 
     1501        Me.LabelProxyAddress.AutoSize = True 
     1502        Me.LabelProxyAddress.Location = New System.Drawing.Point(38, 81) 
     1503        Me.LabelProxyAddress.Name = "LabelProxyAddress" 
     1504        Me.LabelProxyAddress.Size = New System.Drawing.Size(58, 12) 
     1505        Me.LabelProxyAddress.TabIndex = 3 
     1506        Me.LabelProxyAddress.Text = "プロキシ(&X)" 
     1507        ' 
     1508        'RadioProxySpecified 
     1509        ' 
     1510        Me.RadioProxySpecified.AutoSize = True 
     1511        Me.RadioProxySpecified.Location = New System.Drawing.Point(6, 62) 
     1512        Me.RadioProxySpecified.Name = "RadioProxySpecified" 
     1513        Me.RadioProxySpecified.Size = New System.Drawing.Size(66, 16) 
     1514        Me.RadioProxySpecified.TabIndex = 2 
     1515        Me.RadioProxySpecified.Text = "指定する" 
     1516        Me.RadioProxySpecified.UseVisualStyleBackColor = True 
    14381517        ' 
    14391518        'RadioProxyIE 
    … …  
    14491528        Me.RadioProxyIE.UseVisualStyleBackColor = True 
    14501529        ' 
    1451         'RadioProxySpecified 
    1452         ' 
    1453         Me.RadioProxySpecified.AutoSize = True 
    1454         Me.RadioProxySpecified.Location = New System.Drawing.Point(6, 62) 
    1455         Me.RadioProxySpecified.Name = "RadioProxySpecified" 
    1456         Me.RadioProxySpecified.Size = New System.Drawing.Size(66, 16) 
    1457         Me.RadioProxySpecified.TabIndex = 2 
    1458         Me.RadioProxySpecified.Text = "指定する" 
    1459         Me.RadioProxySpecified.UseVisualStyleBackColor = True 
    1460         ' 
    1461         'LabelProxyAddress 
    1462         ' 
    1463         Me.LabelProxyAddress.AutoSize = True 
    1464         Me.LabelProxyAddress.Location = New System.Drawing.Point(38, 81) 
    1465         Me.LabelProxyAddress.Name = "LabelProxyAddress" 
    1466         Me.LabelProxyAddress.Size = New System.Drawing.Size(58, 12) 
    1467         Me.LabelProxyAddress.TabIndex = 3 
    1468         Me.LabelProxyAddress.Text = "プロキシ(&X)" 
    1469         ' 
    1470         'TextProxyAddress 
    1471         ' 
    1472         Me.TextProxyAddress.Location = New System.Drawing.Point(102, 78) 
    1473         Me.TextProxyAddress.Name = "TextProxyAddress" 
    1474         Me.TextProxyAddress.Size = New System.Drawing.Size(135, 19) 
    1475         Me.TextProxyAddress.TabIndex = 4 
    1476         ' 
    1477         'LabelProxyPort 
    1478         ' 
    1479         Me.LabelProxyPort.AutoSize = True 
    1480         Me.LabelProxyPort.Location = New System.Drawing.Point(243, 81) 
    1481         Me.LabelProxyPort.Name = "LabelProxyPort" 
    1482         Me.LabelProxyPort.Size = New System.Drawing.Size(48, 12) 
    1483         Me.LabelProxyPort.TabIndex = 5 
    1484         Me.LabelProxyPort.Text = "ポート(&P)" 
    1485         ' 
    1486         'TextProxyPort 
    1487         ' 
    1488         Me.TextProxyPort.Location = New System.Drawing.Point(297, 78) 
    1489         Me.TextProxyPort.Name = "TextProxyPort" 
    1490         Me.TextProxyPort.Size = New System.Drawing.Size(45, 19) 
    1491         Me.TextProxyPort.TabIndex = 6 
    1492         ' 
    1493         'LabelProxyUser 
    1494         ' 
    1495         Me.LabelProxyUser.AutoSize = True 
    1496         Me.LabelProxyUser.Location = New System.Drawing.Point(62, 106) 
    1497         Me.LabelProxyUser.Name = "LabelProxyUser" 
    1498         Me.LabelProxyUser.Size = New System.Drawing.Size(63, 12) 
    1499         Me.LabelProxyUser.TabIndex = 7 
    1500         Me.LabelProxyUser.Text = "ユーザ名(&U)" 
    1501         ' 
    1502         'TextProxyUser 
    1503         ' 
    1504         Me.TextProxyUser.Location = New System.Drawing.Point(131, 103) 
    1505         Me.TextProxyUser.Name = "TextProxyUser" 
    1506         Me.TextProxyUser.Size = New System.Drawing.Size(68, 19) 
    1507         Me.TextProxyUser.TabIndex = 8 
    1508         ' 
    1509         'LabelProxyPassword 
    1510         ' 
    1511         Me.LabelProxyPassword.AutoSize = True 
    1512         Me.LabelProxyPassword.Location = New System.Drawing.Point(205, 106) 
    1513         Me.LabelProxyPassword.Name = "LabelProxyPassword" 
    1514         Me.LabelProxyPassword.Size = New System.Drawing.Size(69, 12) 
    1515         Me.LabelProxyPassword.TabIndex = 9 
    1516         Me.LabelProxyPassword.Text = "パスワード(&W)" 
    1517         ' 
    1518         'TextProxyPassword 
    1519         ' 
    1520         Me.TextProxyPassword.Location = New System.Drawing.Point(274, 103) 
    1521         Me.TextProxyPassword.Name = "TextProxyPassword" 
    1522         Me.TextProxyPassword.Size = New System.Drawing.Size(68, 19) 
    1523         Me.TextProxyPassword.TabIndex = 10 
    1524         Me.TextProxyPassword.UseSystemPasswordChar = True 
    1525         ' 
    1526         'Label55 
    1527         ' 
    1528         Me.Label55.AutoSize = True 
    1529         Me.Label55.ForeColor = System.Drawing.SystemColors.ActiveCaption 
    1530         Me.Label55.Location = New System.Drawing.Point(28, 134) 
    1531         Me.Label55.Name = "Label55" 
    1532         Me.Label55.Size = New System.Drawing.Size(314, 12) 
    1533         Me.Label55.TabIndex = 11 
    1534         Me.Label55.Text = "※認証が不要な場合は、ユーザ名とパスワードは空にしてください。" 
     1530        'RadioProxyNone 
     1531        ' 
     1532        Me.RadioProxyNone.AutoSize = True 
     1533        Me.RadioProxyNone.Location = New System.Drawing.Point(6, 18) 
     1534        Me.RadioProxyNone.Name = "RadioProxyNone" 
     1535        Me.RadioProxyNone.Size = New System.Drawing.Size(76, 16) 
     1536        Me.RadioProxyNone.TabIndex = 0 
     1537        Me.RadioProxyNone.Text = "使用しない" 
     1538        Me.RadioProxyNone.UseVisualStyleBackColor = True 
     1539        ' 
     1540        'CheckPeriodAdjust 
     1541        ' 
     1542        Me.CheckPeriodAdjust.AutoSize = True 
     1543        Me.CheckPeriodAdjust.Location = New System.Drawing.Point(186, 82) 
     1544        Me.CheckPeriodAdjust.Name = "CheckPeriodAdjust" 
     1545        Me.CheckPeriodAdjust.Size = New System.Drawing.Size(91, 16) 
     1546        Me.CheckPeriodAdjust.TabIndex = 7 
     1547        Me.CheckPeriodAdjust.Text = "自動調整する" 
     1548        Me.CheckPeriodAdjust.UseVisualStyleBackColor = True 
    15351549        ' 
    15361550        'Setting 
    … …  
    17021716    Friend WithEvents MaxPost As System.Windows.Forms.TextBox 
    17031717    Friend WithEvents Label52 As System.Windows.Forms.Label 
     1718    Friend WithEvents CheckPeriodAdjust As System.Windows.Forms.CheckBox 
    17041719End Class 

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

    r21380 r21501  
    4949    Private _MyProxyPassword As String 
    5050    Private _MyMaxPostNum As Integer 
     51    Private _MyPeriodAdjust As Boolean 
    5152 
    5253    'Public Enum LogUnitEnum 
    … …  
    192193            _MyProxyUser = TextProxyUser.Text.Trim() 
    193194            _MyProxyPassword = TextProxyPassword.Text.Trim() 
     195            _MyPeriodAdjust = CheckPeriodAdjust.Checked 
    194196 
    195197            'TweenMain.SetMainWindowTitle() 
    … …  
    319321        TextProxyPassword.Text = _MyProxyPassword 
    320322 
     323        CheckPeriodAdjust.Checked = _MyPeriodAdjust 
     324 
    321325        'TweenMain.SetMainWindowTitle() 
    322326        'TweenMain.SetNotifyIconText() 
    … …  
    10091013    End Property 
    10101014 
     1015    Public Property PeriodAdjust() As Boolean 
     1016        Get 
     1017            Return _MyPeriodAdjust 
     1018        End Get 
     1019        Set(ByVal value As Boolean) 
     1020            _MyPeriodAdjust = value 
     1021        End Set 
     1022    End Property 
     1023 
    10111024    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click 
    10121025        Dim filedlg As New OpenFileDialog() 

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

    r21380 r21501  
    15351535                Me("proxypassword") = "" 
    15361536            End If 
     1537        End Set 
     1538    End Property 
     1539 
     1540    <ConfigurationProperty("periodadjust", DefaultValue:=True)> _ 
     1541    Public Property PeriodAdjust() As Boolean 
     1542        Get 
     1543            Return CBool(Me("periodadjust")) 
     1544        End Get 
     1545        Set(ByVal value As Boolean) 
     1546            Me("periodadjust") = value 
    15371547        End Set 
    15381548    End Property 

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

    r21382 r21501  
    6060    Private RemainPostNum As Integer   ' POST残り回数 
    6161    Private __PostCounter As Integer = 59  '割り込みカウンタ　タイマ割り込みでカウントダウン 
     62    Private _postTimestamps As New List(Of Date) 
     63    Private _tlTimestamps As New Dictionary(Of Date, Integer) 
     64    Private _tlCount As Integer 
    6265 
    6366    Friend Class Win32Api 
    … …  
    316319        SettingDialog.ProxyUser = _section.ProxyUser 
    317320        SettingDialog.ProxyPassword = _section.ProxyPassword 
     321        SettingDialog.PeriodAdjust = _section.PeriodAdjust 
    318322 
    319323        'ユーザー名、パスワードが未設定なら設定画面を表示（初回起動時など） 
    … …  
    16041608            Case WORKERTYPE.Timeline 
    16051609                StatusLabel.Text = "Recent更新完了" 
     1610                Dim statusCount As Integer = rslt.TLine.Count 
    16061611                If rslt.TLine.Count > 0 Then 
    16071612                    RefreshTimeline(rslt.TLine) 
    16081613                End If 
     1614                TimerTimeline.Enabled = False 
    16091615                If rslt.retMsg <> "" Then 
    16101616                    If My.Computer.Network.IsAvailable Then 
    … …  
    16791685                        End If 
    16801686                    Else 
     1687                        _tlTimestamps.Add(Now, statusCount) 
     1688                        Dim oneHour As Date = Now.Subtract(New TimeSpan(1, 0, 0)) 
     1689                        Dim keys As New List(Of Date) 
     1690                        _tlCount = 0 
     1691                        For Each key As Date In _tlTimestamps.Keys 
     1692                            If key.CompareTo(oneHour) < 0 Then 
     1693                                keys.Add(key) 
     1694                            Else 
     1695                                _tlCount += _tlTimestamps(key) 
     1696                            End If 
     1697                        Next 
     1698                        For Each key As Date In keys 
     1699                            _tlTimestamps.Remove(key) 
     1700                        Next 
     1701                        keys.Clear() 
    16811702                        If rslt.page + 1 <= rslt.endPage Then 
    1682                             If rslt.TLine.Count = 20 Then TimerTimeline.Interval -= 1000 
     1703                            If statusCount = 20 And rslt.page = 1 And SettingDialog.PeriodAdjust Then 
     1704                                Dim itv As Integer = TimerTimeline.Interval 
     1705                                itv -= 5000 
     1706                                If itv < 15000 Then itv = 15000 
     1707                                TimerTimeline.Interval = itv 
     1708                            End If 
    16831709                            args.page = rslt.page + 1 
    16841710                            args.endPage = rslt.endPage 
    … …  
    16951721                            GetTimelineWorker.RunWorkerAsync(args) 
    16961722                        Else 
    1697                             If rslt.page = 1 And rslt.TLine.Count < 18 Then 
     1723                            If rslt.page = 1 And statusCount < 18 And SettingDialog.PeriodAdjust Then 
    16981724                                TimerTimeline.Interval += 1000 
    16991725                                If TimerTimeline.Interval > SettingDialog.TimelinePeriodInt * 1000 Then TimerTimeline.Interval = SettingDialog.TimelinePeriodInt * 1000 
    … …  
    17371763                    RefreshTimeline(rslt.TLine) 
    17381764                End If 
     1765                TimerTimeline.Enabled = False 
    17391766                If My.Computer.Network.IsAvailable Then 
    17401767                    If SettingDialog.TimelinePeriodInt > 0 Then TimerTimeline.Enabled = True 
    … …  
    17981825                    RefreshDirectMessage(rslt.TLine, True) 
    17991826                End If 
     1827                TimerDM.Enabled = False 
    18001828                If rslt.retMsg <> "" Then 
    18011829                    StatusLabel.Text = rslt.retMsg 
    … …  
    18441872                    RefreshDirectMessage(rslt.TLine, False) 
    18451873                End If 
     1874                TimerDM.Enabled = False 
    18461875                If rslt.retMsg <> "" Then 
    18471876                    StatusLabel.Text = rslt.retMsg 
    … …  
    30353064            clsTwPost.Username = _username 
    30363065            clsTwPost.Password = _password 
    3037             TimerTimeline.Interval = IIf(SettingDialog.TimelinePeriodInt > 0, SettingDialog.TimelinePeriodInt * 1000, 600000) 
    3038             TimerDM.Interval = IIf(SettingDialog.DMPeriodInt > 0, SettingDialog.DMPeriodInt * 1000, 600000) 
     3066            'TimerTimeline.Interval = IIf(SettingDialog.TimelinePeriodInt > 0, SettingDialog.TimelinePeriodInt * 1000, 600000) 
     3067            If SettingDialog.TimelinePeriodInt > 0 Then 
     3068                If SettingDialog.PeriodAdjust Then 
     3069                    If SettingDialog.TimelinePeriodInt * 1000 < TimerTimeline.Interval Then 
     3070                        TimerTimeline.Interval = SettingDialog.TimelinePeriodInt * 1000 
     3071                    End If 
     3072                Else 
     3073                    TimerTimeline.Interval = SettingDialog.TimelinePeriodInt * 1000 
     3074                End If 
     3075            Else 
     3076                TimerTimeline.Interval = 600000 
     3077                TimerTimeline.Enabled = False 
     3078            End If 
     3079            If SettingDialog.DMPeriodInt > 0 Then 
     3080                TimerDM.Interval = SettingDialog.DMPeriodInt * 1000 
     3081            Else 
     3082                TimerDM.Interval = 600000 
     3083                TimerDM.Enabled = False 
     3084            End If 
    30393085            clsTw.NextThreshold = SettingDialog.NextPageThreshold 
    30403086            clsTw.NextPages = SettingDialog.NextPagesInt 
    … …  
    30423088            clsTw.HubServer = SettingDialog.HubServer 
    30433089            clsTwPost.HubServer = SettingDialog.HubServer 
     3090            clsTw.TinyUrlResolve = SettingDialog.TinyUrlResolve 
    30443091            clsTw.ProxyType = SettingDialog.ProxyType 
    30453092            clsTw.ProxyAddress = SettingDialog.ProxyAddress 
    … …  
    59105957                    NotifyIcon1.Icon = NIconAtRed 
    59115958                Else 
     5959                    _postTimestamps.Add(Now) 
     5960                    Dim oneHour As Date = Now.Subtract(New TimeSpan(1, 0, 0)) 
     5961                    For i As Integer = 0 To _postTimestamps.Count - 1 
     5962                        If _postTimestamps(i).CompareTo(oneHour) < 0 Then 
     5963                            _postTimestamps.RemoveAt(i) 
     5964                        Else 
     5965                            Exit For 
     5966                        End If 
     5967                    Next 
    59125968                    If RemainPostNum > 1 Then RemainPostNum -= 1 
    59135969                    If TimerPostCounter.Enabled = False Then TimerPostCounter.Enabled = True 
    … …  
    63266382            End If 
    63276383        Next 
    6328         StatusLabelUrl.Text = "タブ: " + tur.ToString() + "/" + tal.ToString() + " 全体:" + ur.ToString() + "/" + al.ToString() + _ 
    6329                 " (返信: " + urat.ToString() + ") POST残り " + RemainPostNum.ToString() + "回/最大 " + SettingDialog.MaxPostNum.ToString() + "回" 
     6384        'StatusLabelUrl.Text = "タブ: " + tur.ToString() + "/" + tal.ToString() + " 全体:" + ur.ToString() + "/" + al.ToString() + _ 
     6385        '        " (返信: " + urat.ToString() + ") POST残り " + RemainPostNum.ToString() + "回/最大 " + SettingDialog.MaxPostNum.ToString() + "回 更新間隔:" + (TimerTimeline.Interval / 1000).ToString 
     6386        StatusLabelUrl.Text = "[タブ: " + tur.ToString() + "/" + tal.ToString() + " 全体: " + ur.ToString() + "/" + al.ToString() + _ 
     6387                " (返信: " + urat.ToString() + ")] [時速: " + _postTimestamps.Count.ToString() + "/" + _tlCount.ToString + "] [間隔: " + IIf(SettingDialog.TimelinePeriodInt = 0, "-", (TimerTimeline.Interval / 1000).ToString) + "]" 
    63306388    End Sub 
    63316389