原付生活(3)
Excel VBAで「SPAT4自動投票システム」を作ってみました。
最初に書いておきます。
・このプログラムで何か問題が起きても、管理人は責任を負いません。
馬券購入についても当然ですが各個人の問題です。文句言わないでください。
・ある程度の知識がある方を前提にしています。
プログラムの内容についての質問等にはあまり答える気はありません。
わからないことがあれば、各個人でググって調べてください。
・自由に改変とかしてください。これで商売されるのも勝手にやってください。
ただ何の責任もとりません。
ブログなどで紹介するなら『「The Sunday Breeze」のやつを参考にした』程度でも
ひとこと書いてもらえると嬉しいです。強制ではないです。
-----
さて。
JRAのインターネット投票システム「iPAT」には
自動で投票済ませてくれるプログラムがあるんですが
地方競馬用の投票システム(SPAT4、オッズパーク、楽天競馬)には
ネットを探す限り、自動で投票してくれるシステムはないようです。
ということで、今回簡単ではありますが
管理人が長く使っている「SPAT4」で自動投票してくれるプログラムを組みました。
---
基本的な動作と前提条件
・管理人はVBで作っていますが、単独exeで動くかOfficeベースで動くかの違いなので
ExcelのVBAでも動作すると思います。Excelのバージョンによっては使えません。
もしかしたらVB.netでも使えるのかな？(未確認)
・InternetExplorerを使います。Windows10ではオプションでインストールできます。
・当たり前ですが、予想はしません。
予想(買い目)をフォーマットに従ってテキストファイルに書いておくことが前提です。
・公開するソースは「3連複」「3連単」「ワイド」の「フォーメーション」のみを対応としていますが
ほかの券種や買い方も簡単に追加できると思います。
必要な方はご自由に直してください。
・事前にSPAT4への入金はしておいてください(残高不足で投票できないだけですが)
---
こういう予想ファイルを作りましょう。
コース名、レース番号、券種、馬1(ハイフンでつなげる)、馬2、馬3、1点当たりの金額(100円単位)をカンマ区切りで。
同じ形式で複数行記入できます。違う競馬場でも違うレースでも違う券種でも、いっぺんに投票できます。
この場合、1行目は
高知12レースの3連複で
馬1(1列目)が5、馬2(2列目)が3,6,9、馬3(3列目)が1,2,3,7,9,10,11,12で
各100円ずつの購入。
2行目は帯広9レースのワイドの場合
馬1(1列目)に5、馬2(2列目)に3,6,9
馬3がないので、値を入れずにカンマが続くように書きます。
この場合は各200円ずつ(計600円ですかね)
---
最初にInternetExplorerをVBAの中で使える設定をしましょう。
メニューの[ツール]から[参照設定]を開いて
・Microsoft HTML Object Library
・Microsoft Internet Controls
を探してチェックを入れましょう。
それと、ソースの一番最初に次のように書いておきましょう。
Windowsで提供されている標準の関数を使う準備です。
---
ではプログラムをぶつ切りで書いていきます。
最終的につなげれば、動くはずです。
まずは予想ファイルを読み込みます。
「c:\temp」に「votedata_なんとか.csv」という名前で保存している例です。
複数ファイルがあってもいいように、ループさせます。
InternetExplorerを開きます。
ページが完全に表示されるまで待機。
ここで、HTMLのソースを見ればわかりますが
ログインフォーム全体が「LOGIN」
加入者番号は「MEMBERNUMR」、利用者IDは「MEMBERIDR」と名前がついています。
それぞれ値を入れて、ログインボタンを押しましょう。
ページが完全に表示されるまで待機。
ボタンが並んでいる中から、「投票入力」と書かれているボタンを選んでクリックします。
ページが完全に表示されるまで待機。
このページはフレーム構成になっていて
上の黄色が0、赤が左から1,2,3、下の黄色が4
使うのは1,2,3ですかね。
フレームを分割します。
最後の金額入力の準備だけしたら
予想ファイルから1行ずつ見ていきますかね。
フレーム1(左の赤)を見ていきます。
それぞれこういう名前がついています(HTMLにこう書かれています)
まずは「PLACE」というセレクトボックス(コンボボックス)を探して
予想ファイルの1項目目(0)と一致する場名を選択します。
選択したら、JavaScriptのonChangeイベントを実行。
onChangeを実行しないと、レース番号が出てきません。
同じ要領で、次はレース番号。予想ファイルの2項目目(1)
続いて式別。予想ファイルの3項目目(2)
投票方式はフォーメーション固定にしてます。
流しとか追加するなら、同じ要領でできますね。
金額は予想ファイルの7項目目(6)
「KINGAKU」という名前のテキストボックスに値をぶち込むだけです。
ここまでいくと、フレーム2(真ん中の赤)に頭数分のチェックボックスが出てきます。
ここでは
列は馬1「C1」、馬2「C2」、馬3「C3」
んで
行は馬番マイナス1の番号が名前になっています。
馬1の5番なら「C1の4」
馬2の3番と6番と9番なら「C2の2、C2の5、C2の8」
にそれぞれチェックを入れるだけです。
予想ファイルの4項目目(3)をハイフンで分割して、C1の馬番マイナス1にチェック
馬2も同じ。予想ファイルの5項目目(4)をC2列へ。
馬3も同じ。ただ馬連馬単ワイドの場合は、この処理を飛ばすように書いたほうがいいです。
ここまで来たら、
チェックボックスをクリックしたときに動くJavaScriptを呼びます。
馬1の馬番1をクリックしたテイで。(実際にチェックはしません)
このonClickを動かさないと、組数(AMOUNT)が計算されないのです。
これで組数が表示されるので、その数字×金額(合計金額)を控えておきましょう。
んで、フレーム1(左)の「入力決定」ボタンを探して押します。
んで次の行の処理へ。ループ2(ファイルの行があるだけループ)を繰り返します。
すべての行の入力を終えたら、
フレーム3(右)の「投票内容確認へ」のボタンを探して押します。
ただ、このボタンを押すとき
普通に押すと制御が利かなくなりますので(このあとダイアログが出てくるので)
非同期で押すようにしましょう。
非同期でボタンを押したら、ちょっと時間を空けて(2秒)
ダイアログ(「Web ページからのメッセージ」)のウインドウを探してOKボタンを押してあげます。
ページが完全に表示されるまで待機。
これまでと同じやり方ですね。
暗証番号は「MEMBERPASSR」、投票金額は「TOTALMONEYR」という名前になっていますので
それぞれ入れて、「投票する」ボタンを探して押します。
この時も先ほど同様、非同期でボタンを押して、ダイアログのOKボタンまで押しましょう。
ページが完全に表示されるまで待機。
これで投票完了です。
InternetExplorerを閉じて、次のファイルを開く準備をして
ループ1(ファイルがあるだけループ)を繰り返します。
これで終了です。
---
今回作ったのは予想ファイルを使って読み込んで投票する仕組みですが
Excelのセルを読み込んで投票する仕組みも簡単にできると思います。
適当に直して使ってください。
どっちにしても大事なのは
「予想するロジック」(今回でいう「予想ファイルの作り方」)だと思いますので。
・このプログラムで何か問題が起きても、管理人は責任を負いません。
馬券購入についても当然ですが各個人の問題です。文句言わないでください。
・ある程度の知識がある方を前提にしています。
プログラムの内容についての質問等にはあまり答える気はありません。
わからないことがあれば、各個人でググって調べてください。
・自由に改変とかしてください。これで商売されるのも勝手にやってください。
ただ何の責任もとりません。
ブログなどで紹介するなら『「The Sunday Breeze」のやつを参考にした』程度でも
ひとこと書いてもらえると嬉しいです。強制ではないです。
-----
さて。
JRAのインターネット投票システム「iPAT」には
自動で投票済ませてくれるプログラムがあるんですが
地方競馬用の投票システム(SPAT4、オッズパーク、楽天競馬)には
ネットを探す限り、自動で投票してくれるシステムはないようです。
ということで、今回簡単ではありますが
管理人が長く使っている「SPAT4」で自動投票してくれるプログラムを組みました。
---
基本的な動作と前提条件
・管理人はVBで作っていますが、単独exeで動くかOfficeベースで動くかの違いなので
ExcelのVBAでも動作すると思います。Excelのバージョンによっては使えません。
もしかしたらVB.netでも使えるのかな？(未確認)
・InternetExplorerを使います。Windows10ではオプションでインストールできます。
・当たり前ですが、予想はしません。
予想(買い目)をフォーマットに従ってテキストファイルに書いておくことが前提です。
・公開するソースは「3連複」「3連単」「ワイド」の「フォーメーション」のみを対応としていますが
ほかの券種や買い方も簡単に追加できると思います。
必要な方はご自由に直してください。
・事前にSPAT4への入金はしておいてください(残高不足で投票できないだけですが)
---
こういう予想ファイルを作りましょう。
コース名、レース番号、券種、馬1(ハイフンでつなげる)、馬2、馬3、1点当たりの金額(100円単位)をカンマ区切りで。
同じ形式で複数行記入できます。違う競馬場でも違うレースでも違う券種でも、いっぺんに投票できます。
高知,12,三連複,05,03-06-09,01-02-03-07-09-10-11-12,1
帯広,9,ワイド,05,03-06-09,,2
帯広,9,ワイド,05,03-06-09,,2
この場合、1行目は
高知12レースの3連複で
馬1(1列目)が5、馬2(2列目)が3,6,9、馬3(3列目)が1,2,3,7,9,10,11,12で
各100円ずつの購入。
2行目は帯広9レースのワイドの場合
馬1(1列目)に5、馬2(2列目)に3,6,9
馬3がないので、値を入れずにカンマが続くように書きます。
この場合は各200円ずつ(計600円ですかね)
---
最初にInternetExplorerをVBAの中で使える設定をしましょう。
メニューの[ツール]から[参照設定]を開いて
・Microsoft HTML Object Library
・Microsoft Internet Controls
を探してチェックを入れましょう。
それと、ソースの一番最初に次のように書いておきましょう。
Windowsで提供されている標準の関数を使う準備です。
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hwndParent As Long, ByVal hwndChildAfter As Long, ByVal lpszClass As String, ByVal lpszWindow As String) As Long
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Const WM_COMMAND As Long = &H111&
Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hwndParent As Long, ByVal hwndChildAfter As Long, ByVal lpszClass As String, ByVal lpszWindow As String) As Long
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Const WM_COMMAND As Long = &H111&
---
ではプログラムをぶつ切りで書いていきます。
最終的につなげれば、動くはずです。
まずは予想ファイルを読み込みます。
「c:\temp」に「votedata_なんとか.csv」という名前で保存している例です。
複数ファイルがあってもいいように、ループさせます。
strPath = "c:\temp\"
strFile = Dir$(strPath & "votedata_*.csv")
Do While strFile <> "" ’ ここからループ1(ファイルがあるだけループ)
fileNo = FreeFile
Open strPath & strFile For Input As #fileNo
strFile = Dir$(strPath & "votedata_*.csv")
Do While strFile <> "" ’ ここからループ1(ファイルがあるだけループ)
fileNo = FreeFile
Open strPath & strFile For Input As #fileNo
InternetExplorerを開きます。
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.navigate "https://www.spat4.jp/keiba/pc"
objIE.Visible = True
objIE.navigate "https://www.spat4.jp/keiba/pc"
ページが完全に表示されるまで待機。
Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Loop
DoEvents
Loop
ここで、HTMLのソースを見ればわかりますが
ログインフォーム全体が「LOGIN」
加入者番号は「MEMBERNUMR」、利用者IDは「MEMBERIDR」と名前がついています。
それぞれ値を入れて、ログインボタンを押しましょう。
objIE.document.LOGIN.MEMBERNUMR.Value = "01234567"
objIE.document.LOGIN.MEMBERIDR.Value = "12345678"
objIE.document.LOGIN.submit
objIE.document.LOGIN.MEMBERIDR.Value = "12345678"
objIE.document.LOGIN.submit
ページが完全に表示されるまで待機。
Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Loop
sleep 2000 ’ 念のため2秒待機
DoEvents
Loop
sleep 2000 ’ 念のため2秒待機
ボタンが並んでいる中から、「投票入力」と書かれているボタンを選んでクリックします。
For Each objTag In objIE.document.getElementsByTagName("input")
If InStr(objTag.outerHTML, "投票入力") > 0 Then
objTag.Click
Exit For
End If
Next
If InStr(objTag.outerHTML, "投票入力") > 0 Then
objTag.Click
Exit For
End If
Next
ページが完全に表示されるまで待機。
Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Loop
sleep 2000 ’ 念のため2秒待機
DoEvents
Loop
sleep 2000 ’ 念のため2秒待機
このページはフレーム構成になっていて
上の黄色が0、赤が左から1,2,3、下の黄色が4
使うのは1,2,3ですかね。
フレームを分割します。
Set objFrame = objIE.document.frames
最後の金額入力の準備だけしたら
予想ファイルから1行ずつ見ていきますかね。
Dim Kingaku As Integer
Kingaku = 0
Do While Not EOF(fileNo) ’ ここからループ2(ファイルの行があるだけループ)
Line Input #fileNo, buf
strFileData = Split(buf, ",")
Kingaku = 0
Do While Not EOF(fileNo) ’ ここからループ2(ファイルの行があるだけループ)
Line Input #fileNo, buf
strFileData = Split(buf, ",")
フレーム1(左の赤)を見ていきます。
それぞれこういう名前がついています(HTMLにこう書かれています)
まずは「PLACE」というセレクトボックス(コンボボックス)を探して
予想ファイルの1項目目(0)と一致する場名を選択します。
選択したら、JavaScriptのonChangeイベントを実行。
onChangeを実行しないと、レース番号が出てきません。
For Each slt In objFrame(1).document.getElementsByTagName("select")
If slt.Name = "PLACE" Then
For Each opt In slt.getElementsByTagName("option")
If opt.Text = strFileData(0) Then
opt.Selected = True
slt.onchange
Exit For
End If
Next
End If
Next
If slt.Name = "PLACE" Then
For Each opt In slt.getElementsByTagName("option")
If opt.Text = strFileData(0) Then
opt.Selected = True
slt.onchange
Exit For
End If
Next
End If
Next
同じ要領で、次はレース番号。予想ファイルの2項目目(1)
For Each slt In objFrame(1).document.getElementsByTagName("select")
If slt.Name = "RACE" Then
For Each opt In slt.getElementsByTagName("option")
If opt.Text = strFileData(1) Then
opt.Selected = True
slt.onchange
Exit For
End If
Next
End If
Next
If slt.Name = "RACE" Then
For Each opt In slt.getElementsByTagName("option")
If opt.Text = strFileData(1) Then
opt.Selected = True
slt.onchange
Exit For
End If
Next
End If
Next
続いて式別。予想ファイルの3項目目(2)
For Each slt In objFrame(1).document.getElementsByTagName("select")
If slt.Name = "SHIKI" Then
For Each opt In slt.getElementsByTagName("option")
If opt.Text = strFileData(2) Then
opt.Selected = True
slt.onchange
Exit For
End If
Next
End If
Next
If slt.Name = "SHIKI" Then
For Each opt In slt.getElementsByTagName("option")
If opt.Text = strFileData(2) Then
opt.Selected = True
slt.onchange
Exit For
End If
Next
End If
Next
投票方式はフォーメーション固定にしてます。
流しとか追加するなら、同じ要領でできますね。
For Each slt In objFrame(1).document.getElementsByTagName("select")
If slt.Name = "HOUSHIKI" Then
For Each opt In slt.getElementsByTagName("option")
If opt.Text = "フォーメーション" Then
opt.Selected = True
slt.onchange
Exit For
End If
Next
End If
Next
If slt.Name = "HOUSHIKI" Then
For Each opt In slt.getElementsByTagName("option")
If opt.Text = "フォーメーション" Then
opt.Selected = True
slt.onchange
Exit For
End If
Next
End If
Next
金額は予想ファイルの7項目目(6)
「KINGAKU」という名前のテキストボックスに値をぶち込むだけです。
txtKin = objFrame(1).document.getElementsByName("KINGAKU")
txtKin.Value = strFileData(6)
sleep 1000 ’ 1秒待機
txtKin.Value = strFileData(6)
sleep 1000 ’ 1秒待機
ここまでいくと、フレーム2(真ん中の赤)に頭数分のチェックボックスが出てきます。
ここでは
列は馬1「C1」、馬2「C2」、馬3「C3」
んで
行は馬番マイナス1の番号が名前になっています。
馬1の5番なら「C1の4」
馬2の3番と6番と9番なら「C2の2、C2の5、C2の8」
にそれぞれチェックを入れるだけです。
予想ファイルの4項目目(3)をハイフンで分割して、C1の馬番マイナス1にチェック
splittedResult = Split(strFileData(3), "-")
For Each output In splittedResult
objFrame(2).document.getElementsByName("C1")(output - 1).Checked = True
Next
For Each output In splittedResult
objFrame(2).document.getElementsByName("C1")(output - 1).Checked = True
Next
馬2も同じ。予想ファイルの5項目目(4)をC2列へ。
splittedResult = Split(strFileData(4), "-")
For Each output In splittedResult
objFrame(2).document.getElementsByName("C2")(output - 1).Checked = True
Next
For Each output In splittedResult
objFrame(2).document.getElementsByName("C2")(output - 1).Checked = True
Next
馬3も同じ。ただ馬連馬単ワイドの場合は、この処理を飛ばすように書いたほうがいいです。
splittedResult = Split(strFileData(5), "-")
For Each output In splittedResult
objFrame(2).document.getElementsByName("C3")(output - 1).Checked = True
Next
For Each output In splittedResult
objFrame(2).document.getElementsByName("C3")(output - 1).Checked = True
Next
ここまで来たら、
チェックボックスをクリックしたときに動くJavaScriptを呼びます。
馬1の馬番1をクリックしたテイで。(実際にチェックはしません)
このonClickを動かさないと、組数(AMOUNT)が計算されないのです。
objFrame(2).document.getElementsByName("C1")(0).onclick
これで組数が表示されるので、その数字×金額(合計金額)を控えておきましょう。
txtAmount = objFrame(2).document.getElementsByName("AMOUNT")
Kingaku = Kingaku + txtAmount.Value * strFileData(6)
Kingaku = Kingaku + txtAmount.Value * strFileData(6)
んで、フレーム1(左)の「入力決定」ボタンを探して押します。
For Each objTag In objFrame(1).document.getElementsByTagName("input")
If InStr(objTag.outerHTML, "入力決定") > 0 Then
objTag.Click
Exit For
End If
Next
If InStr(objTag.outerHTML, "入力決定") > 0 Then
objTag.Click
Exit For
End If
Next
んで次の行の処理へ。ループ2(ファイルの行があるだけループ)を繰り返します。
Sleep 2000 ’ 念のため2秒待機
Loop ’ ループ2の戻り
Loop ’ ループ2の戻り
すべての行の入力を終えたら、
フレーム3(右)の「投票内容確認へ」のボタンを探して押します。
ただ、このボタンを押すとき
普通に押すと制御が利かなくなりますので(このあとダイアログが出てくるので)
非同期で押すようにしましょう。
非同期でボタンを押したら、ちょっと時間を空けて(2秒)
ダイアログ(「Web ページからのメッセージ」)のウインドウを探してOKボタンを押してあげます。
btnIdx = 0
For Each objTag In objFrame(3).document.getElementsByTagName("input")
If InStr(objTag.outerHTML, "投票内容確認へ") > 0 Then
objFrame(3).document.Script.setTimeout "javascript:document.getElementsByTagName(""input"")(" & CStr(btnIdx) & ").click()", 10
Sleep 2000
hwindow = FindWindow("#32770", "Web ページからのメッセージ")
PostMessage hwindow, WM_COMMAND, vbOK, 0&
Exit For
End If
btnIdx = btnIdx + 1
Next
For Each objTag In objFrame(3).document.getElementsByTagName("input")
If InStr(objTag.outerHTML, "投票内容確認へ") > 0 Then
objFrame(3).document.Script.setTimeout "javascript:document.getElementsByTagName(""input"")(" & CStr(btnIdx) & ").click()", 10
Sleep 2000
hwindow = FindWindow("#32770", "Web ページからのメッセージ")
PostMessage hwindow, WM_COMMAND, vbOK, 0&
Exit For
End If
btnIdx = btnIdx + 1
Next
ページが完全に表示されるまで待機。
Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Loop
sleep 2000 ’ 念のため2秒待機
DoEvents
Loop
sleep 2000 ’ 念のため2秒待機
これまでと同じやり方ですね。
暗証番号は「MEMBERPASSR」、投票金額は「TOTALMONEYR」という名前になっていますので
それぞれ入れて、「投票する」ボタンを探して押します。
この時も先ほど同様、非同期でボタンを押して、ダイアログのOKボタンまで押しましょう。
objIE.document.BET_CHECK.MEMBERPASSR.Value = "0000"
objIE.document.BET_CHECK.TOTALMONEYR.Value = CStr(Kingaku * 100)
btnIdx = 0
For Each objTag In objIE.document.getElementsByTagName("input")
If InStr(objTag.outerHTML, "投票する") > 0 Then
objIE.document.Script.setTimeout "javascript:document.getElementsByTagName(""input"")(" & CStr(btnIdx) & ").click()", 10
Sleep 2000
hwindow = FindWindow("#32770", "Web ページからのメッセージ")
PostMessage hwindow, WM_COMMAND, vbOK, 0&
Exit For
End If
btnIdx = btnIdx + 1
Next
objIE.document.BET_CHECK.TOTALMONEYR.Value = CStr(Kingaku * 100)
btnIdx = 0
For Each objTag In objIE.document.getElementsByTagName("input")
If InStr(objTag.outerHTML, "投票する") > 0 Then
objIE.document.Script.setTimeout "javascript:document.getElementsByTagName(""input"")(" & CStr(btnIdx) & ").click()", 10
Sleep 2000
hwindow = FindWindow("#32770", "Web ページからのメッセージ")
PostMessage hwindow, WM_COMMAND, vbOK, 0&
Exit For
End If
btnIdx = btnIdx + 1
Next
ページが完全に表示されるまで待機。
Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Loop
sleep 2000 ’ 念のため2秒待機
DoEvents
Loop
sleep 2000 ’ 念のため2秒待機
これで投票完了です。
InternetExplorerを閉じて、次のファイルを開く準備をして
ループ1(ファイルがあるだけループ)を繰り返します。
objIE.Quit
Set objIE = Nothing
strFile = Dir$
Loop ’ ループ1の戻り
Set objIE = Nothing
strFile = Dir$
Loop ’ ループ1の戻り
これで終了です。
---
今回作ったのは予想ファイルを使って読み込んで投票する仕組みですが
Excelのセルを読み込んで投票する仕組みも簡単にできると思います。
適当に直して使ってください。
どっちにしても大事なのは
「予想するロジック」(今回でいう「予想ファイルの作り方」)だと思いますので。
[コメント読む(0)]
明日盛岡競馬場へ行こうと思っていましたが…東京の隣県在住という理由だけであきらめました。
先週末の時点で
「盛岡競馬が入場再開したから行こう！」
と考えていたんですが…
1週間で状況がだいぶ変わりました。
なにが不安かって
新幹線とか乗り物系は多分大丈夫だと思っています。
んで盛岡くらいなら日帰りなので、夜の街に行くこともありません。
現地に行って「関東から来るな」と言われることにおびえています。
管理人は千葉県在住で千葉で仕事をしています。
家は東京から距離は離れていません(15キロも行けば都内です)が、
東京都内にはしばらく行っていません。
それでもただただ東京の隣県というだけで
拒否反応があるのであれば、行きたくても行けません。
それだけの理由で明日はあきらめました。
再来週、北海道への遠征計画もありますが
今のところまだ流動的です。
関東、特に東京や隣県に対しての拒否反応が大きいならば
しばらく行くことはできないと思っています。
逆の立場だったらどう考えるでしょうかね。
管理人個人的には
あまり感染が多いような場所(いわゆる夜の街とか)にはいかないので
「来るなら勝手に来れば」と思いますが…
それでもこのコロナ禍の中で「過剰反応」している人が多くいることは確か。
その「過剰反応」な人に触れ合わなければ大丈夫なんですが…。
なんとなく
そういう精神的に変なダメージを受けるようなところへ
自ら足を運ぶ気にはなりません。
自分がいくら感染していないことがわかっていても
同じ地域(かなり広範囲)から来た、というだけでひとくくりにされることは
なんかそれ違うだろ！と思いますが…
今週末はおとなしく
自宅で様子を見ようと思います。
「盛岡競馬が入場再開したから行こう！」
と考えていたんですが…
1週間で状況がだいぶ変わりました。
なにが不安かって
新幹線とか乗り物系は多分大丈夫だと思っています。
んで盛岡くらいなら日帰りなので、夜の街に行くこともありません。
現地に行って「関東から来るな」と言われることにおびえています。
管理人は千葉県在住で千葉で仕事をしています。
家は東京から距離は離れていません(15キロも行けば都内です)が、
東京都内にはしばらく行っていません。
それでもただただ東京の隣県というだけで
拒否反応があるのであれば、行きたくても行けません。
それだけの理由で明日はあきらめました。
再来週、北海道への遠征計画もありますが
今のところまだ流動的です。
関東、特に東京や隣県に対しての拒否反応が大きいならば
しばらく行くことはできないと思っています。
逆の立場だったらどう考えるでしょうかね。
管理人個人的には
あまり感染が多いような場所(いわゆる夜の街とか)にはいかないので
「来るなら勝手に来れば」と思いますが…
それでもこのコロナ禍の中で「過剰反応」している人が多くいることは確か。
その「過剰反応」な人に触れ合わなければ大丈夫なんですが…。
なんとなく
そういう精神的に変なダメージを受けるようなところへ
自ら足を運ぶ気にはなりません。
自分がいくら感染していないことがわかっていても
同じ地域(かなり広範囲)から来た、というだけでひとくくりにされることは
なんかそれ違うだろ！と思いますが…
今週末はおとなしく
自宅で様子を見ようと思います。
[コメント読む(0)]
SPAT4の投票履歴一覧取得プログラムを作ってみました。
管理人はもう14〜5年くらい前から
南関東とホッカイドウ競馬のインターネット投票システム「SPAT4」を使っています。
なんどかリニューアルされて今の形になっていますが、
自分の勝った馬券の一覧が表示できないのがなんとも。
(受付番号の一覧は見られるけど)
ということで
今日は即席で作ってみました。
明日か明後日にでもソースを公開します。
いろいろ条件はありますが、
基本的にはWin10でExcelマクロが使えれば動くと思います。
南関東とホッカイドウ競馬のインターネット投票システム「SPAT4」を使っています。
なんどかリニューアルされて今の形になっていますが、
自分の勝った馬券の一覧が表示できないのがなんとも。
(受付番号の一覧は見られるけど)
ということで
今日は即席で作ってみました。
明日か明後日にでもソースを公開します。
いろいろ条件はありますが、
基本的にはWin10でExcelマクロが使えれば動くと思います。
[コメント読む(0)]
(昨日の続き) 自動予想・自動投票の結果……組み合わせと資金配分を誤る。
昨日のブログで
「自動予想・自動投票を始めてみました」なんて書いてみましたが…
とりあえず昨夜、iPATに3万円入金して今朝は様子見。
そしたら…
函館1レースは1000円
阪神1レース…4400円!? いきなりの4400円？？？
そして
福島1レース…4500円!? またもそんな金額？？？
とてもじゃありませんが36レースで3万円じゃ足りません。
1日トータルの投票結果
これだけ見ると、相当当たってるように見えますが
ほとんどガミってます。
終わってみれば
結局今日1日で16万円強をつぎ込み、払い戻しは10万円弱。
回収率はおよそ58.8パーセント。
今日は
そもそもかたいレースが多かったので
ガミが多かったのは仕方がないとは思いますが…
さすがに1レースあたり5000円は使い過ぎ。
せめて2000円くらいにしないと、これじゃ続けられません。
そして「ガミが多かった」ということは
人気の目も含めたうえで買いすぎということになります。
ということで
先ほどロジックを少々修正。
今よりも若干穴目をチョイスするようにして
さらに点数を若干減らすようにしました。
これでまた明日も様子を見てみようと思います。
-----
JRAの自動投票システムは
ネットで探せば、いくらでも簡単にできる方法が出てきます。
要は
ちゃんと当たる自動予想のロジックを、ちゃんと自分で作ることができれば
それ通りに勝手に買うというのはすごく簡単。
んで、
同じことを地方競馬でもできないかなぁ…ということで
今日SPAT4(南関東地方競馬の投票システム)での自動投票プログラムを作りました。
SPAT4は元々は南関東とホッカイドウ競馬のみの発売でしたが
今は全国の地方競馬が土日も含めて購入することができます。
ポイントも付くしね。
JRAと同じ方法で自動予想をして、決めたフォーマットで予想をファイルに出力して
そのファイルを今回作ったプログラムに読み込ませれば、勝手に投票を済ませてくれるようにしてあります。
このSPAT4自動投票プログラムは動作させるためにいろいろ条件は必要ですが
そんなに難しいことはしていませんので、近日中にソースを公開しようと思っています。
管理人はVBで作っていますが、おそらくExcelのVBAでも動くと思います。
Excelでマクロが使える環境なら作れると思います。
-----
明日はiPATに加えて、SPAT4でも自動投票に任せてみようと思います。
買い目点数も金額も若干減らしたので、今日のような大怪我はしないと思いますが……
「自動予想・自動投票を始めてみました」なんて書いてみましたが…
とりあえず昨夜、iPATに3万円入金して今朝は様子見。
そしたら…
函館1レースは1000円
阪神1レース…4400円!? いきなりの4400円？？？
そして
福島1レース…4500円!? またもそんな金額？？？
とてもじゃありませんが36レースで3万円じゃ足りません。
1日トータルの投票結果
これだけ見ると、相当当たってるように見えますが
ほとんどガミってます。
終わってみれば
結局今日1日で16万円強をつぎ込み、払い戻しは10万円弱。
回収率はおよそ58.8パーセント。
今日は
そもそもかたいレースが多かったので
ガミが多かったのは仕方がないとは思いますが…
さすがに1レースあたり5000円は使い過ぎ。
せめて2000円くらいにしないと、これじゃ続けられません。
そして「ガミが多かった」ということは
人気の目も含めたうえで買いすぎということになります。
ということで
先ほどロジックを少々修正。
今よりも若干穴目をチョイスするようにして
さらに点数を若干減らすようにしました。
これでまた明日も様子を見てみようと思います。
-----
JRAの自動投票システムは
ネットで探せば、いくらでも簡単にできる方法が出てきます。
要は
ちゃんと当たる自動予想のロジックを、ちゃんと自分で作ることができれば
それ通りに勝手に買うというのはすごく簡単。
んで、
同じことを地方競馬でもできないかなぁ…ということで
今日SPAT4(南関東地方競馬の投票システム)での自動投票プログラムを作りました。
SPAT4は元々は南関東とホッカイドウ競馬のみの発売でしたが
今は全国の地方競馬が土日も含めて購入することができます。
ポイントも付くしね。
JRAと同じ方法で自動予想をして、決めたフォーマットで予想をファイルに出力して
そのファイルを今回作ったプログラムに読み込ませれば、勝手に投票を済ませてくれるようにしてあります。
このSPAT4自動投票プログラムは動作させるためにいろいろ条件は必要ですが
そんなに難しいことはしていませんので、近日中にソースを公開しようと思っています。
管理人はVBで作っていますが、おそらくExcelのVBAでも動くと思います。
Excelでマクロが使える環境なら作れると思います。
-----
明日はiPATに加えて、SPAT4でも自動投票に任せてみようと思います。
買い目点数も金額も若干減らしたので、今日のような大怪我はしないと思いますが……
[コメント読む(0)]
無謀かもしれませんが…自動予想・自動投票を始めてみました。
自分なりに考えたロジックで
1本プログラムを組んでみました。
詳細は省きますが
締め切り10分前に買い目を予想してくれるプログラムです。
んで
このデータをもとにして
自動的に即PATで投票してくれるところまで組み込んでみました。
とりあえず現状はこの通り。
さあ。
明日の夕方にはいくらになってるんでしょうかね。
せめて1万5千円くらいにはなっててほしいなぁ。
1本プログラムを組んでみました。
詳細は省きますが
締め切り10分前に買い目を予想してくれるプログラムです。
んで
このデータをもとにして
自動的に即PATで投票してくれるところまで組み込んでみました。
とりあえず現状はこの通り。
さあ。
明日の夕方にはいくらになってるんでしょうかね。
せめて1万5千円くらいにはなっててほしいなぁ。
[コメント読む(0)]