🐤⑩ログイン用のTXT・投票の作成

Public OnSub$ 'onTime用
Public OnRTime$ 'onTime用

Sub My買目投票()

Beep
'-------------------------------------場
Jo = Worksheets("レース").Cells(4, 3)

If Mid(Jo, 4, 1) = "Ｒ" Then
    St1 = StrConv(Mid(Jo, 3, 1), vbNarrow) ' vbNarrowで半角にする
Else
    St1 = StrConv(Mid(Jo, 3, 2), vbNarrow)
End If

Jo = Mid(Jo, 1, 2) & St1

'--------------------------------------買目読み込み
St1 = Worksheets("レース").Cells(23, 3)
BetN = 0
Do

    StX = InStr(St1, "/")
    If StX = 0 Then Exit Do
    BetN = BetN + 1
    
    StX = InStr(St1, ",")
    BetUma(BetN, 1) = Mid(St1, 1, StX - 1) '券種
    St1 = Mid(St1, StX + 1)
    
    StX = InStr(St1, ",")
    BetUma(BetN, 2) = Mid(St1, 1, StX - 1) '組
    St1 = Mid(St1, StX + 1)
    
    StX = InStr(St1, ",")
    BetUma(BetN, 3) = Mid(St1, 1, StX - 1) '投票方式
    St1 = Mid(St1, StX + 1)
    
    StX = InStr(St1, " /")
    BetUma(BetN, 4) = Mid(St1, 1, StX - 1) '金額
    St1 = Mid(St1, StX + 2)
        
Loop



IpatGoF変換

St1 = Worksheets("レース").Cells(4, 4)
OnRTime = Replace(St1, "発走", "")

If BetN > 0 Then '馬券件数
    
    ipatgo投票
    まち3
    
    Application.OnTime TimeValue(OnRTime), "レース時間" '指定時間に　レース時間　実行
    
    '投票買目メール

End If
    
Beep
End Sub


Sub IPatログin()

OSドライブ

A = 1
Open OsDC & "ログイン.txt" For Input As #1 'ファイル#1を開く

Do Until EOF(1) ' ファイル#1の終わりまでループ
    Line Input #1, StF(A) ' 一行を読み取って StF(A) に格納
    A = A + 1
Loop

Close #1 ' ファイルを閉じる

'---------------------- IPATログイン情報を指定
iplg.InetID = StF(1) ' <-INET-IDを設定します
iplg.UserNo = StF(2) ' <-加入者番号を設定します
iplg.PassNo = StF(3) ' <-暗証番号を設定します
iplg.ParsNo = StF(4) ' <-P-ARS番号を設定します

End Sub


Sub IpatGoF変換()
'IpatGoF=開催年月日,競馬場,レース番号,馬券式,投票方式,マルチ,組番,金額

IpatGoF = ""
'---------------------------------yyyymmdd
St1 = Year(Now)
St2 = Format(Month(Now), "00")
'If Len(St2) = 1 Then St2 = "0" & St2
St3 = Format(Day(Now), "00")
'If Len(St3) = 1 Then St3 = "0" & St3

IpatGoF = St1 & St2 & St3 & ","
'---------------------------------jj

St1 = Mid(Jo, 1, 2) '場R jjrr
If St1 = "札幌" Then IpatGoF = IpatGoF & "SAPPORO"
If St1 = "函館" Then IpatGoF = IpatGoF & "HAKODATE"
If St1 = "福島" Then IpatGoF = IpatGoF & "FUKUSHIMA"

If St1 = "新潟" Then IpatGoF = IpatGoF & "NIIGATA"
If St1 = "東京" Then IpatGoF = IpatGoF & "TOKYO"
If St1 = "中山" Then IpatGoF = IpatGoF & "NAKAYAMA"

If St1 = "中京" Then IpatGoF = IpatGoF & "CHUKYO"
If St1 = "京都" Then IpatGoF = IpatGoF & "KYOTO"
If St1 = "阪神" Then IpatGoF = IpatGoF & "HANSHIN"

If St1 = "小倉" Then IpatGoF = IpatGoF & "KOKURA"

