ブローカキャッシュバック


ChashBackForex経由でFXpro,Alpari NZなどのブローカに口座開設すると売買する度にキャッシュバックされます。 現在、アカウント切換える方が多数!

EA購入キャッシュバック

Get cashback from ForexTradingChoice.com
Forex trading choice経由でEAを購入するとキャッシュバックされます。&ブローカキャッシュバックやVPSキャッシュバックも有り。 

アンテナ

googleニュース

仮想通貨

bitvisitor  earnfreebitcoins  cointube.tv
Powered By 画RSS

←銀行振り込みでビットコイン買えます


XM


レバレッジ888倍
最大USD500の初回入金に50%ボーナスが即時反映
約定拒否、リクオートなしの抜群の約定力
最低入金額USD5から
カードで即時入金/手数料なし
三菱東京UFJ銀行より手数料無料で国内振込可
きめ細やかな日本語サポートサービス(現在6名のスタッフが常勤)

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。








Gain Capital Group

自動発注

以前から試してみようと思っていた自動発注のプログラムをつくってみたよ~ん。
以前って3ヶ月以上も前じゃん。
うーん、プログラムって作り始めるまで面倒なんだよね~。
掃除も、お風呂も、歯磨きも、仕事も・・・。爆

うみうみ屋さんのUWSCでも発注と仕切りだけなら出来るんだろうけど。
約定の確認が ちょっと難しそうなのでPerlで作ることに。
てかPerlしか知らない・・・

ターゲットはどこにしようかなぁと先物会社をみてまわったら、ひまわりCX 先物オン・ザ・ウェブ がhtmlのソースをブラウザから見れるし簡単に出来そうだぞぉ。 ってことでターゲットはひまわりCX 先物オン・ザ・ウェブ に決定!

自動発注のフローは
三井物産フューチャーズ株式会社のフューチャーズアナリストのDDE機能を使ってExcelに値動きを取り込み
②ExcelのVBAで発注の条件に達したら、仕掛け用のCGI/Perlにアクセスして注文実行。
③ExcelのVBAで約定しているかを約定確認用のCGI/Perlにアクセスして約定を確認。
④ExcelのVBAで仕切りの条件に達したら、仕切り用のCGI/Perlにアクセスして仕切り注文。
⑤最後に手動でアクセスして口座残高確認→大儲け確認。←???
わざわざPerl使わなくてもVBAだけでも発注出来るんだろうなぁ・・・
でもVBAは詳しくないので取り合えずPerl。

早速、下のPerlを作って、早速、ログイ~~~ンと思いきや。だめぽ~。
なんかCrypt::SSLeayどうのこうのとエラーメッセージが出る。
ネットで調べてみたら、どうやらSSLで暗号化されたサイトにアクセスするにはCrypt::SSLeayが必要らしい。
ppmを起動させてもCrypt::SSLeayのモジュールが出てこないのでDos窓のコマンドラインから
c:\>ppm install http://theoryx5.uwinnipeg.ca/ppms/Crypt-SSLeay.ppd
と実行してインストール。
詳しくは「基本は根性ナシな日記」さんのところにに書いてあった。

#!/usr/local/bin/perl
use WWW::Mechanize;
my $himawari_user_id = 'xxxxxxx'; #### ひまわりのユーザID
my $himawari_password = 'xxxxxx'; #### ひまわりのパスワード
my $url = 'https://promo.himawari-group.co.jp/';

my $mech = WWW::Mechanize->new(agent => 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)');
#$mech->proxy('http', $proxy);#プロキシを使う場合に指定。
$mech->add_header(Referer => '');#リファラーを指定する場合はURLを記入
$mech->add_header(ACCEPT => 'image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, */*');
$mech->add_header(ACCEPT_LANGUAGE => 'ja');
$mech->add_header(ACCEPT_ENCODING => 'gzip,deflate');
#$mech->add_header(HOST => 'yahoo.co.jp');#ホストを指定する場合(例はYahooの場合)
$mech->add_header(CONNECTION => 'Keep-Alive'); #モジュール改造の場合は行削除
$mech->get("$url");

