売り注文処理ついて
ステップ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" Meigara="ヤフー" 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,"2.売付") BusyWait(IE) dat = IE.Document.body.innerHTML S1 = POS(Meigara,dat) S2 = COPY(dat,S1-24,9) IESetData(IE,True,"eq_pdrb",S2) IESetData(IE,True,"","1.実行") BusyWait(IE) IESetData(IE,True,"eq_odprdv_x","0") 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