Excel ＶＢＡで株の全自動売買コミュの中級編　　マーケットスピードに自動ログイン

今回はUWSCを使わずにログインする方法

UWSCの代わりにMarket Speed Shortcutを使います。
http://www10.atwiki.jp/ms/
Market Speed Shortcutをダウンロードしたら

mssのキー設定メニューから
ログインキーを設定
次に設定メニューから
ログインパスワード自動入力にチェックを入れて
パスワード入力
あとマーケットスピードのウィンドウタイトルをバージョン
に合わせてOK

あとは前のトッピックの初級編にあるようにMarket Speed Shortcutのショートカットをスタートアップに入れるか
エクセルで起動
この場合Windowsの「スタートアップ」フォルダにMarketSpeedのショートカットを入れたら駄目だよ

ただしこれだけだと完全自動ではないのでVBAを使用する
VBAプログラム↓
Option Explicit
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Private Sub StopTime(st As Long)
'指定の時間待つ（1/1000 秒単位で指定)
Dim lngSt As Long
lngSt = timeGetTime
Do While timeGetTime - lngSt < st
DoEvents
Loop
End Sub

Private Sub MarketSpeed()
Dim ID As Double
ID = Shell("C:\*****\MarketSpeed\MarketSpeed\MarketSpeed.exe", 1)
'　　　　　　　　　　↑ここは自分で設定して
AppActivate ID
StopTime (10000) 'アクティブになるまで10秒待つ
SendKeys "ここにキー設定で設定したログインキーを書く"
End Sub