株の自動売買の部品おみくじ売買くんについて

おみくじ売買くん

　ステップ１　　　･･･　EXCELを起動する。

　ステップ２　　　･･･　VBEに以下のように入力する。

　ステップ３　　　･･･　『おみくじ売買くん』マクロを実行する。

　ポイントは
　For lp = 1 To 73　･･･　73回で9:00～15:00を5分刻みで回している。
　Shell～　　　　　　･･･　UWSCのプログラム呼び出し。
　Shell～　　　　　　･･･　C:\UWSCの部分はインストールの場所にあわせて変更。

　処理の流れは、
　lp=7　　･･･　9:30におじくじをひき、買うかどうかを決める。
　lp=25　･･･　11:00におみくじをひき、売るかどうかを決める。
　lp=44　･･･　14:00に強制的に売る。
　omikuji　･･･　1　やったあアタリ。株を売買しよう！
　omikuji　･･･　0　ざんねんハズレ。株の売買はよそう。
　
　最後に、Timer関数は日付をまたぐとうまく動作しませんのでご注意ください。

Option Explicit
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Dim lp As Integer
Dim buybuy As Integer

Sub おみくじ売買くん()
    Dim PauseTime, Start
    
    PauseTime = 300
    
    For lp = 1 To 73
        Start = Timer
        
        Call メイン処理
        
        Do While Timer < Start + PauseTime
            DoEvents
            Call Sleep(1)
        Loop
    Next lp

End Sub

Private Sub メイン処理()
    Dim omikuji As Integer
    
    Cells(lp, 1) = lp
    
    If lp = 7 Then
        Randomize
        omikuji = Int(Rnd() * 2)
        If omikuji = 1 Then
            Shell ("C:\UWSC\uwsc.exe C:\UWSC\岩井証券買い注文.UWS")
            buybuy = 1
        End If
    End If
    If lp = 25 Then
        Randomize
        omikuji = Int(Rnd() * 2)
        If omikuji = 1 And buybuy = 1 Then
            Shell ("C:\UWSC\uwsc.exe C:\UWSC\岩井証券売り注文.UWS")
            buybuy = 0
        End If
    End If
    If lp = 44 Then
        If buybuy = 1 Then
            Shell ("C:\UWSC\uwsc.exe C:\UWSC\岩井証券売り注文.UWS")
        End If
    End If
End Sub

おみくじ売買くんついて

おみくじ売買くん