UWSCでイザナミ起動から結果をクリップボードにコピーまで

こんにちは。

今日はなぜか早起きしてしまったので、UWSCで勉強がてら
イザナミ起動から検証してシグナルをクリップボードにコピーするところまで
自動でやっちゃうコードを作成しました。

あくまでもサンプルですので、下記のコードを使って不具合がおきても責任は取れませんので
自己責任で使用するようにしてください

Public ○○は環境に応じて変更してください

Public IZANAMI_PATH  = "C:\Program Files (x86)\izaneo\izaneo.exe"
Public IZANAMI_TITLE = "株システムトレードソフト イザナミ - Version 2.1.04"
Public CSV_TITLE     = "ＣＳＶ出力設定"

WID = RUN_IZANAMI()
ACW(WID,0,0)
PUSH_BTN(WID, 3)  //開始
PUSH_BTN(WID, 2)  //検証する
PUSH_BTN(WID, 13) //実行
PUSH_BTN(WID, 6)  //最適分散投資
PUSH_BTN(WID, 14) //実行
COPY_RESULT(WID)  //出力をクリップボードにコピー

EXIT

Function RUN_IZANAMI()
  ifB FOPEN(IZANAMI_PATH, F_EXISTS) = FALSE
    MSGBOX("IZANAMI_PATH is wrong.")
    ExitExit
  endIf
  Result = getid(IZANAMI_TITLE)
  IF Result = -1
    EXEC(IZANAMI_PATH)
    WHILE Result = -1
      SLEEP(0.5)
      Result = getid(IZANAMI_TITLE)
    WEND
  ENDIF
  SLEEP(1)
Fend

Procedure PUSH_BTN(WID, BTN_ID)
  CLKITEM(WID,"",CLK_BTN,TRUE,BTN_ID)
  SLEEP(3)
  REPEAT
    SLEEP(0.5)
  UNTIL STATUS(WID, ST_ACTIVE) AND !STATUS(WID, ST_BUSY)
  SLEEP(1)
Fend

Procedure COPY_RESULT(WID)
  CLKITEM(WID,"",CLK_BTN,TRUE,10) //CSV
  CSVID = getid(CSV_TITLE)
  ACW(CSVID,0,0)
  CLKITEM(CSVID,"ＯＫ")           //OK
  ACW(WID,0,0)
Fend

私の環境だと問題なく動いたのですが、ここで止まっちゃうなどがあれば
コメントいただけると対応できる範囲で調べて見ます