« 岩井コスモス用発注スクリプト1 | トップページ | 岩井コスモス用発注スクリプト3 »

2012年7月13日 (金)

岩井コスモス用発注スクリプト2

 一旦、自動更新株価ボードと岩井コスモ証券のウィンドウを消して、再度ログインして自動更新株価ボードを表示するスクリプトが出来た

 /////////////////////////////////

 // 一旦、自動更新株価ボードと岩井コスモ証券のウィンドウを消す

ボードID=GETID("自動更新株価ボード - Windows Internet Explorer")

CtrlWin(ボードID, CLOSE)         // 自動更新株価ボード終了

// 直ぐに消えればよいのにメッセージが出るので

ACW(GETID("Web ページからのメッセージ","#32770"),800,452,325,186,0)
BTN(LEFT,DOWN,1063,602,297)
MMV(1063,602,15)
BTN(LEFT,UP,1063,602,203)

コスモID=GETID("岩井コスモ証券 ネットトレード - Windows Internet Explorer")

CtrlWin(コスモID, CLOSE)         // 岩井コスモ終了

/////////////////////////////////

// 岩井コスモ ログイン

// IE の表示、その中のリンクアドレスを全て抽出する

// この部分はヘルプのサンプルの流用

IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
IE.Navigate("
https://home.iwaicosmo.co.jp/net/trade/Exchange.html")    // 指定URL
while True                                    // 接続表示待ち
if (! IE.busy) and (IE.readyState=4) then Break
  sleep(0.1)
wend
COM_ERR_IGN  //COMエラー無視
for i = 0 to IE.document.links.length-1 // リンクアドレスを表示
  wks = IE.document.links[i]
  ifb COM_ERR_FLG
    print "エラーが起こったみたい" 
    break
  endif
//  print wks
next
COM_ERR_RET  //エラー処理復帰

MMV(449,445,15)
ACW(GETID("
岩井コスモ証券 ネットトレード - Windows Internet Explorer","IEFrame"),87,87,1095,701,0)
BTN(LEFT,DOWN,449,445,453)
MMV(449,445,62)
BTN(LEFT,UP,449,445,156)

// 口座番号 実際には●のところは数字が一個

MMV(449,445,20)
KBD(VK_NUMPAD●,CLICK,100)
KBD(VK_NUMPAD●,CLICK,100)
KBD(VK_NUMPAD●,CLICK,100)
KBD(VK_NUMPAD●,CLICK,100)
KBD(VK_NUMPAD●,CLICK,100)
KBD(VK_NUMPAD●,CLICK,100)
KBD(VK_NUMPAD●,CLICK,100)
MMV(449,444,20)

// パスワード 実際には●のところは数字が一個

MMV(453,555,20)
BTN(LEFT,CLICK,453,555,200)
KBD(VK_NUMPAD●,CLICK,100)
KBD(VK_NUMPAD●,CLICK,100)
KBD(VK_NUMPAD●,CLICK,100)
KBD(VK_NUMPAD●,CLICK,100)
MMV(455,556,20)

MMV(625,695,20)
BTN(LEFT,CLICK,625,695,200) // ログインボタンクリック
MMV(625,695,20)

SLEEP(2)

ACW(GETID("岩井コスモ証券 ネットトレード - Windows Internet Explorer","IEFrame"),87,87,1095,701,0)
BTN(LEFT,DOWN,129,671,796)  // 自動更新株価ボード を開く
MMV(129,671,46)
BTN(LEFT,UP,129,671,281)

/////////////////////////////////

                                    

                               以上

 UWSCを立ち上げるとこのスクリプトが実行されるようにした

 これで、毎朝、コードを打ってボードを開く煩わしい作業が減りました

 他の証券会社にも応用が利くはずだ

 説明

 赤字、青字で書いてあるのは各ウィンドウの一番上にあるウインドウの名前

 // 指定URL

 ボタンの位置やテキストBOXの位置など証券会社によって違うのでUWSCの記録機能を使い実際の作業をスクリプトにし、一つ一つ確かめながら、茶色の字の部分を書き換えてください

 つづく 

|

« 岩井コスモス用発注スクリプト1 | トップページ | 岩井コスモス用発注スクリプト3 »

コメント

コメントを書く



(ウェブ上には掲載しません)




トラックバック

この記事のトラックバックURL:
http://app.f.cocolog-nifty.com/t/trackback/218459/46258789

この記事へのトラックバック一覧です: 岩井コスモス用発注スクリプト2:

« 岩井コスモス用発注スクリプト1 | トップページ | 岩井コスモス用発注スクリプト3 »