PR
キーワードサーチ
▼キーワード検索
EXCEL VBA TIPS
わたしのブログへようこそ
カレンダー
コメント新着
フリーページ
2008.10.24
テーマ： FXの取引(1200)
カテゴリ： カテゴリ未分類
このシェル起動で通貨ベア、取引数量、許容スリッページを入力する画面が現れます
実行中はいつでもこの値を変更できます
・現在成行のみ、そのうち他もサポートします
・通貨ベアUSD,EUR,GBRのみ、その他の通貨はソース中のselectタグに追加してください
Dim objIE0
Dim objIE1
Dim s
Set objIEx = CreateObject("InternetExplorer.application")
Do While objIEx.Busy
WScript.Sleep 100
Loop
rt=8
objIEx.Width=600
objIEx.Height=700
objIEx.Visible = true
objIEx.StatusBar = True
objIEx.StatusText = t_date & " htm作成中"
objIEx.ToolBar = false
objIEx.MenuBar = false
objIEx.Document.Write "注文タイプ<SELECT name=type> <OPTION selected value =1>成行</OPTION> <OPTION value=2>通常</OPTION> <OPTION value=3>OCD</option><option value=4>IFD-OCO</option></select><br>"
objIEx.Document.Write "取引数量<input type=input name=suu size=2 value=1>"
objIEx.Document.Write "許容スリッページ<input type=input name=slip size=2 value=0><br>"
objIEx.Document.Write "停止<input type=checkbox name=term><br>"
'対象画面を検索、なければ開く（必要に応じ使用してください）
win_s = False
objIEx.Document.Write "クリック証券のページ検索中<br>"
do
For Each Window In xShell.Windows '対象URLが表示されているか？
If TypeName(Window.Document) = "HTMLDocument" Then
if Window.Document.url="https://fx.click-sec.com/ygmo/servlet/ygmo.pc.gfr001.servlet.GFr00101?SID=web4" then
Set objIE0 = Window '対象URLが表示→その画面を使う
win_s=true
exit for
end if
end if
next
if win_s=true then exit do
WScript.Sleep(1000)
loop
objIEx.Document.Write "クリック証券のページあった、注文入力画面監視中<br>"
WScript.Sleep(500)
Set objFRAME = objIE0.Document.frames
Set objIE1 = objFRAME("Main")
do
on error resume next
do
s=objIE1.document.body.outertext
if err.Number=0 then exit do
objIEx.Document.Write err.Description & " " & now & "<br>"
WScript.Sleep(1000)
Set objFRAME = objIE0.Document.frames
Set objIE1 = objFRAME("Main")
loop
err.clear
on error goto 0
if instr(s,"空欄時は制限なし")>0 then
'objIE1.document.all.tags("INPUT").item(8).Value = "yy" ' text
objIE1.document.all.P002.value=objIEx.document.all.suu.value ' text index=14
objIE1.document.all.P005.value=objIEx.document.all.slip.value ' text index=15
objIE1.Document.all.P001.selectedIndex=objIEx.document.all.tuuka.selectedIndex+1
end if
WScript.Sleep(1000)
if objIEx.Document.all.term.checked=true then exit do
loop
objIEx.Document.write "止めたよ"
WScript.Quit
実行中はいつでもこの値を変更できます
・現在成行のみ、そのうち他もサポートします
・通貨ベアUSD,EUR,GBRのみ、その他の通貨はソース中のselectタグに追加してください
Dim objIE0
Dim objIE1
Dim s
Set objIEx = CreateObject("InternetExplorer.application")
Do While objIEx.Busy
WScript.Sleep 100
Loop
rt=8
objIEx.Width=600
objIEx.Height=700
objIEx.Visible = true
objIEx.StatusBar = True
objIEx.StatusText = t_date & " htm作成中"
objIEx.ToolBar = false
objIEx.MenuBar = false
objIEx.Document.Write "注文タイプ<SELECT name=type> <OPTION selected value =1>成行</OPTION> <OPTION value=2>通常</OPTION> <OPTION value=3>OCD</option><option value=4>IFD-OCO</option></select><br>"
objIEx.Document.Write "取引数量<input type=input name=suu size=2 value=1>"
objIEx.Document.Write "許容スリッページ<input type=input name=slip size=2 value=0><br>"
objIEx.Document.Write "停止<input type=checkbox name=term><br>"
'対象画面を検索、なければ開く（必要に応じ使用してください）
win_s = False
objIEx.Document.Write "クリック証券のページ検索中<br>"
do
For Each Window In xShell.Windows '対象URLが表示されているか？
If TypeName(Window.Document) = "HTMLDocument" Then
if Window.Document.url="https://fx.click-sec.com/ygmo/servlet/ygmo.pc.gfr001.servlet.GFr00101?SID=web4" then
Set objIE0 = Window '対象URLが表示→その画面を使う
win_s=true
exit for
end if
end if
next
if win_s=true then exit do
WScript.Sleep(1000)
loop
objIEx.Document.Write "クリック証券のページあった、注文入力画面監視中<br>"
WScript.Sleep(500)
Set objFRAME = objIE0.Document.frames
Set objIE1 = objFRAME("Main")
do
on error resume next
do
s=objIE1.document.body.outertext
if err.Number=0 then exit do
objIEx.Document.Write err.Description & " " & now & "<br>"
WScript.Sleep(1000)
Set objFRAME = objIE0.Document.frames
Set objIE1 = objFRAME("Main")
loop
err.clear
on error goto 0
if instr(s,"空欄時は制限なし")>0 then
'objIE1.document.all.tags("INPUT").item(8).Value = "yy" ' text
objIE1.document.all.P002.value=objIEx.document.all.suu.value ' text index=14
objIE1.document.all.P005.value=objIEx.document.all.slip.value ' text index=15
objIE1.Document.all.P001.selectedIndex=objIEx.document.all.tuuka.selectedIndex+1
end if
WScript.Sleep(1000)
if objIEx.Document.all.term.checked=true then exit do
loop
objIEx.Document.write "止めたよ"
WScript.Quit
お気に入りの記事を「いいね！」で応援しよう
【毎日開催】
15記事にいいね！で1ポイント
© Rakuten Group, Inc.
