株の自動売買の部品売り注文処理について

売り注文処理ついて

　ステップ１　　　･･･　テキストエディタに以下のように入力する。

　ステップ２　　　･･･　『岩井証券売り注文.UWS』として保存してください。

　ステップ３　　　･･･　UWSCを起動する。

　ステップ４　　　･･･　UWSCの読込みから『岩井証券売り注文.UWS』を選ぶ

　ステップ５　　　･･･　UWSCの再生を押す

　注意：再生ボタンを押すと一気に4689ヤフーを売り注文に行きます。
　実際に売り注文を出してしまいますので、15:00時以降にお試しください。
　15:00時以降なら注文の取り消しを行えば、キャンセルできますので。

　当然、保有株式が無い場合はエラーとなります。

　変更するポイントは
　CONST ID = "自分のＩＤ"　　　　　･･･　岩井証券のIDを入力
　CONST PASS = "自分のパスワード"　･･･　岩井証券のパスワードを入力
　Code = "4689"　　　　　　　　　　･･･　売却したい銘柄コードを入力
　Units = "1"　　　　　　　　　　　･･･　売却したい株数を入力
　Market = "東証"　　　　　　　　　･･･　JASDAQの場合は、Market = "JASDAQ"

//売り注文

CONST SLPD   = 0.5
CONST ACTYPE = "特定"
CONST 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