買い注文処理ついて
ステップ1 ・・・ テキストエディタに以下のように入力する。
ステップ2 ・・・ 『岩井証券買い注文.UWS』として保存してください。
ステップ3 ・・・ UWSCを起動する。
ステップ4 ・・・ UWSCの読込みから『岩井証券買い注文.UWS』を選ぶ
ステップ5 ・・・ UWSCの再生を押す
注意:再生ボタンを押すと一気に4689ヤフーを買い注文に行きます。
実際に購入してしまいますので、15:00時以降にお試しください。
15:00時以降なら注文の取り消しを行えば、キャンセルできますので。
変更するポイントは
CONST ID = "自分のID" ・・・ 岩井証券のIDを入力
CONST PASS = "自分のパスワード" ・・・ 岩井証券のパスワードを入力
Code = "4689" ・・・ 購入したい銘柄コードを入力
Units = "1" ・・・ 購入したい株数を入力
Market = "東証" ・・・ JASDAQの場合は、Market = "JASDAQ"
//買い注文 CONST SLPD = 0.5 CONST ACTYPE = "特定" CONST ID = "自分のID" CONST PASS = "自分のパスワード" Code = "4689" Units = "1" Market = "東証" IE = CreateOLEObj("InternetExplorer.Application") IE.Visible = True IE.Navigate("https://trade.iwaisec.co.jp/webbroker3/0E/i/WEB3Index.jsp?aa_odrdv=2") BusyWait(IE) IESetData(IE,ID,"aa_accd") IESetData(IE,PASS,"lg_pw") IESetData(IE,True,"","1.実行") BusyWait(IE) IELink(IE,"6.現物株式") BusyWait(IE) IELink(IE,"1.買付") BusyWait(IE) IESetData(IE,Code,"eq_pdcd") IESetData(IE,Market,"eq_mcd_x") IESetData(IE,True,"","1.実行") BusyWait(IE) IESetData(IE,Units,"eq_odqt") IESetData(IE,True,"eq_odprdv_x","0") IESetData(IE,True,"eq_ttp_x","1") IESetData(IE,"条件なし","eq_ectp_x") IESetData(IE,True,"eq_edttp_x","1") IESetData(IE,True,"","1.実行") BusyWait(IE) IESetData(IE,PASS,"aa_pw") IESetData(IE,True,"","1.実行") BusyWait(IE) //最終処理 IELink(IE,"0.メインメニューへ") BusyWait(IE) IESetData(IE,True,"","ログアウト") BusyWait(IE) IE.Quit //---------------------------------- //---------------------------------- Procedure BusyWait(ie) Sleep(SLPD) // Wait Const TIME_OUT = 90 tm = Gettime() repeat Sleep(SLPD) ifb Gettime() - tm > TIME_OUT MsgBox("Time Out:BusyWait") ExitExit endif until (! ie.busy) and (ie.readyState=4) Sleep(SLPD) Fend