|
おつかれさまでした〜。 今回で、夏休みの工作も完成で〜す。 注文画面３を実行した後の愛の回数は、３２回なので 「手順は ウィンドウ１のブラウザの読み込み完了」に もし 愛は ３２ なら 注文確認 を追加しま〜す。 注文確認の手順を書くと 手順は 注文確認
ブラウザ１のアドレスを「javascript:void(document.getElementsByName("pinNo")[0].value = "パスワード")」へ変えろ
ブラウザ１のアドレスを「javascript:void(document.forms[0].submit())」へ変えろ
終わり
ってなります。パスワードは、変えるる〜。マヒロは、松井証券にお金を入れてないのでここまでしかできないので 記憶だけどこの後の発注されました見たいな画面がでたら 終了処理をつくります。愛の回数を数えて 「手順は ウィンドウ１のブラウザの読み込み完了」に もし 愛は ○○ なら 終了 を追加します。 次に自動実行するために、「ウィンドウ１のボタン１をクリック」 の手順を、「手順は 最初」に変えてプログラムの1番先頭の方のコード を下のように「最初」を追加します。 愛は ０ ウィンドウ１の表示 最初 待機 ウインドウ１を表示されたら「最初」の手順に飛んでいってブラウザを変えます ブラウザの表示が変わればデータの読み込みがされるので後は、じゅずつながりに愛の 回数が増えていって、どんどん次の手順に移っていくっていう仕組みになっています。 これで、このプログラムは、かんせ〜いだよ〜。 このプログラムを実行可能形式にしてＣドライブに「新規注文.exe」って名前で保存します。 Ｃドライブに保存された新規注文.exeのファイルをダブルクリックすると 注文条件にあった注文をしてくれるはずなんだけどエラーが出ると思います。 なのでプログラムを直しま〜す。（実行形式でファイルを起動するとなぜかエラーがでるの〜？） javascriptのタイミングが取れていないみたいです。 あまり使いたくなかったけど スリープ関数見たなのを使いま〜す。 すべてのjavascriptの間に「待て ０．１」を入れていくよ〜。 こんな感じになるる〜。 （例）手順は 注文画面３の場合 手順は 注文画面３
外部ファイル
待て ０．１
’買いまたは売り
もし 注文内容（１）は、「買」 なら
ブラウザ１のアドレスを「javascript:void(document.getElementById("tradeKbn_123").checked=true)」へ変えろ
もし終わり
もし 注文内容（１）は、「売」 なら
ブラウザ１のアドレスを「javascript:void(document.getElementById("tradeKbn_121").checked=true)」へ変えろ
もし終わり
待て ０．１
’枚数
ブラウザ１のアドレスを「javascript:void(document.getElementsByName("orderNominal")[0].value = "［注文内容（３）］")」へ変えろ
待て ０．１
’成行（値段）
（省略）
これで、もう一度、実行可能ファイルにして試してみてね〜。 でもせっかく作ったのに使わないと〜 「TTSで自動売買 ねぇ〜７」でつくったエクセルにコマンドボタン２を作ります。 コマンドボタン２を押したときの手順は、 Private Sub CommandButton2_Click()
Shell ("C:\新規注文.exe")
End Sub
こんなかんじになりま〜す。後は、楽天ＲＳＳと組み合わせたりすればいろいろなことが出来ると思うよ〜。 返済プログラムとか、約定とかは、今回は、作らないです。 各自で、お勉強するる〜。 自動売買のプログラムは、クリック証券のはっちゅうくんを使えばとても簡単に 出来ると思うけど、はっちゅうくんは、クリック証券にしか、発注ができないので メリット、デメリットが、あると思うの〜。手数料とかだね〜。でも簡単かも〜。 おつかれさまでした〜。なつぅ〜〜。
|
自動売買 web発注２
[ リスト | 詳細 ]
コメント（6）
|
おはようございま〜す。 今日は、ちょ〜っとプログラムが長くなりそうなので早速プログラムをつくるる〜。。 えっと先物の条件入力画面が出ている時の愛の回数は、２５回なので 「手順は ウィンドウ１のブラウザの読み込み完了」の中に もし 愛は ２５ なら 注文画面３ を追加して注文画面３の手順をつくりま〜す。。 手順は 注文画面３
外部ファイル’��
’買いまたは売り’��
もし 注文内容（１）は、「買」 なら
ブラウザ１のアドレスを「javascript:void(document.getElementById("tradeKbn_123").checked=true)」へ変えろ
もし終わり
もし 注文内容（１）は、「売」 なら
ブラウザ１のアドレスを「javascript:void(document.getElementById("tradeKbn_121").checked=true)」へ変えろ
もし終わり
’枚数’��
ブラウザ１のアドレスを「javascript:void(document.getElementsByName("orderNominal")[0].value = "［注文内容（３）］")」へ変えろ
’成行（値段）’��
もし 注文内容（４）は、「成行」 なら
ブラウザ１のアドレスを「javascript:void(document.getElementById("orderNari").checked=true)」へ変えろ
でないなら
ブラウザ１のアドレスを「javascript:void(document.getElementsByName("orderPrice")[0].value = "［注文内容（４）］")」へ変えろ
もし終わり
’条件’��
もし 注文内容（５）は、「なし」 なら
ブラウザ１のアドレスを「javascript:void(document.getElementById("execCondCD_0").checked=true)」へ変えろ
もし終わり
もし 注文内容（５）は、「指成」 なら
ブラウザ１のアドレスを「javascript:void(document.getElementById("execCondCD_1").checked=true)」へ変えろ
もし終わり
もし 注文内容（５）は、「寄付」 なら
ブラウザ１のアドレスを「javascript:void(document.getElementById("execCondCD_2").checked=true)」へ変えろ
もし終わり
もし 注文内容（５）は、「引け」 なら
ブラウザ１のアドレスを「javascript:void(document.getElementById("execCondCD_3").checked=true)」へ変えろ
もし終わり
’期間’��
もし 注文内容（６）は、「週末」 なら
ブラウザ１のアドレスを「javascript:void(document.getElementById("validDt_1").checked=true)」へ変えろ
もし終わり
’確認ボタン’��
ブラウザ１のアドレスを「javascript:void(document.getElementById("confirmOrder").click())」へ変えろ
終わり
今回もログインＩＤとパスワードを入力したときと同じように「javascript」を使って 注文条件を入力していきます。 注文画面のソースを見て<input>タグのなかから、名前とかＩＤを調べま〜す。 ByIdとByNameの使い分けは、説明が難しいから、調べてね〜。 �，粒杏凜侫．ぅ襪判颪�ことで、前回に作った「手順 外部ファイル」の手順にいったん 飛んで注文条件の変数に注文条件を読み込んでいます。 ��買いまたは売りで注文内容（１）の中をみて「もし 買い ならと 売り ならに 条件分岐をして、売り買いのどちらかをチェックしていま〜す。 �Ｃ輅呼睛董複魁砲頬膺瑤�入っているので枚数を入力していま〜す ＴＴＳの場合「」の中に変数を書く場合［ ］四角カッコで囲む必要があるの〜。 �っ輅呼睛董複粥砲涼罎法△發掘崟�行」と入っていれば成り行きのチェックをしています。 でなければ、成り行き以外の注文（指値しかないので）指値の値段をいれる用に条件分岐 していま〜す。 �ッ輅呼睛董複機砲里覆�にある「寄付」などの条件分岐をしていま〜す。 �Υ�間を入力しています。基本「当日」にすでにチェックがはいているので 「週末」のときにだけ条件分岐していま〜す。 �Ш埜紊縫椒織鵑鬟�リックしています。submitは、なぜかつかえないよ〜。 以上なのだ〜ぜぇ〜ぜぇ〜。
|
|
やさしい、エアロって書いてあるお部屋に入ったのにぜんぜんやさしくなかったの〜。 手とか足とか、ぜんぜんついていかないの〜。絶対やせるる〜。 夏休みの工作の方も、後少しでかんせいなのだ〜。 がんばるる〜。 今回は、注文条件を読み込むプログラムを作ってみま〜す。 前回にエクセルで、注文条件をテキストファイルに作ったので、えっと、テキストファイルの の中身を、取り出して条件を変数に代入していきます。 手順は 外部ファイル 注文内容は、開け（「c:\テスト.txt」） 注文内容（１）を表示 注文内容（２）を表示 注文内容（３）を表示 注文内容（４）を表示 注文内容（５）を表示 注文内容（６）を表示 終わり 手順は ウィンドウ１のボタン２をクリック 外部ファイル 終わり エクセルで注文条件を、Ｃドライブのテスト.txtに保存してあるので 開け関数を使って、注文内容という変数に代入しています。 ＴＴＳは、「,」カンマの文字があると、自動的に配列変数に代入してくれるので 表示関数を使って変数の中身を、表示（確認のために）させています。 ボタン２をクリックして外部ファイル読み込みの手順を実行してみるる〜。 画面に 注文内容（１）には 「買」 注文内容（２）には 「−」 注文内容（３）には 「1」 注文内容（４）には 「成行」 注文内容（５）には 「引け」 注文内容（６）には 「当日」 順番に「買」とかの文字が、画面に表示されれば表示の部分のコードは、 確認できればＯＫなので消しちゃいま〜す。 ; 前回のＶＢＡのプログラムが少しまちがってました〜。 For i = 1 To 5 ↓ For i = 1 To 6'６行分読み込みでした。 に直しま〜す。 エクセルのプログラムがうまくいかない場合は、とりあえず メモ帳を開いて １行目に↑をコピペして「テスト.txt」ファイル名にして Ｃドライブに保存するの〜。。
|
|
ありり。エクセルで、いろいろ問題あるみた〜い。 別な、方法で、考えてもいいけどまずは、今のやり方を 直す方法を考えてみるる〜。どうしても、ダメなときは 別な方法をかんがえてみるる〜。 まず、プログラムが、どこま動いているのかをかくにしま〜す。 前回の、エクセルコードになんて書けばいいのかわからないの〜？ ↓のようにするの〜。 Private Sub CommandButton1_Click()
msgbox "aaaa"
Dim i As Integer
Dim 条件 As String
For i = 1 To 5
条件 = 条件 & Cells(i, 2) & ","
Next i
msgbox "bbbb"
msgbox 条件
Dim n As Long
n = FreeFile
Open "c:\テスト.txt" For Output As #n
Print #n, 条件
Close #n
msgbox "cccc"
End Sub
このコードを実行して、最後のメッセージの、ｃｃｃｃが表示されれば、プログラムは きちんと、よみこまれてると思います。 前のコメの報告で、「パス名が無効です」というエラーがでるみたいです。 エクセルには、マクロを作成する機能があって、自動で、プログラムを作ってくれます。 今回は、それを使ってエクセルがつくるプログラムを見てマヒロの作ったパスとあっているか 調べてみます。 方法は、
� 屮帖璽襦廣�「マクロ」→「新しいマクロの記録」をして
そのままＯＫボタンを押してマクロの記録を開始します。
そうしたら、
�◆屮侫．ぅ襦廣�「名前を付けて保存」を押して、このエクセルのファイルをＣドライブに保存します。
��マクロの記録を停止します。「ツール」→「マクロ」→「記録の終了」
■ボタンがでるので押しもいいよ〜。
�い修靴燭薀廛蹈哀薀爐涼羶箸鬚澆襪痢繊�
「ツール」→「マクロ」→「マクロ」でマクロ名を選択して、編集ボタンをおします。
そうするとこんなコードが出ます。
ChDir "C:\"
ActiveWorkbook.SaveAs Filename:="C:\book1.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
これをみると、カレントディレクトリ？を「ChDir "C:\"」って書いてあるのでこれを 追加したほうがいいのかな〜。 「Filename:="C:\book1.xls"」これがＣドライブにbook1.xlsを保存しなさいってことみたい なので、このアドレスの「c:\」が人によって違うとか？ Private Sub CommandButton1_Click()
Dim i As Integer
Dim 条件 As String
For i = 1 To 5
条件 = 条件 & Cells(i, 2) & ","
Next i
Dim n As Long
ChDir "C:\"
n = FreeFile
Open "c:\テスト.txt" For Output As #n
Print #n, 条件
Close #n
End Sub
ChDir "C:\"だけを追加してみました〜 ｏｐｅｎの後のアドレスは、マクロで作ったアドレスと同じか確認してみるる〜？ ファイル名は、それぞれかわるよ〜。
|
|
前回までで、注文条件を入力する画面に辿りつくことができたので 今回は、注文を入力するための条件を作ってみるる〜。買いだとか売りとかだよね〜。 今日は、ずぅ〜っとＴＴＳのプログラムばっかりっだったのでちょっと飽きた〜ので エクセルのＶＢＡを少しお勉強してみるの〜。レッツぷろぐらみ〜♪ エクセルを起動したらセルに売買条件を入力します。 Ｂの列が条件だね。。
次にコントロールツールボックスを表示してボタンをつくりま〜す。赤丸を押すの〜 ピンクでしかくく囲った部分のボタンは、デザインモード？と通常のエクセルモード の切り替えボタンです。デザインモードの状態でボタンをダブルくっりっくすると ＶＢＡのエディターが開いて Private Sub CommandButton1_Click() End Sub って表示されます。ＴＴＳと同じで、手順は、コマンドボタン１をクリック〜終わり という意味です。この手順の中に命令を書いていきま〜す。 今回は、注文条件をテキストファイルに出力していきます。 'こんな感じのコードになります。 Private Sub CommandButton1_Click()
Dim i As Integer
Dim 条件 As String
For i = 1 To 5
条件 = 条件 & Cells(i, 2) & ","
Next i
Dim n As Long
n = FreeFile
Open "c:\テスト.txt" For Output As #n
Print #n, 条件
Close #n
End Sub
条件という変数に、セルの（１，２）から（５，２）の文字列をくっつけています。 ＦＯＲ で５行分のセルを読み込んでいるの〜。 最後に、Ｃドライブにテストというファイルに条件を保存していま〜す。 エクセルに戻ってデザインモードを解除してボタンを押すと Ｃドライブにテストって言う名前のファイルが保存されるようになるる〜。
|
|||||||||||||||||||||
