【UWSC】楽天MarketSpeed2を自動起動したい

今さら感のスクリプトです。

使い方

1. ２ヶ所自分の環境に合わせて改変してください。
   exec() -> マケスピ２のインストールパス
   （デフォルトなら「ユーザー\AppData\Local\MarketSpeed2\Bin\」辺り）
   sendstr() -> 楽天証券のログインパスワード

2. ログイン画面で「ログインID保存」をしておいてください。

わかる人だけ使用してください。
このスクリプトを使用して出たいかなる損害も保証いたしませんので自己責任でお願いします。
アップデート時には誤動作する可能性があります。

//マケスピ２が起動してなかったら起動する
if getId("MarketSpeed2") < 0 then
    Ms2Exec()
    HomeWindowClose()
endif

//ここから関数
procedure Ms2Exec()
    exec("インストールパス\MarketSpeed2.exe")
    //ログイン
    LoginWindowId = -1
    while LoginWindowId < 0
        LoginWindowId = getId("MARKETSPEED II ログイン")
        sleep(0.5)
    wend
    sendStr(LoginWindowId, "password")
    sckey(LoginWindowId, vk_ENTER)
fend
procedure HomeWindowClose()
    //ホーム画面クリア
    HomeWindowId = -1
    while HomeWindowId < 0
        HomeWindowId = getId("ホーム")
        sleep(0.5)
    wend
    sckey(HomeWindowId, vk_alt, vk_F4)
fend