#ログインします。
my $url_login = 'https://promo.himawari-group.co.jp/login.cfm';
my @form_login = (
'HoneyMobileUserid' => $himawari_user_id,
'HoneyMobilePasswd' => $himawari_password,
);
my $request = &HTTP::Request::Common::POST($url_login, [@form_login]);
my $response = $mech->request($request);
my $html = $mech->content();

#結果出力
print "Content-type: text/html;charset=Shift_JIS\n\n";
print "$html\n";

exit();


Crypt::SSLeayのモジュールをインストールしてログインしたみた結果
見事、ログインに成功!
**ブラウザのURLが自分のPCのローカルURLになってっしょ。

上のソースに、注文へのLinkに移動した後に発注Formへリクエストをして最後に発注確認フォームにOKのリクエストをすれば注文完了なり~。
試しにMGO大豆を成り行き買いで一枚した時のスナップショットが↓。
なんでMGO大豆?? ←口座に12000円しか入ってないから。さびしい。

ひまわりのURLからアクセスして確認。うぉ~注文できてる~。

ExcelのVBAからIEを起動させる方法は↓な感じです。
セルのD3が5になったら、大豆買い注文
セルのD3が10になったら、ブラウザを閉じる

Private Sub Worksheet_Calculate()
Dim ObjIE As Object
Set ObjIE = CreateObject("InternetExplorer.Application")

If Me.Range("D3").Value = 5 Then
ObjIE.Visible = True
ObjIE.navigate "http://127.0.0.1/perl_test/himawari/MGO-Daidu/kai.cgi"
End If

If Me.Range("D3").Value = 10 Then
For Each IEApp In CreateObject("Shell.Application").Windows()
If InStr(1, IEApp.FullName, "iexplore.exe", vbTextCompare) > 0 Then
IEApp.Quit
End If
Next

End If

End Sub


自動発注出来ることが分かったけど、ここで大問題は発生。
何時、仕掛けて何時仕切れば、良いんだぁ? ゴルァ
もしかして、そっちの方が先か???
ってことで情けないが、自動発注は中断。
直ぐ忘れるのでブログにメモメモっと。







Gain Capital Group

コメント

ニュースサイト
商品先物

ライブ 商品先物 表の提供はForexpros.jp
ランキング
にほんブログ村 為替ブログ FX システムトレード派へ
にほんブログ村 為替ブログへ
にほんブログ村 先物取引ブログへ
FX
プロフィール

ガマウシ

Author:ガマウシ

最近の記事
最近のコメント
最近のトラックバック
月別アーカイブ
カテゴリー
ブロとも申請フォーム

この人とブロともになる

FC2ブログ
ブログ
このブログに関して
【著作権に関して】
当サイトで掲載・配信している動画及び画像の著作権/肖像権等は各権利所有者に帰属致します。
当サイトに掲載されている画像や記事等において、著作権や肖像権に関して問題がありましたら、下記連絡先まで御連絡下さい。即刻削除等の対処をさせて頂きます。
又、リンク先で起こったトラブルにつきましては、当サイトは一切関知しておりませんので、ご利用の際は自己責任にて対処をお願いいたします。

各種お問い合わせにつきましては、 下記にあるメールフォームからお願いします。
メールフォーム

名前:
メール:
件名:
本文:

CoinsPrice



国債
日本国債 10年


米国債 10年


英国債 10年


スイス国債 10年


オーストラリア国債 10年


ニュージーランド国債 10年


カナダ国債 10年


ドイツ国債 10年


イタリア国債 10年


ギリシャ国債 10年


ポルトガル国債 10年


スペイン国債 10年




ブログ内検索
リンク
仮想通貨リンク
インフレ率
インフレ率(年平均)の推移 - 世界経済のネタ帳

インフレ率(期末月)の推移 - 世界経済のネタ帳

インフレ率(期末月)の推移 - 世界経済のネタ帳

インフレ率(期末月)の推移 - 世界経済のネタ帳

インフレ率(期末月)の推移 - 世界経済のネタ帳

インフレ率(期末月)の推移 - 世界経済のネタ帳

インフレ率(期末月)の推移 - 世界経済のネタ帳

インフレ率(期末月)の推移 - 世界経済のネタ帳

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。