PR
Calendar
Category
カテゴリ未分類
(0)卓球
(1317)盆太鼓・盆踊り
(434)トイドローン
(21)その他
(340)■■■■■■↓以下は凍結カテゴリー↓■■■■■■
(0)KATS(自動売買プログラム)
(87)「VB.NETで自動売買」入門
(24)本日の取引
(1292)デイトレ結果(勝ち)
(365)デイトレ結果(負け)
(591)夜間取引結果
(15)今週の取引
(480)今月の取引
(103)明日の監視銘柄
(54)株関連
(55)草野球
(36)Keyword Search
▼キーワード検索
Comments
Jan 6, 2009
カテゴリ： 「VB.NETで自動売買」入門
前回クリック証券へのログインが終了したので、分かる方は既に発注について
応用されていると思っています。
でもこのまま放っておいてもいけないので、私は今回を含めあと2回記事を書く予定です。
1つは、多分一番簡単だと思っている余力情報の確認です。
ログインが理解出来た方はすぐに出来ます。
もう1つは、一覧形式をやっておこうという事で、保有株の一覧取得をやってみたいと思います。
今回はサラッと流します。
まずForm3にボタンを配置し、プロパティウィンドウから 「Text」の値を"余力確認"に。
「Name」の値を"Yoryoku"に 変更して下さい。
余力情報確認メソッドが出来ましたので、中にコーディングしていきます。
ログイン処理では複雑なシーケンスがあったので面倒でしたが、今回は不要です。
ログインに使った クッキー はForm3クラス内にありますので、それを使って
余力確認用のURLを呼び出すだけです。
その時、ログイン時に確保した 基底URL も使います。覚えてますか？(笑)
余力確認用のURLは
「クリック証券 Webサービス仕様書【株式取引編】- 第2.1.0版 -」
の65ページに記載されています。
コーディングは、ごちゃごちゃ説明しません。こんな感じになります。
'株式余力情報の取得
Dim res As WebResponse = HttpPost(baseUrl & "/ws/kabu/kabuYoryokuJoho.do", "")
'株式余力情報の取得結果をDataSetに取り込む
Dim ds As New DataSet
Using resStream As Stream = res.GetResponseStream()
ds.ReadXml(resStream)
End Using
'株式余力情報をダイアログ表示
MessageBox.Show(ds.Tables("kabuYoryokuJohoItem").Rows(0).Item("genbutsuKaitsuke") & "円です。")
まさにログイン処理の応用で出来ますよね！？
もちろん先にログインボタンを押し、ログイン出来てから余力情報取得ボタンを押して下さいね。
こんな風に出力されたら成功です。
ちなみに、この「7円」は私の今の本当の余力ですよ(´д｀;
最終的にソースは以下のようになっている筈です。
・・・今回はちょっと手抜きでしたが、どうだったでしょうか？
これで他の発注も基本的に出来るはずですよね！？
ではでは。
応用されていると思っています。
でもこのまま放っておいてもいけないので、私は今回を含めあと2回記事を書く予定です。
1つは、多分一番簡単だと思っている余力情報の確認です。
ログインが理解出来た方はすぐに出来ます。
もう1つは、一覧形式をやっておこうという事で、保有株の一覧取得をやってみたいと思います。
今回はサラッと流します。
まずForm3にボタンを配置し、プロパティウィンドウから 「Text」の値を"余力確認"に。
「Name」の値を"Yoryoku"に 変更して下さい。
余力情報確認メソッドが出来ましたので、中にコーディングしていきます。
ログイン処理では複雑なシーケンスがあったので面倒でしたが、今回は不要です。
ログインに使った クッキー はForm3クラス内にありますので、それを使って
余力確認用のURLを呼び出すだけです。
その時、ログイン時に確保した 基底URL も使います。覚えてますか？(笑)
余力確認用のURLは
「クリック証券 Webサービス仕様書【株式取引編】- 第2.1.0版 -」
の65ページに記載されています。
コーディングは、ごちゃごちゃ説明しません。こんな感じになります。
'株式余力情報の取得
Dim res As WebResponse = HttpPost(baseUrl & "/ws/kabu/kabuYoryokuJoho.do", "")
'株式余力情報の取得結果をDataSetに取り込む
Dim ds As New DataSet
Using resStream As Stream = res.GetResponseStream()
ds.ReadXml(resStream)
End Using
'株式余力情報をダイアログ表示
MessageBox.Show(ds.Tables("kabuYoryokuJohoItem").Rows(0).Item("genbutsuKaitsuke") & "円です。")
まさにログイン処理の応用で出来ますよね！？
もちろん先にログインボタンを押し、ログイン出来てから余力情報取得ボタンを押して下さいね。
こんな風に出力されたら成功です。
ちなみに、この「7円」は私の今の本当の余力ですよ(´д｀;
最終的にソースは以下のようになっている筈です。
・・・今回はちょっと手抜きでしたが、どうだったでしょうか？
これで他の発注も基本的に出来るはずですよね！？
ではでは。
お気に入りの記事を「いいね！」で応援しよう
[「VB.NETで自動売買」入門] カテゴリの最新記事
-
SBI証券バックアップサイトで発注する＜そ… Nov 21, 2010 コメント(2)
-
SBI証券バックアップサイトで発注する＜そ… Nov 20, 2010
-
SBI証券バックアップサイトで発注する＜そ… Nov 13, 2010
【毎日開催】
15記事にいいね！で1ポイント
© Rakuten Group, Inc.