'-----------------------------------r(1-2文字)
 St1 = Mid(Jo, 3) 'JoのＲ取り済み
 IpatGoF = IpatGoF & "," & St1 & ","
 '-----------------------------------買い目
 
'IpatGoF=開催年月日,競馬場,レース番号,馬券式,投票方式,マルチ(省略),組番,金額
 

For A = 1 To BetN

    St1 = BetUma(A, 1)  '馬券式
    St2 = ",," & BetUma(A, 2) ',マルチ省略,組番
    
    St3 = BetUma(A, 3)
    If St3 = "通" Then St3 = "NORMAL"
    If St3 = "流" Then St3 = "WHEEL"
    If St3 = "B" Then St3 = "BOX"
    St3 = "," & St3 '投票方式
    
    St4 = "," & BetUma(A, 4)  '金額
    
    
    
    If St1 = "End" Then Exit For
    
    
    If St1 = "単" Then BetUma(A, 1) = "TANSYO" & St3 & St2 & St4
    If St1 = "複" Then BetUma(A, 1) = "FUKUSYO" & St3 & St2 & St4
    
    If St1 = "枠" Then BetUma(A, 1) = "WAKUREN" & St3 & St2 & St4
    
    If St1 = "馬連" Then BetUma(A, 1) = "UMAREN" & St3 & St2 & St4
    If St1 = "ワイド" Then BetUma(A, 1) = "WIDE" & St3 & St2 & St4
    If St1 = "馬単" Then BetUma(A, 1) = "UMATAN" & St3 & St2 & St4
    
    If St1 = "３連複" Then BetUma(A, 1) = "SANRENPUKU" & St3 & St2 & St4
    If St1 = "３連単" Then BetUma(A, 1) = "SANRENTAN" & St3 & St2 & St4
     
Next
 

End Sub





'========================================================================================================
'
'   機能    指定されたIPATIDでfileモードによる投票を実行
'
'   引数    filepath：ipatgo.exeがあるパスを指定
'           IL      ：IPATログイン情報を指定
'           vf      ：投票ファイルのフルパスを指定
'
'   戻り値  0　　　 ：投票処理正常実行
'           0以外   ：投票処理失敗
'
'========================================================================================================
Function Vote_file(ByVal filepath As String, ByRef IL As IpatLogin, ByVal vf As String) As Long
'コンパイルエラー　ユーザー定義型は定義されていません。」エラーが出た場合は、必要な組み込み定数が定義されていないことになります。
' ExcelのVBA(マクロ)で、組み込み定数を使うためには、参照設定(Windows Script Host Object Model)を行う必要があります。

Dim obj As New IWshRuntimeLibrary.WshShell

    If obj.Run(filepath & "ipatgo.exe" & " " & "file" & " " & IL.InetID & " " & IL.UserNo & " " & IL.PassNo & " " & IL.ParsNo & " " & vf, 0, True) <> 0 Then
        Vote_file = -1   '投票処理失敗
        Exit Function
    End If

    Vote_file = 0   '投票処理正常実行

End Function

Sub ipatgo投票() '   IPATGO サンプル Microsoft Excel 2016(VBA)'   fileモードによる投票を実行

IPatログin

' ---------------------------------------------------------------------------投票ファイルを任意の場所に作成
    Open OsGo & "test.txt" For Output As #1
        For A = 1 To BetN
            St1 = IpatGoF & BetUma(A, 1)
            
            Debug.Print ("買い目 " & St1)
            Print #1, St1
        Next
    Close #1
    
' ---------------------------------------------------------------------------fileモードで投票実行
    If Vote_file(OsGo, iplg, OsGo & "test.txt") = 0 Then
        Debug.Print ("投票処理を実行しました" & IpatGoF)
        馬券購入
        
    Else
    
        Debug.Print ("投票処理が失敗しました" & IpatGoF & "エラーログ＞OsGo ipatgo\日付.log")
        St1 = Jo & "投票処理が失敗しました" & IpatGoF
        問題発生
        
    End If
    
End Sub

競馬でプログラムの作成
お疲れ様でした😎