• R/O
  • SSH
  • HTTPS

コミット

タグ
未設定

よく使われているワード(クリックで追加)

javaandroidc++linuxc#objective-ccocoa誰得qtrubybathyscaphegamepythonphpguiwindowsc翻訳omegattwitterframeworkbtronarduinovb.net計画中(planning stage)directxpreviewertestゲームエンジンdom

将棋ウォーズ棋譜を検索条件を指定して一括でダウンロードする。


コミットメタ情報

リビジョン9 (tree)
日時2015-01-28 22:39:26
作者bellyoshi

ログメッセージ

種別に「すべて」を追加

変更サマリ

差分

--- ShogiWarsKifuDownloader/ShogiWarsKifuDownloader/frmCondtion.Designer.vb (revision 8)
+++ ShogiWarsKifuDownloader/ShogiWarsKifuDownloader/frmCondtion.Designer.vb (revision 9)
@@ -22,78 +22,27 @@
2222 'コード エディターを使って変更しないでください。
2323 <System.Diagnostics.DebuggerStepThrough()> _
2424 Private Sub InitializeComponent()
25- Me.rb10min = New System.Windows.Forms.RadioButton()
26- Me.rb3min = New System.Windows.Forms.RadioButton()
27- Me.rb10sec = New System.Windows.Forms.RadioButton()
28- Me.rbAnimal = New System.Windows.Forms.RadioButton()
29- Me.GroupBox1 = New System.Windows.Forms.GroupBox()
3025 Me.Label1 = New System.Windows.Forms.Label()
3126 Me.txtName1 = New System.Windows.Forms.TextBox()
3227 Me.txtName2 = New System.Windows.Forms.TextBox()
3328 Me.Label2 = New System.Windows.Forms.Label()
34- Me.txtSaveDirectory = New System.Windows.Forms.TextBox()
35- Me.btnSelectDirectory = New System.Windows.Forms.Button()
29+ Me.txt10minSaveDirectory = New System.Windows.Forms.TextBox()
30+ Me.btn10minSelectDirectory = New System.Windows.Forms.Button()
3631 Me.btnDownload = New System.Windows.Forms.Button()
3732 Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog()
38- Me.GroupBox1.SuspendLayout()
33+ Me.txt3minSaveDirectory = New System.Windows.Forms.TextBox()
34+ Me.btn3minSelectDirectory = New System.Windows.Forms.Button()
35+ Me.txt10secSaveDirectory = New System.Windows.Forms.TextBox()
36+ Me.btn10secSelectDirectory = New System.Windows.Forms.Button()
37+ Me.txtAnimalSaveDirectory = New System.Windows.Forms.TextBox()
38+ Me.btnAnimalSelectDirectory = New System.Windows.Forms.Button()
39+ Me.chk10min = New System.Windows.Forms.CheckBox()
40+ Me.chk3min = New System.Windows.Forms.CheckBox()
41+ Me.chk10sec = New System.Windows.Forms.CheckBox()
42+ Me.chkAnimal = New System.Windows.Forms.CheckBox()
43+ Me.chkAll = New System.Windows.Forms.CheckBox()
3944 Me.SuspendLayout()
4045 '
41- 'rb10min
42- '
43- Me.rb10min.AutoSize = True
44- Me.rb10min.Location = New System.Drawing.Point(10, 18)
45- Me.rb10min.Name = "rb10min"
46- Me.rb10min.Size = New System.Drawing.Size(92, 16)
47- Me.rb10min.TabIndex = 0
48- Me.rb10min.TabStop = True
49- Me.rb10min.Text = "10分切れ負け"
50- Me.rb10min.UseVisualStyleBackColor = True
51- '
52- 'rb3min
53- '
54- Me.rb3min.AutoSize = True
55- Me.rb3min.Checked = True
56- Me.rb3min.Location = New System.Drawing.Point(108, 18)
57- Me.rb3min.Name = "rb3min"
58- Me.rb3min.Size = New System.Drawing.Size(86, 16)
59- Me.rb3min.TabIndex = 0
60- Me.rb3min.TabStop = True
61- Me.rb3min.Text = "3分切れ負け"
62- Me.rb3min.UseVisualStyleBackColor = True
63- '
64- 'rb10sec
65- '
66- Me.rb10sec.AutoSize = True
67- Me.rb10sec.Location = New System.Drawing.Point(200, 18)
68- Me.rb10sec.Name = "rb10sec"
69- Me.rb10sec.Size = New System.Drawing.Size(71, 16)
70- Me.rb10sec.TabIndex = 0
71- Me.rb10sec.Text = "10秒将棋"
72- Me.rb10sec.UseVisualStyleBackColor = True
73- '
74- 'rbAnimal
75- '
76- Me.rbAnimal.AutoSize = True
77- Me.rbAnimal.Location = New System.Drawing.Point(288, 18)
78- Me.rbAnimal.Name = "rbAnimal"
79- Me.rbAnimal.Size = New System.Drawing.Size(82, 16)
80- Me.rbAnimal.TabIndex = 0
81- Me.rbAnimal.TabStop = True
82- Me.rbAnimal.Text = "どうぶつ将棋"
83- Me.rbAnimal.UseVisualStyleBackColor = True
84- '
85- 'GroupBox1
86- '
87- Me.GroupBox1.Controls.Add(Me.rb10sec)
88- Me.GroupBox1.Controls.Add(Me.rbAnimal)
89- Me.GroupBox1.Controls.Add(Me.rb3min)
90- Me.GroupBox1.Controls.Add(Me.rb10min)
91- Me.GroupBox1.Location = New System.Drawing.Point(12, 51)
92- Me.GroupBox1.Name = "GroupBox1"
93- Me.GroupBox1.Size = New System.Drawing.Size(384, 47)
94- Me.GroupBox1.TabIndex = 1
95- Me.GroupBox1.TabStop = False
96- '
9746 'Label1
9847 '
9948 Me.Label1.AutoSize = True
@@ -121,31 +70,31 @@
12170 'Label2
12271 '
12372 Me.Label2.AutoSize = True
124- Me.Label2.Location = New System.Drawing.Point(20, 107)
73+ Me.Label2.Location = New System.Drawing.Point(118, 60)
12574 Me.Label2.Name = "Label2"
12675 Me.Label2.Size = New System.Drawing.Size(64, 12)
12776 Me.Label2.TabIndex = 2
12877 Me.Label2.Text = "保存フォルダ"
12978 '
130- 'txtSaveDirectory
79+ 'txt10minSaveDirectory
13180 '
132- Me.txtSaveDirectory.Location = New System.Drawing.Point(90, 104)
133- Me.txtSaveDirectory.Name = "txtSaveDirectory"
134- Me.txtSaveDirectory.Size = New System.Drawing.Size(241, 19)
135- Me.txtSaveDirectory.TabIndex = 4
81+ Me.txt10minSaveDirectory.Location = New System.Drawing.Point(120, 86)
82+ Me.txt10minSaveDirectory.Name = "txt10minSaveDirectory"
83+ Me.txt10minSaveDirectory.Size = New System.Drawing.Size(291, 19)
84+ Me.txt10minSaveDirectory.TabIndex = 4
13685 '
137- 'btnSelectDirectory
86+ 'btn10minSelectDirectory
13887 '
139- Me.btnSelectDirectory.Location = New System.Drawing.Point(337, 102)
140- Me.btnSelectDirectory.Name = "btnSelectDirectory"
141- Me.btnSelectDirectory.Size = New System.Drawing.Size(53, 23)
142- Me.btnSelectDirectory.TabIndex = 5
143- Me.btnSelectDirectory.Text = "参照"
144- Me.btnSelectDirectory.UseVisualStyleBackColor = True
88+ Me.btn10minSelectDirectory.Location = New System.Drawing.Point(417, 84)
89+ Me.btn10minSelectDirectory.Name = "btn10minSelectDirectory"
90+ Me.btn10minSelectDirectory.Size = New System.Drawing.Size(53, 23)
91+ Me.btn10minSelectDirectory.TabIndex = 5
92+ Me.btn10minSelectDirectory.Text = "参照"
93+ Me.btn10minSelectDirectory.UseVisualStyleBackColor = True
14594 '
14695 'btnDownload
14796 '
148- Me.btnDownload.Location = New System.Drawing.Point(278, 144)
97+ Me.btnDownload.Location = New System.Drawing.Point(358, 217)
14998 Me.btnDownload.Name = "btnDownload"
15099 Me.btnDownload.Size = New System.Drawing.Size(112, 23)
151100 Me.btnDownload.TabIndex = 5
@@ -152,39 +101,151 @@
152101 Me.btnDownload.Text = "ダウンロード"
153102 Me.btnDownload.UseVisualStyleBackColor = True
154103 '
104+ 'txt3minSaveDirectory
105+ '
106+ Me.txt3minSaveDirectory.Location = New System.Drawing.Point(120, 118)
107+ Me.txt3minSaveDirectory.Name = "txt3minSaveDirectory"
108+ Me.txt3minSaveDirectory.Size = New System.Drawing.Size(291, 19)
109+ Me.txt3minSaveDirectory.TabIndex = 4
110+ '
111+ 'btn3minSelectDirectory
112+ '
113+ Me.btn3minSelectDirectory.Location = New System.Drawing.Point(417, 116)
114+ Me.btn3minSelectDirectory.Name = "btn3minSelectDirectory"
115+ Me.btn3minSelectDirectory.Size = New System.Drawing.Size(53, 23)
116+ Me.btn3minSelectDirectory.TabIndex = 5
117+ Me.btn3minSelectDirectory.Text = "参照"
118+ Me.btn3minSelectDirectory.UseVisualStyleBackColor = True
119+ '
120+ 'txt10secSaveDirectory
121+ '
122+ Me.txt10secSaveDirectory.Location = New System.Drawing.Point(120, 147)
123+ Me.txt10secSaveDirectory.Name = "txt10secSaveDirectory"
124+ Me.txt10secSaveDirectory.Size = New System.Drawing.Size(291, 19)
125+ Me.txt10secSaveDirectory.TabIndex = 4
126+ '
127+ 'btn10secSelectDirectory
128+ '
129+ Me.btn10secSelectDirectory.Location = New System.Drawing.Point(417, 145)
130+ Me.btn10secSelectDirectory.Name = "btn10secSelectDirectory"
131+ Me.btn10secSelectDirectory.Size = New System.Drawing.Size(53, 23)
132+ Me.btn10secSelectDirectory.TabIndex = 5
133+ Me.btn10secSelectDirectory.Text = "参照"
134+ Me.btn10secSelectDirectory.UseVisualStyleBackColor = True
135+ '
136+ 'txtAnimalSaveDirectory
137+ '
138+ Me.txtAnimalSaveDirectory.Location = New System.Drawing.Point(120, 172)
139+ Me.txtAnimalSaveDirectory.Name = "txtAnimalSaveDirectory"
140+ Me.txtAnimalSaveDirectory.Size = New System.Drawing.Size(291, 19)
141+ Me.txtAnimalSaveDirectory.TabIndex = 4
142+ '
143+ 'btnAnimalSelectDirectory
144+ '
145+ Me.btnAnimalSelectDirectory.Location = New System.Drawing.Point(417, 170)
146+ Me.btnAnimalSelectDirectory.Name = "btnAnimalSelectDirectory"
147+ Me.btnAnimalSelectDirectory.Size = New System.Drawing.Size(53, 23)
148+ Me.btnAnimalSelectDirectory.TabIndex = 5
149+ Me.btnAnimalSelectDirectory.Text = "参照"
150+ Me.btnAnimalSelectDirectory.UseVisualStyleBackColor = True
151+ '
152+ 'chk10min
153+ '
154+ Me.chk10min.AutoSize = True
155+ Me.chk10min.Location = New System.Drawing.Point(21, 88)
156+ Me.chk10min.Name = "chk10min"
157+ Me.chk10min.Size = New System.Drawing.Size(93, 16)
158+ Me.chk10min.TabIndex = 6
159+ Me.chk10min.Text = "10分切れ負け"
160+ Me.chk10min.UseVisualStyleBackColor = True
161+ '
162+ 'chk3min
163+ '
164+ Me.chk3min.AutoSize = True
165+ Me.chk3min.Location = New System.Drawing.Point(21, 121)
166+ Me.chk3min.Name = "chk3min"
167+ Me.chk3min.Size = New System.Drawing.Size(87, 16)
168+ Me.chk3min.TabIndex = 6
169+ Me.chk3min.Text = "3分切れ負け"
170+ Me.chk3min.UseVisualStyleBackColor = True
171+ '
172+ 'chk10sec
173+ '
174+ Me.chk10sec.AutoSize = True
175+ Me.chk10sec.Location = New System.Drawing.Point(21, 149)
176+ Me.chk10sec.Name = "chk10sec"
177+ Me.chk10sec.Size = New System.Drawing.Size(72, 16)
178+ Me.chk10sec.TabIndex = 6
179+ Me.chk10sec.Text = "10秒将棋"
180+ Me.chk10sec.UseVisualStyleBackColor = True
181+ '
182+ 'chkAnimal
183+ '
184+ Me.chkAnimal.AutoSize = True
185+ Me.chkAnimal.Location = New System.Drawing.Point(21, 177)
186+ Me.chkAnimal.Name = "chkAnimal"
187+ Me.chkAnimal.Size = New System.Drawing.Size(83, 16)
188+ Me.chkAnimal.TabIndex = 6
189+ Me.chkAnimal.Text = "どうぶつ将棋"
190+ Me.chkAnimal.UseVisualStyleBackColor = True
191+ '
192+ 'chkAll
193+ '
194+ Me.chkAll.AutoSize = True
195+ Me.chkAll.Location = New System.Drawing.Point(21, 60)
196+ Me.chkAll.Name = "chkAll"
197+ Me.chkAll.Size = New System.Drawing.Size(53, 16)
198+ Me.chkAll.TabIndex = 7
199+ Me.chkAll.Text = "すべて"
200+ Me.chkAll.UseVisualStyleBackColor = True
201+ '
155202 'frmCondtion
156203 '
157204 Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
158205 Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
159- Me.ClientSize = New System.Drawing.Size(402, 179)
206+ Me.ClientSize = New System.Drawing.Size(490, 277)
207+ Me.Controls.Add(Me.chkAll)
208+ Me.Controls.Add(Me.chkAnimal)
209+ Me.Controls.Add(Me.chk10sec)
210+ Me.Controls.Add(Me.chk3min)
211+ Me.Controls.Add(Me.chk10min)
160212 Me.Controls.Add(Me.btnDownload)
161- Me.Controls.Add(Me.btnSelectDirectory)
162- Me.Controls.Add(Me.txtSaveDirectory)
213+ Me.Controls.Add(Me.btnAnimalSelectDirectory)
214+ Me.Controls.Add(Me.btn10secSelectDirectory)
215+ Me.Controls.Add(Me.btn3minSelectDirectory)
216+ Me.Controls.Add(Me.btn10minSelectDirectory)
217+ Me.Controls.Add(Me.txtAnimalSaveDirectory)
218+ Me.Controls.Add(Me.txt10secSaveDirectory)
219+ Me.Controls.Add(Me.txt3minSaveDirectory)
220+ Me.Controls.Add(Me.txt10minSaveDirectory)
163221 Me.Controls.Add(Me.txtName2)
164222 Me.Controls.Add(Me.txtName1)
165223 Me.Controls.Add(Me.Label2)
166224 Me.Controls.Add(Me.Label1)
167- Me.Controls.Add(Me.GroupBox1)
168225 Me.Name = "frmCondtion"
169226 Me.Text = "将棋ウォーズ棋譜ダウンローダー"
170- Me.GroupBox1.ResumeLayout(False)
171- Me.GroupBox1.PerformLayout()
172227 Me.ResumeLayout(False)
173228 Me.PerformLayout()
174229
175230 End Sub
176- Friend WithEvents rb10min As System.Windows.Forms.RadioButton
177- Friend WithEvents rb3min As System.Windows.Forms.RadioButton
178- Friend WithEvents rb10sec As System.Windows.Forms.RadioButton
179- Friend WithEvents rbAnimal As System.Windows.Forms.RadioButton
180- Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
181231 Friend WithEvents Label1 As System.Windows.Forms.Label
182232 Friend WithEvents txtName1 As System.Windows.Forms.TextBox
183233 Friend WithEvents txtName2 As System.Windows.Forms.TextBox
184234 Friend WithEvents Label2 As System.Windows.Forms.Label
185- Friend WithEvents txtSaveDirectory As System.Windows.Forms.TextBox
186- Friend WithEvents btnSelectDirectory As System.Windows.Forms.Button
235+ Friend WithEvents txt10minSaveDirectory As System.Windows.Forms.TextBox
236+ Friend WithEvents btn10minSelectDirectory As System.Windows.Forms.Button
187237 Friend WithEvents btnDownload As System.Windows.Forms.Button
188238 Friend WithEvents FolderBrowserDialog1 As System.Windows.Forms.FolderBrowserDialog
239+ Friend WithEvents txt3minSaveDirectory As System.Windows.Forms.TextBox
240+ Friend WithEvents btn3minSelectDirectory As System.Windows.Forms.Button
241+ Friend WithEvents txt10secSaveDirectory As System.Windows.Forms.TextBox
242+ Friend WithEvents btn10secSelectDirectory As System.Windows.Forms.Button
243+ Friend WithEvents txtAnimalSaveDirectory As System.Windows.Forms.TextBox
244+ Friend WithEvents btnAnimalSelectDirectory As System.Windows.Forms.Button
245+ Friend WithEvents chk10min As System.Windows.Forms.CheckBox
246+ Friend WithEvents chk3min As System.Windows.Forms.CheckBox
247+ Friend WithEvents chk10sec As System.Windows.Forms.CheckBox
248+ Friend WithEvents chkAnimal As System.Windows.Forms.CheckBox
249+ Friend WithEvents chkAll As System.Windows.Forms.CheckBox
189250
190251 End Class
--- ShogiWarsKifuDownloader/ShogiWarsKifuDownloader/frmCondtion.vb (revision 8)
+++ ShogiWarsKifuDownloader/ShogiWarsKifuDownloader/frmCondtion.vb (revision 9)
@@ -2,7 +2,7 @@
22
33
44 Private Sub btnDownload_Click(sender As System.Object, e As System.EventArgs) Handles btnDownload.Click
5- If txtSaveDirectory.Text = String.Empty Then
5+ If txt10minSaveDirectory.Text = String.Empty Then
66 MessageBox.Show("保存先を選択してください。")
77 Exit Sub
88 End If
@@ -10,10 +10,10 @@
1010 txtName2.Text = String.Empty Then
1111 MessageBox.Show("対局者をどちらか入力してください。")
1212 End If
13- If Not rb10min.Checked AndAlso
14- Not rb3min.Checked AndAlso
15- Not rb10sec.Checked AndAlso
16- Not rbAnimal.Checked Then
13+ If Not chk10min.Checked AndAlso
14+ Not chk3min.Checked AndAlso
15+ Not chk10sec.Checked AndAlso
16+ Not chkAnimal.Checked Then
1717 MessageBox.Show("対局モードを選択してください。")
1818 End If
1919
@@ -22,7 +22,7 @@
2222 frm.BackgroundWorker1,
2323 txtName1.Text,
2424 txtName2.Text)
25- downloder.AddGtypeDirectoryPair(New gTypeDirectoryPair(GetGTypeValue(), txtSaveDirectory.Text))
25+ SetGTypeDirectoryPairTo(downloder)
2626 frm.downLoder = downloder
2727 frm.ShowDialog()
2828
@@ -29,34 +29,60 @@
2929 End Sub
3030
3131
32-
33- Private Function GetGTypeValue() As Integer
34- If rb10min.Checked Then
35- Return 0
32+ Private Sub SetGTypeDirectoryPairTo(ByVal downloder As downloder)
33+ Const GANIMAL As Integer = 2
34+ Const G10MIN As Integer = 0
35+ Const G10SEC As Integer = 3
36+ Const G3MIN As Integer = 1
37+ Dim gdLists As New List(Of gTypeDirectoryPair)
38+ If chkAnimal.Checked Then
39+ downloder.AddGD(GANIMAL, txtAnimalSaveDirectory.Text)
3640 End If
37- If rb3min.Checked Then
38- Return 1
41+ If chk10min.Checked Then
42+ downloder.AddGD(G10MIN, txt10minSaveDirectory.Text)
3943 End If
40- If rb10sec.Checked Then
41- Return 3
44+ If chk10sec.Checked Then
45+ downloder.AddGD(G10SEC, txt10secSaveDirectory.Text)
4246 End If
43- If rbAnimal.Checked Then
44- Return 2
47+ If chk3min.Checked Then
48+ downloder.AddGD(G3MIN, txt3minSaveDirectory.Text)
4549 End If
46- Return 0
47- End Function
50+ End Sub
4851
4952 Private Sub frmCondtion_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
50- rb3min.Checked = True
53+ chkAll.Checked = True
5154 End Sub
5255
53- Private Sub btnSelectDirectory_Click(sender As System.Object, e As System.EventArgs) Handles btnSelectDirectory.Click
56+ Private Sub btn10minSelectDirectory_Click(sender As System.Object, e As System.EventArgs) Handles btn10minSelectDirectory.Click
5457 If FolderBrowserDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
55- txtSaveDirectory.Text = FolderBrowserDialog1.SelectedPath
58+ txt10minSaveDirectory.Text = FolderBrowserDialog1.SelectedPath
5659 End If
5760 End Sub
5861
62+ Private Sub btnAnimalSelectDirectory_Click(sender As System.Object, e As System.EventArgs) Handles btnAnimalSelectDirectory.Click
63+ If FolderBrowserDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
64+ txtAnimalSaveDirectory.Text = FolderBrowserDialog1.SelectedPath
65+ End If
66+ End Sub
5967
68+ Private Sub btn10secSelectDirectory_Click(sender As System.Object, e As System.EventArgs) Handles btn10secSelectDirectory.Click
69+ If FolderBrowserDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
70+ txt10secSaveDirectory.Text = FolderBrowserDialog1.SelectedPath
71+ End If
72+ End Sub
6073
74+ Private Sub btn3minSelectDirectory_Click(sender As System.Object, e As System.EventArgs) Handles btn3minSelectDirectory.Click
75+ If FolderBrowserDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
76+ txt3minSaveDirectory.Text = FolderBrowserDialog1.SelectedPath
77+ End If
78+ End Sub
6179
80+
81+ Private Sub chkAll_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkAll.CheckedChanged
82+ chk10min.Checked = chkAll.Checked
83+ chk10sec.Checked = chkAll.Checked
84+ chk3min.Checked = chkAll.Checked
85+ chkAnimal.Checked = chkAll.Checked
86+ End Sub
87+
6288 End Class
--- ShogiWarsKifuDownloader/ShogiWarsKifuDownloader/downloder.vb (revision 8)
+++ ShogiWarsKifuDownloader/ShogiWarsKifuDownloader/downloder.vb (revision 9)
@@ -23,10 +23,14 @@
2323 _name2 = name2
2424 End Sub
2525
26- Public Sub AddGtypeDirectoryPair(ByVal pair As gTypeDirectoryPair)
26+ Private Sub AddGtypeDirectoryPair(ByVal pair As gTypeDirectoryPair)
2727 _gTypePairList.Add(pair)
2828 End Sub
2929
30+ Public Sub AddGD(ByVal gtype As Integer, saveDirectory As String)
31+ AddGtypeDirectoryPair(New gTypeDirectoryPair(gtype, saveDirectory))
32+ End Sub
33+
3034 Public Sub Start()
3135 _backGroudWoker.ReportProgress(0, "ログイン開始")
3236 LoginReq()