|
寄り前外資系動向がトレーダズ・ウェブにあるので取得するプログラムを書いてみたぉ。 コードは、ＶＢ２００５、多分２００８も。 フォームにボタンを作って下のコードをかくぉ Imports System
Imports System.Net
Imports System.Text.RegularExpressions
Imports System.Text
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
売買動向()
End Sub
Sub 売買動向()
'HttpWebRequest
Dim webreq As System.Net.HttpWebRequest = _
CType(System.Net.WebRequest.Create("http://www.traders.co.jp/domestic_stocks/domestic_stocks_top.asp#yori_gaishi"), _
System.Net.HttpWebRequest)
'HttpWebResponseを取得
Dim webres As System.Net.HttpWebResponse = _
CType(webreq.GetResponse(), System.Net.HttpWebResponse)
'文字コード
Dim enc As System.Text.Encoding = _
System.Text.Encoding.GetEncoding("Shift-JIS")
'Streamを取得
Dim st As System.IO.Stream = webres.GetResponseStream()
Dim sr As New System.IO.StreamReader(st, enc)
Dim html As String = sr.ReadToEnd()
'閉じる
sr.Close()
'「htmlのソースから，（カンマ）を削除」
html = html.Replace(",", "")
Dim 売買数(1) As String
Dim i As Integer = 0
'表現
Dim r As New System.Text.RegularExpressions.Regex( _
"<td class=""table_d_14b\s(blue|red)"">(.*?)</td>", _
System.Text.RegularExpressions.RegexOptions.IgnoreCase Or _
System.Text.RegularExpressions.RegexOptions.Singleline)
'検索
Dim mc As System.Text.RegularExpressions.MatchCollection = _
r.Matches(html)
For Each m As System.Text.RegularExpressions.Match In mc
'一致
売買数(i) = m.Groups(2).Value
i = i + 1
Next
MsgBox("売り数は：" & 売買数(0) & "枚です")
MsgBox("買い数は：" & 売買数(1) & "枚です")
MsgBox("end")
End Sub
End Class
エクセルだと、ＷＥＢクリエで、楽楽なんだけど〜、エクセルだと、後後が〜．．．．
|
自動売買プログラム
[ リスト | 詳細 ]
カブロボ、自動売買のプログラムを作ってま〜す
コメント（15）
|
前回までに、マケスピを起動できるようになったので、 今日は、マケスピにログインするところを作ってみま〜す。 マケスピにログインするためには、いろいろと難しいコードを いろいろと書かないといけないけど、 マーケットスピードライブラリというツールを使うとものすごい 便利ですよ〜。マヒロも、使わせてもらっていま〜す。 マケスピライブラリは、KCWAREさんのページで公開されています。 細かい設定とかは、KCWAREのページに書かれています。 はじめにしないといけないのは、レジストリの登録で マケスピライブラリのフォルダの中にある「Install.bat」をクッリック しま〜す。あとは、VB側で作ります。 ��VB2005で、マケスピライブラリを使えるようにしま〜す。 メニューの プロジェクト→参照の追加→参照のタブを選んで ダウンロードした、「RMSCLib.dll」をえらびま〜す。 これで、マケスピライブラリが、呼び出せるようになるる〜。 もしかしたら、ＣＯＭの参照っだったかも〜 動かなかったら教えてください。(^-^；) �▲泪吋好團薀ぅ屮薀蠅鮓討喀个靴謄蹈哀ぅ鵑靴沺舛后�。 ちょっとお昼なのだ〜（休憩♪） 今回は、ボタン２を押したら、マケスピログインという処理に飛ぶようにしま〜す。 ボタン２の手順 Private Sub Button2_Click(ByVal sender 省略) Handles Button2.Click
マケスピログイン()
End Sub
マケスピログインの手順 Sub マケスピログイン()
Dim rms As RMSCLib.RMSC
rms = New RMSCLib.RMSC
rms.SetVer("7.1")
rms.Login("", "パスワード") 'IDは、マケスピの設定で入っているからここにパスのみ書く
rms = Nothing
End Sub
これでボタン１でマケスピが起動して、ボタン２でマケスピにログインできるように なるる〜。 |
|
今回は、マケスピの起動部分をつくっていきます。 最終的には、自動化するには、タイマーを使って 指定の時間になったら、起動するようにするけど 今回は、ボタンを押したらマケスピが起動する ようにしま〜す。 ＦＯＲＭ１に作ったボタンをダブルクリック すると、自動的にボタン１を押したときの コードが作成されるのでその中に マケスピ起動()って書きます。 Private Sub Button1_Click(長いから省略) Handles Button1.Click
マケスピ起動()
End Sub
これで、ボタン１を押すとマケスピ１の手順に飛ぶようになりので マケスピ起動の手順を作っていきます。 Sub マケスピ起動() 'マケスピ起動の処理を書く〜 End Sub ↑のsubからendsubのなかにマケスピ起動のコード書くけど プログラムの実行方法もいくつかあるので一応かいておきま〜す。 �� System.Diagnostics.Process.Start("C:\Program Files\MarketSpeed\MarketSpeed\MarketSpeed.exe")
�� Dim procID As Integer
procID = Microsoft.VisualBasic.Shell("C:\Program Files\MarketSpeed\MarketSpeed\MarketSpeed.exe", AppWinStyle.NormalFocus)
� ↓△箸皀泪吋好圓竜�動は、出来るけど〜、ログインしたときに 登録してある銘柄情報とかがなぜか見えなくなります。 なので、wshを呼び出して？マケスピを起動しま〜す。 最終的には、こんな感じになりま〜す。 Sub マケスピ起動()
Dim WshShell As Object
WshShell = CreateObject("WScript.Shell")
WshShell.CurrentDirectory = "C:\Program Files\MarketSpeed\MarketSpeed"
WshShell.Exec("C:\Program Files\MarketSpeed\MarketSpeed\MarketSpeed.exe")
WshShell.Exec("C:\Program Files\MarketSpeed\MarketSpeed\RSS.exe")
End Sub
これで、ボタン１を押すとマケスピが起動するとおもいま〜す。 ついでに、ＲＳＳも一緒に起動しちゃいます。 次回は、ログインする方法を作っていくのだ〜。 |
|
マヒロは、マケスピを使った株ロボを作るたびに マケスピの自動起動、自動ログイン、自動終了のプログラムを 作りかえていってる気が〜。 最近、マケスピ関連のツールとか情報も、たくさんネット上に あって便利になってる〜。 今回は、ＶＢ２００５（無料）でつくる、マケスピの 自動起動、自動ログイン、自動終了のプログラムの 作り方です。（あまり役にたたないかなぁ〜？） えっと、まずは、マイクロソフトさんのページから VB2005をダウンロードします。VB2008でもいいと思うけど マヒロのパソコンは、まだ、windows2000のもあるので VB2005にしているよ〜。 VBを起動したら、ファイル→新しいプロジェクトを選択しま〜す。 ＦＯＲＭ１のウインドウの中に ボタンを４つとリストボックス、タイマーをＦＯＲＭ１において いきま〜す。次回につづく〜。 |
|
マケスピで逆指値付注文の引成とか不成注文って、できますか？ 注文を入力すると「ご指定の執行条件は都合により受け付けておりません」 って、メーッセージが表示されるよ。 寄引けシステムの場合を考えていて、 通常注文で、引成とか不成注文は出来るみたいですけど、これだとロスカット値 を入れられないし、逆指値注文だと、ロスカット注文は出来るけど、確定の注文 ができないです。 対策を考えるる〜。 �ゝ媚愧傭輅犬鯑�れて、１５：０８の引け直前にロスカットされていなったら、 訂正注文で、通常注文で引成注文を出す方法。 ��通常注文で引成注文を出しておいて、株価データを監視しておいて、ロスカット値 になると訂正注文を出して、すぐに成行決済。 ��システムルールの変更。 �，蓮■隠機В娃阿垢�に大きく価格変更が起きる可能性があるので注文変更は、 下手にしないほうがいいのかも〜。 �△皀蹈好�ットに引っかかるときは、大きな価格変更になってるときなので あまりよくない気がします。 �，鉢△箸癲�引成注文で最近、引成注文が、約定しなかったりするので、 思い切ってルール変更を考えました〜。決済のタイミングを夕場の寄付 に変更してみます。これだと、当日の前場と後場は、逆指値注文で ロスカット設定だけで済むし、決済注文も夕場の始まる前の休憩時間に 入れられるので、確実な気がしま〜す。 それに、マヒロのシステムで夕場の始値で決済すると、成績が後場決済よりも 成績が、あ〜っぷしているのだ〜。最初、日付がずれてないかなって心配した けど、ばっちりあってました〜。
|
