Index: /lang/vb2005/Tween/Tween/StatusDictionary.vb =================================================================== --- /lang/vb2005/Tween/Tween/StatusDictionary.vb (revision 22965) +++ /lang/vb2005/Tween/Tween/StatusDictionary.vb (revision 23890) @@ -1,2 +1,25 @@ +' Tween - Client of Twitter +' Copyright © 2007-2008 kiri_feather (@kiri_feather) +' © 2008 Moz (@syo68k) +' © 2008 takeshik (@takeshik) +' All rights reserved. +' +' This file is part of Tween. +' +' This program is free software; you can redistribute it and/or modify it +' under the terms of the GNU General Public License as published by the Free +' Software Foundation; either version 3 of the License, or (at your option) +' any later version. +' +' This program is distributed in the hope that it will be useful, but +' WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY +' or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +' for more details. +' +' You should have received a copy of the GNU General Public License along +' with this program. If not, see , or write to +' the Free Software Foundation, Inc., 51 Franklin Street - Fifth Floor, +' Boston, MA 02110-1301, USA. + Imports System.Collections.Generic Imports System.Collections.ObjectModel @@ -13,10 +36,11 @@ Public Sub BeginUpdate() - _addedIds = New Specialized.StringCollection() '�^�u�lj�pID�R���N�V�������� End Sub + _addedIds = New Specialized.StringCollection() 'タブ追加用IDコレクション準備 + End Sub Public Function EndUpdate() As String - Dim NotifyString As String = _tabs.Distribute(_addedIds) '�^�u�ɒlj� - _tabs.Sort() '�\�[�g - Return NotifyString '�ʒm�p���b�Z�[�W��� + Dim NotifyString As String = _tabs.Distribute(_addedIds) 'タブに追加 + _tabs.Sort() 'ソート + Return NotifyString '通知用メッセージを戻す End Function @@ -40,5 +64,5 @@ 'Public Class StatusDictionary -' Private _tabs As TabInformations '�v�fTabsClass�N���X�̃W�F�l���b�N���X�g�C���X�^���X�i�^�u���p�j +' Private _tabs As TabInformations '要素TabsClassクラスのジェネリックリストインスタンス（タブ情報用） ' Private _statuses As New Dictionary(Of String, MyListItem) ' Private _setting As Setting @@ -287,5 +311,5 @@ Public Class TabInformations - '�•ʃ^�u�̏���tionary�ŕێ� + '個別タブの情報をDictionaryで保持 Private _sorter As ListViewItemComparerClass Private _tabs As New Dictionary(Of String, TabClass)() @@ -348,6 +372,6 @@ Public Function Distribute(ByVal AddedIDs As Specialized.StringCollection) As String - '�e�^�u�̃t�B���^�[�Əƍ��B���v�������u��D�lj� - Return "�ʒm���b�Z�[�W" + '各タブのフィルターと照合。合致したらタブにID追加 + Return "通知メッセージ" End Function @@ -529,5 +553,5 @@ '''' - '''' �������@ + '''' 比較する方法 '''' 'Public Enum ComparerMode @@ -544,5 +568,5 @@ '''' - '''' ��ёւ���stView��ԍ� + '''' 並び替えるListView列の番号 '''' 'Public Property Column() As Integer @@ -565,5 +589,5 @@ ''' - ''' �������~���� + ''' 昇順か降順か ''' Public Property Order() As SortOrder @@ -577,5 +601,6 @@ '''' - '''' ��ёւ��̕� '''' + '''' 並び替えの方法 + '''' 'Public Property Mode() As ComparerMode ' Get @@ -588,5 +613,6 @@ '''' - '''' �񂲂Ƃ̕�ёւ��̕� '''' + '''' 列ごとの並び替えの方法 + '''' 'Public WriteOnly Property ColumnModes() As ComparerMode() ' Set(ByVal Value As ComparerMode()) @@ -596,9 +622,9 @@ ''' - ''' ListViewItemComparer�N���X�̃R���X�g���N�^ + ''' ListViewItemComparerクラスのコンストラクタ ''' - ''' ��ёւ����ԍ� - ''' �������~���� - ''' ��ёւ��̕�param> + ''' 並び替える列番号 + ''' 昇順か降順か + ''' 並び替えの方法 Public Sub New(ByVal ord As SortOrder) _order = ord @@ -609,6 +635,6 @@ End Sub - 'x��y���������Ƃ��̓}�C�i�X�̐��A�傫���Ƃ��̓v���X�̐��A - '�����Ƃ������ + 'xがyより小さいときはマイナスの数、大きいときはプラスの数、 + '同じときは0を返す Public Function Compare(ByVal x As String, ByVal y As String) _ As Integer Implements IComparer(Of String).Compare @@ -616,5 +642,6 @@ result = String.Compare(x, y) - '�~���̎��͌��ʂ�t�ɂ��� If _order = SortOrder.Descending Then + '降順の時は結果を+-逆にする + If _order = SortOrder.Descending Then result = -result End If Index: /lang/vb2005/Tween/Tween/Setting.vb =================================================================== --- /lang/vb2005/Tween/Tween/Setting.vb (revision 23163) +++ /lang/vb2005/Tween/Tween/Setting.vb (revision 23890) @@ -1,2 +1,25 @@ +' Tween - Client of Twitter +' Copyright © 2007-2008 kiri_feather (@kiri_feather) +' © 2008 Moz (@syo68k) +' © 2008 takeshik (@takeshik) +' All rights reserved. +' +' This file is part of Tween. +' +' This program is free software; you can redistribute it and/or modify it +' under the terms of the GNU General Public License as published by the Free +' Software Foundation; either version 3 of the License, or (at your option) +' any later version. +' +' This program is distributed in the hope that it will be useful, but +' WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY +' or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +' for more details. +' +' You should have received a copy of the GNU General Public License along +' with this program. If not, see , or write to +' the Free Software Foundation, Inc., 51 Franklin Street - Fifth Floor, +' Boston, MA 02110-1301, USA. + Imports System.Xml @@ -165,5 +188,5 @@ Else xdocument.AppendChild(xdocument.CreateXmlDeclaration("1.0", "utf-8", Nothing)) - xdocument.AppendChild(xdocument.CreateComment("���̐ݒ��@�C����Tween �ɂ������������������B�蓮�ŕύX���Ȃ��ł��������B")) + xdocument.AppendChild(xdocument.CreateComment("この設定ファイルは Tween により自動生成されました。手動で変更しないでください。")) xdocument.AppendChild(xdocument.CreateElement("tween-configuration")) xdocument.Save(fileName) @@ -193,10 +216,10 @@ Password.Text.Trim = "" Then Me.DialogResult = Windows.Forms.DialogResult.Cancel - MessageBox.Show("���[�U�[���ƃp�X���[�h��肵�Ă��������B") + MessageBox.Show("ユーザー名とパスワードを指定してください。") Exit Sub End If If Username.Text.Contains("@") Then Me.DialogResult = Windows.Forms.DialogResult.Cancel - MessageBox.Show("���[�U�[���Ɂw@�x��߂Ȃ��ł��������B�i���[���A�h���X�s�j") + MessageBox.Show("ユーザー名に『@』を含めないでください。（メールアドレス不可）") Exit Sub End If @@ -312,5 +335,5 @@ Catch ex As Exception - MessageBox.Show("�ݒ��Ɍ����������B") + MessageBox.Show("設定値に誤りがあります。") Me.DialogResult = Windows.Forms.DialogResult.Cancel Exit Sub @@ -454,5 +477,5 @@ prd = CType(TimelinePeriod.Text, Integer) Catch ex As Exception - MessageBox.Show("�X�V�Ԋu�ɂ͐��l�i0�܂���5�`600�j��肵�Ă��������B") + MessageBox.Show("更新間隔には数値（0または15～600）を指定してください。") e.Cancel = True Exit Sub @@ -460,5 +483,5 @@ If prd <> 0 And (prd < 15 Or prd > 600) Then - MessageBox.Show("�X�V�Ԋu�ɂ͐��l�i0�܂���5�`600�j��肵�Ă��������B") + MessageBox.Show("更新間隔には数値（0または15～600）を指定してください。") e.Cancel = True End If @@ -470,5 +493,5 @@ thr = CType(NextThreshold.Text, Integer) Catch ex As Exception - MessageBox.Show("臒l�ɂ͐��l�i1�`20�j��肵�Ă��������B") + MessageBox.Show("閾値には数値（1～20）を指定してください。") e.Cancel = True Exit Sub @@ -476,5 +499,5 @@ If thr < 1 Or thr > 20 Then - MessageBox.Show("臒l�ɂ͐��l�i1�`20�j��肵�Ă��������B") + MessageBox.Show("閾値には数値（1～20）を指定してください。") e.Cancel = True End If @@ -486,5 +509,5 @@ thr = CType(NextPages.Text, Integer) Catch ex As Exception - MessageBox.Show("�y�[�W���ɂ͐��l�i1�`20�j��肵�Ă��������B") + MessageBox.Show("ページ数には数値（1～20）を指定してください。") e.Cancel = True Exit Sub @@ -492,5 +515,5 @@ If thr < 1 Or thr > 20 Then - MessageBox.Show("�y�[�W���ɂ͐��l�i1�`20�j��肵�Ă��������B") + MessageBox.Show("ページ数には数値（1～20）を指定してください。") e.Cancel = True End If @@ -502,5 +525,5 @@ prd = CType(DMPeriod.Text, Integer) Catch ex As Exception - MessageBox.Show("�X�V�Ԋu�ɂ͐��l�i0�܂���5�`600�j��肵�Ă��������B") + MessageBox.Show("更新間隔には数値（0または15～600）を指定してください。") e.Cancel = True Exit Sub @@ -508,5 +531,5 @@ If prd <> 0 And (prd < 15 Or prd > 600) Then - MessageBox.Show("�X�V�Ԋu�ɂ͐��l�i0�܂���5�`600�j��肵�Ă��������B") + MessageBox.Show("更新間隔には数値（0または15～600）を指定してください。") e.Cancel = True End If @@ -518,5 +541,5 @@ ' days = CType(ReadLogDays.Text, Integer) 'Catch ex As Exception - ' MessageBox.Show("�ǂݍ��ݓ��͐��l�i0�`7�j��肵�Ă��������B") + ' MessageBox.Show("読み込み日数には数値（0～7）を指定してください。") ' e.Cancel = True ' Exit Sub @@ -524,5 +547,5 @@ 'If days < 0 Or days > 7 Then - ' MessageBox.Show("�ǂݍ��ݓ��͐��l�i0�`7�j��肵�Ă��������B") + ' MessageBox.Show("読み込み日数には数値（0～7）を指定してください。") ' e.Cancel = True 'End If @@ -534,5 +557,5 @@ pages = CType(StartupReadPages.Text, Integer) Catch ex As Exception - MessageBox.Show("�ǂݍ��݃y�[�W���ɂ͐��l�i1�`999�j��肵�Ă��������B") + MessageBox.Show("読み込みページ数には数値（1～999）を指定してください。") e.Cancel = True Exit Sub @@ -540,5 +563,5 @@ If pages < 1 Or pages > 999 Then - MessageBox.Show("�ǂݍ��݃y�[�W���ɂ͐��l�i1�`999�j��肵�Ă��������B") + MessageBox.Show("読み込みページ数には数値（1～999）を指定してください。") e.Cancel = True End If @@ -550,5 +573,5 @@ pages = CType(StartupReadReply.Text, Integer) Catch ex As Exception - MessageBox.Show("�ǂݍ��݃y�[�W���ɂ͐��l�i0�`999�j��肵�Ă��������B") + MessageBox.Show("読み込みページ数には数値（0～999）を指定してください。") e.Cancel = True Exit Sub @@ -556,5 +579,5 @@ If pages < 0 Or pages > 999 Then - MessageBox.Show("�ǂݍ��݃y�[�W���ɂ͐��l�i0�`999�j��肵�Ă��������B") + MessageBox.Show("読み込みページ数には数値（0～999）を指定してください。") e.Cancel = True End If @@ -566,5 +589,5 @@ pages = CType(StartupReadDM.Text, Integer) Catch ex As Exception - MessageBox.Show("�ǂݍ��݃y�[�W���ɂ͐��l�i1�`999�j��肵�Ă��������B") + MessageBox.Show("読み込みページ数には数値（1～999）を指定してください。") e.Cancel = True Exit Sub @@ -572,5 +595,5 @@ If pages < 1 Or pages > 999 Then - MessageBox.Show("�ǂݍ��݃y�[�W���ɂ͐��l�i1�`999�j��肵�Ă��������B") + MessageBox.Show("読み込みページ数には数値（1～999）を指定してください。") e.Cancel = True End If @@ -1049,5 +1072,5 @@ Private Sub HubServerDomain_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles HubServerDomain.Validating If HubServerDomain.Text.Trim = "" Then - MessageBox.Show("�󗓂ɂ͂ł��܂���f�t�H���g�l�utwitter.com�v���ݒ肳�����B", "�h���C���w�� MessageBoxButtons.OK, MessageBoxIcon.Warning) + MessageBox.Show("空欄にはできません。デフォルト値「twitter.com」が設定されます。", "ドメイン指定", MessageBoxButtons.OK, MessageBoxIcon.Warning) HubServerDomain.Text = "twitter.com" End If @@ -1191,7 +1214,7 @@ Dim filedlg As New OpenFileDialog() - filedlg.Filter = "��s�`���t�@�C��(*.exe)|*.exe|���ׂẴt�@�C��(*.*)|*.*" + filedlg.Filter = "実行形式ファイル(*.exe)|*.exe|すべてのファイル(*.*)|*.*" filedlg.FilterIndex = 1 - filedlg.Title = "�u���E�U��肵�Ă�������" + filedlg.Title = "ブラウザを指定してください" filedlg.RestoreDirectory = True @@ -1218,10 +1241,10 @@ If TextProxyPort.Text.Trim() = "" Then TextProxyPort.Text = "0" If Integer.TryParse(TextProxyPort.Text.Trim(), port) = False Then - MessageBox.Show("�|�[�g�ԍ��ɂ͐����l��肵�Ă��������B") + MessageBox.Show("ポート番号には整数値を指定してください。") e.Cancel = True Exit Sub End If If port < 0 Or port > 65535 Then - MessageBox.Show("�|�[�g�ԍ��ɂ��`65535��肵�Ă��������B") + MessageBox.Show("ポート番号には0～65535を指定してください。") e.Cancel = True Exit Sub @@ -1234,5 +1257,5 @@ pstnm = CType(MaxPost.Text, Integer) Catch ex As Exception - MessageBox.Show("1���ԓ�������ST�񐔂ɂ͐��l�i1�`999�j��肵�Ă��������B") + MessageBox.Show("1時間当たり最大POST回数には数値（1～999）を指定してください。") e.Cancel = True Exit Sub @@ -1240,5 +1263,5 @@ If pstnm < 1 Or pstnm > 999 Then - MessageBox.Show("1���ԓ�������ST�񐔂ɂ͐��l�i1�`999�j��肵�Ă��������B") + MessageBox.Show("1時間当たり最大POST回数には数値（1～999）を指定してください。") e.Cancel = True End If Index: /lang/vb2005/Tween/Tween/TwConfig.vb =================================================================== --- /lang/vb2005/Tween/Tween/TwConfig.vb (revision 23269) +++ /lang/vb2005/Tween/Tween/TwConfig.vb (revision 23890) @@ -1,2 +1,25 @@ +' Tween - Client of Twitter +' Copyright © 2007-2008 kiri_feather (@kiri_feather) +' © 2008 Moz (@syo68k) +' © 2008 takeshik (@takeshik) +' All rights reserved. +' +' This file is part of Tween. +' +' This program is free software; you can redistribute it and/or modify it +' under the terms of the GNU General Public License as published by the Free +' Software Foundation; either version 3 of the License, or (at your option) +' any later version. +' +' This program is distributed in the hope that it will be useful, but +' WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY +' or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +' for more details. +' +' You should have received a copy of the GNU General Public License along +' with this program. If not, see , or write to +' the Free Software Foundation, Inc., 51 Franklin Street - Fifth Floor, +' Boston, MA 02110-1301, USA. + Imports System.Configuration @@ -1619,33 +1642,38 @@ Private Function EncryptString(ByVal str As String) As String - '������o�C�g�^�z����� Dim bytesIn As Byte() = System.Text.Encoding.UTF8.GetBytes(str) - - 'DESCryptoServiceProvider�I�u�W�F�N�g�̍쐬 + '文字列をバイト型配列にする + Dim bytesIn As Byte() = System.Text.Encoding.UTF8.GetBytes(str) + + 'DESCryptoServiceProviderオブジェクトの作成 Dim des As New System.Security.Cryptography.DESCryptoServiceProvider - '���L�L�[�Ə����N�^��� '�p�X���[�h��C�g�z����� Dim bytesKey As Byte() = System.Text.Encoding.UTF8.GetBytes("_tween_encrypt_key_") - '���L�L�[�Ə����N�^��� des.Key = ResizeBytesArray(bytesKey, des.Key.Length) + '共有キーと初期化ベクタを決定 + 'パスワードをバイト配列にする + Dim bytesKey As Byte() = System.Text.Encoding.UTF8.GetBytes("_tween_encrypt_key_") + '共有キーと初期化ベクタを設定 + des.Key = ResizeBytesArray(bytesKey, des.Key.Length) des.IV = ResizeBytesArray(bytesKey, des.IV.Length) - '�Í������ꂽ�f�[�^����o�����߂�emoryStream + '暗号化されたデータを書き出すためのMemoryStream Using msOut As New System.IO.MemoryStream - 'DES�Í����I�u�W�F�N�g�̍쐬 + 'DES暗号化オブジェクトの作成 Using desdecrypt As System.Security.Cryptography.ICryptoTransform = _ des.CreateEncryptor() - '�������ނ��߂�ryptoStream�̍쐬 + '書き込むためのCryptoStreamの作成 Using cryptStream As New System.Security.Cryptography.CryptoStream( _ msOut, desdecrypt, _ System.Security.Cryptography.CryptoStreamMode.Write) - '�������� + '書き込む cryptStream.Write(bytesIn, 0, bytesIn.Length) cryptStream.FlushFinalBlock() - '�Í������ꂽ�f�[�^��� + '暗号化されたデータを取得 Dim bytesOut As Byte() = msOut.ToArray() - '�‚��� cryptStream.Close() + '閉じる + cryptStream.Close() msOut.Close() - 'Base64�ŕ�����ύX���Č��ʂ�� + 'Base64で文字列に変更して結果を返す Return System.Convert.ToBase64String(bytesOut) End Using @@ -1655,29 +1683,34 @@ Private Function DecryptString(ByVal str As String) As String - 'DESCryptoServiceProvider�I�u�W�F�N�g�̍쐬 + 'DESCryptoServiceProviderオブジェクトの作成 Dim des As New System.Security.Cryptography.DESCryptoServiceProvider - '���L�L�[�Ə����N�^��� '�p�X���[�h��C�g�z����� Dim bytesKey As Byte() = System.Text.Encoding.UTF8.GetBytes("_tween_encrypt_key_") - '���L�L�[�Ə����N�^��� des.Key = ResizeBytesArray(bytesKey, des.Key.Length) + '共有キーと初期化ベクタを決定 + 'パスワードをバイト配列にする + Dim bytesKey As Byte() = System.Text.Encoding.UTF8.GetBytes("_tween_encrypt_key_") + '共有キーと初期化ベクタを設定 + des.Key = ResizeBytesArray(bytesKey, des.Key.Length) des.IV = ResizeBytesArray(bytesKey, des.IV.Length) - 'Base64�ŕ�����o�C�g�z��߂� + 'Base64で文字列をバイト配列に戻す Dim bytesIn As Byte() = System.Convert.FromBase64String(str) - '�Í������ꂽ�f�[�^��ݍ��ނ��߂�emoryStream + '暗号化されたデータを読み込むためのMemoryStream Using msIn As New System.IO.MemoryStream(bytesIn) - 'DES�������I�u�W�F�N�g�̍쐬 + 'DES復号化オブジェクトの作成 Using desdecrypt As System.Security.Cryptography.ICryptoTransform = _ des.CreateDecryptor() - '�ǂݍ��ނ��߂�ryptoStream�̍쐬 + '読み込むためのCryptoStreamの作成 Using cryptStreem As New System.Security.Cryptography.CryptoStream( _ msIn, desdecrypt, _ System.Security.Cryptography.CryptoStreamMode.Read) - '���������ꂽ�f�[�^������邽�߂�treamReader + '復号化されたデータを取得するためのStreamReader Using srOut As New System.IO.StreamReader( _ cryptStreem, System.Text.Encoding.UTF8) - '���������ꂽ�f�[�^������� Dim result As String = srOut.ReadToEnd() - - '�‚��� srOut.Close() + '復号化されたデータを取得する + Dim result As String = srOut.ReadToEnd() + + '閉じる + srOut.Close() cryptStreem.Close() msIn.Close()