UWSCの買い発注スクリプト

つづき

買い注文のスクリプト、基本的には売りと同じ、違うところは

メッセージボックスのタイトル("++買い注文++")　　　

項目数　TEMP[8]

Kabusuu= TEMP[8]　　株数の項目が増えます。

後は各ボタンの位置を調べる必要があります。記録（R)をして、メモ帳にそれを落とし調べていきます。

完成は下のようになります。

　　　　　　　　********

DIM TEMP[8]
EXCELORDERWINDOW = GETID("++買い注文++")　　　//　エクセルのメッセージボックスのID
TEMP[1] = GETSTR(EXCELORDERWINDOW,1,1)　　　　//　メッセージボックス"++買い注文++"の内容をTEMP[1]に

　FOR i = 2 TO 8
　 TEMP[i] = TOKEN(" ",TEMP[1])　　　　　　　//　”　”で区切って各項目をTEMP[i] に入れて行く
　NEXT

IWAIID=GETID("岩井証券 - Microsoft Internet Explorer")　　//　岩井証券ウィンドーのID
ACW(IWAIID,1,1,1000,700)     // ACWはウィンドーをアクティブにします
MOUSEORG(IWAIID,1)　　　　　//　マウスを左上に持ってくる
BTN(LEFT,CLICK,270,80)     //  現物取引ボタンクリック
SLEEP(8)
BTN(LEFT,CLICK,55,160)     //  買い付注文ボタンクリック
SLEEP(5)
Code=TEMP[6]                   // 銘柄コード
SENDSTR(IWAIID,Code,2,TRUE,TRUE)　　　　//　発注表の銘柄コードテキストボックスに銘柄コードを入れる
SLEEP(3)
BTN(LEFT,CLICK,520,260,300)
SLEEP(3)
Kabusuu= TEMP[8]                  // 株数
SENDSTR(IWAIID,Kabusuu,2,TRUE,TRUE)　　　//　発注表の株数テキストボックスに株数を入れる
SLEEP(3)
BTN(LEFT,CLICK,320,390,300)
SLEEP(3)
BTN(LEFT,CLICK,320,450,300)
SLEEP(3)
BTN(LEFT,CLICK,250,490,300)
SLEEP(3)

CLKITEM(EXCELORDERWINDOW,"OK")　　　　　//　エクセルのメッセージボックスの"OK"ボタンをくりっくしメッセージボックスを閉じる
MOUSEORG(0)

　　　　　　　　********

メッセージボックスを閉じる前に実際にはパスワードを入れ実行ボタンを押させます。

つづく

これで、UWSCの引き鉄が出来ました。

次回は　この引き鉄をどのようにしてPM2:45に引かせるかです