ブログパーツ アクセスランキング

ニッパーのシステムトレード研究所

株式投資の新しい形「システムトレード」を研究中!

イザナミを駆使する日本株トレーダーの勉強ブログです。
twitterもやってます。
祝!雑誌掲載

↓ここに出てくる一行ニュースは超必見!

指定した日付のストップ高/安銘柄一覧を開くVBスクリプト(vbs)

チ便利ツールシリーズビックリマーク

またまた調べ物用に作りました。windows専用です。

以下のコードをメモ帳に貼り付け、「ストップ高情報を開く.vbs」という名前で保存します。
そのファイルをダブルクリックすると
日付(yyyymmdd) を聞いてくるので入力します。

ニッパーのシステムトレード研究所

「OK」を押すと株ドラゴンさんのページが開き、その日のストップ高銘柄を確認することができます。
ちょっと改造すれば他の指標に使えますので、改造してみてくださいわんわん

・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・

Option Explicit

dim date
date = InputBox("","日時を入力してください","20090123")
if date = "" then
WScript.Quit
end if

dim yyyy,mm,dd
yyyy = left(date,4)
mm = mid(date,5,2)
dd = right(date,2)

dim url
url="http://www.kabudragon.com/ranking/"
url=url+yyyy
url=url+"/"
url=url+mm
url=url+"/"
url=url+dd
url=url+"/stopdaka.html"
'http://www.kabudragon.com/ranking/2009/01/27/stopdaka.html
'msgbox url


Dim objIE

'IEオブジェクトを作成します
Set objIE = CreateObject("InternetExplorer.Application")

'ウィンドウの大きさを変更します
objIE.Width = 800
objIE.Height = 600

'表示位置を変更します
objIE.Left = 0
objIE.Top = 0

'ステータスバーとツールバーを非表示にします
objIE.Statusbar = False
objIE.ToolBar = False

'インターネットエクスプローラ画面を表示します
objIE.Visible = True

'①指定したURLを表示します
objIE.Navigate url '"http://www.yahoo.co.jp/"

'②ページの読み込みが終わるまでココでグルグル回る
Do Until objIE.Busy = False
'空ループだと無駄にCPUを使うので250ミリ秒のインターバルを置く
WScript.sleep(250)
Loop

'ステータスバーとツールバーを表示します
objIE.Statusbar = True
objIE.ToolBar = True

Set objIE = Nothing

・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・

こちらはストップ安バージョン
・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・

Option Explicit

dim date
date = InputBox("","日時を入力してください","20090123")
if date = "" then
WScript.Quit
end if

dim yyyy,mm,dd
yyyy = left(date,4)
mm = mid(date,5,2)
dd = right(date,2)

dim url
url="http://www.kabudragon.com/ranking/"
url=url+yyyy
url=url+"/"
url=url+mm
url=url+"/"
url=url+dd
url=url+"/stopyasu.html"
'http://www.kabudragon.com/ranking/2009/01/27/stopyasu.html
'msgbox url


Dim objIE

'IEオブジェクトを作成します
Set objIE = CreateObject("InternetExplorer.Application")

'ウィンドウの大きさを変更します
objIE.Width = 800
objIE.Height = 600

'表示位置を変更します
objIE.Left = 0
objIE.Top = 0

'ステータスバーとツールバーを非表示にします
objIE.Statusbar = False
objIE.ToolBar = False

'インターネットエクスプローラ画面を表示します
objIE.Visible = True

'①指定したURLを表示します
objIE.Navigate url '"http://www.yahoo.co.jp/"

'②ページの読み込みが終わるまでココでグルグル回る
Do Until objIE.Busy = False
'空ループだと無駄にCPUを使うので250ミリ秒のインターバルを置く
WScript.sleep(250)
Loop

'ステータスバーとツールバーを表示します
objIE.Statusbar = True
objIE.ToolBar = True

Set objIE = Nothing

・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
ペタしてね
こちらもペタお願いします->株式投資ランキング
人気ブログランキングへ
にほんブログ村 株ブログへブログランキング・にほんブログ村へ


人気記事

    資産を最大限に増やすための株の買い方- ケリー基準、オプティマルfの実践 -

    産管理のネタを探していたらこんな記事を見つけました。

    資産を最大限に増やすための株の買い方- ケリー基準、オプティマルfの実践 -

    数学的な手法で「一体いくら株を買うべきか」/「信用は使うべきか」/「資産は分散すべきか」の答えを出してくれるワザがあるそうです。
    その名も「ケリー基準(別名 オプティマルf)」

    「資産の何パーセント分、株を買うべきか」と同時に「その場合、一体どれ位の割合で資産が増加するか」にも答えてくれます。

    ええぇ!夢のようだ!
    さっそく試そう!!

    ・・・と思ったものの、なんかいまいちよくわかりません・・・。

    そのまま使うととあまりにドローダウンが激しいので
    「控え目ケリー」「部分ケリー」というやりかたでやるそうですが、
    なにやらちんぷんかんぷんショック!

    うーむ。使えそうな使えなさそうな。
    うー・・・、もっとニッパーでもわかる情報源はないものですかねぇ。わんわん

    ペタしてね
    こちらもペタお願いします->株式投資ランキング
    人気ブログランキングへ
    にほんブログ村 株ブログへブログランキング・にほんブログ村へ

    人気記事

      Twitter
      日本株株式投資やってます。 システムトレードやってます。 大負けしないし、オロオロしなくなりました。 ブログコツコツ更新中。
      Googleで記事検索
      記事検索
      ニッパー的シストレソフトランキング
      1位:イザナミ  [使い方]

      ↑銘柄管理リストや汎用的なスクリーニング、検証結果の保存などストラテジー(戦略)開発支援機能が充実。個人なら1ライセンスで3台のPCにインストール可なのでお買い得な面も。

      2位:株システムトレードソフト シストレ魂
      ↑イザナミにない指標や機能あり。最近活動再開中。

      3位:システムトレードの達人

      ↑斉藤さんファン必見。イザナミや検証くん等と比べると機能はやや不足気味。将来性に期待。

      4位:検証くん
      ↑機能は達人に勝るそうですがヤフオクしか入手経路がないのです。

      5位:パイロン
      ↑資産管理機能がないのが痛いです。
      アーカイブ
      • ライブドアブログ