マーケットスピードⅡで自動ログインする方法

マーケットスピード２を自動ログインさせる方法を検索したら、古いマーケットスピードを自動ログインさせるVBAスクリプトがあったが、マーケットスピード２の方を自動ログインさせるVBAは見つからなかった。

そこで見つかったVBAをカスタマイズしてみたら見事に成功した。

'マーケットスピードの自動ログインスクリプト

'事前に行っておく設定
'マーケットスピードでログインIDはデフォルトで入力済みにしておく

'マーケットスピードの起動
Set WshShell = CreateObject("WScript.Shell")
WshShell.CurrentDirectory = "C:\Users\ユーザー名\AppData\Local\MarketSpeed2\Bin"
WshShell.Exec("C:\Users\ユーザー名\AppData\Local\MarketSpeed2\Bin\MarketSpeed2.exe")

'マーケットスピードの最大化
WshShell.CurrentDirectory = "C:\Users\ユーザー名\AppData\Local\MarketSpeed2\Bin"
Set objMS = WshShell.Exec("C:\Users\ユーザー名\AppData\Local\MarketSpeed2\Bin\MarketSpeed2.exe")
WshShell.AppActivate(objMS.ProcessID)
WScript.Sleep(1000)
WshShell.SendKeys("% X")
WScript.Sleep(1000)

'マーケットスピードのアクティブ化
WshShell.AppActivate("MarketSpeed2")
WScript.Sleep(1000)

'マーケットスピードの自動ログイン
MS_WINDOW_TITLE = "MarketSpeed2"
MS_WINDOW_LOGIN_TITLE = "MarketSpeed2 - ﾛｸﾞｲﾝ"

ret = WshShell.AppActivate(MS_WINDOW_TITLE)
WScript.Sleep(1000)

'マーケットスピードのログインページの表示
WshShell.SendKeys("{ENTER}")
WScript.Sleep(1000)

'マーケットスピードのパスワード入力
WshShell.SendKeys("Password")
WScript.Sleep(1000)
WshShell.SendKeys("{ENTER}")
WScript.Sleep(1000)