クリック証券のAPIがアレなんで、ちまたではスクレイピングが大流行らしい。（たぶん）
うちはVBのひとなので、InStrとかで文字列探したりごにょごにょするのも好きだけど、たまには正規表現でやってみるのも頭の体操になるよ。ってお話。
お題：Yahoo掲示板のカテゴリ一覧を読み取ってみよう。
まぁ、ようするにWPFの習作としてYahoo掲示板をあれこれしてみようかと。
もちろん株がらみですのでご安心めされよ。
カテゴリは階層構造になってるので再帰取得して、TreeViewにそれっぽく表示してみる。（HierarchicalDataTemplateってのでいろいろできるらしい）
Yahooチャットのプロトコルがまた変わったらしく・・。
部屋の一覧が取得できなくなったわけで・・。
いつものうちの部屋（株自動売買プログラミング）で使ってるお留守番BOT（占いくん）が起動できないわけで・・。
対応しないと・・。
新しい（というか現バージョンでの）取得手順を調べたりしてます。
カテゴリ一覧
http://insider.msg.yahoo.co.jp/ycontent/?chatcat=0
ルーム一覧
http://insider.msg.yahoo.co.jp/ycontent/?chatroom_552000002
今まではかなり古い手順（http://chat.yahoo.co.jp/c/roomlist/catfeed.html ←もう見れません）でお茶をにごしていたわけです。（手抜きイクナイ）
さて、やるか・・。
ニョクマムとジャスミンライスを買ったのでベトナム風の豚の角煮つくってみた。
レシピはこれ→http://www.ntv.co.jp/3min/0309/0927.html
大成功でした。満足♪
でも・・。
風邪のようです。３７．７℃ （ピンチ）
鼻水とまらん・・。
クシャミとまらん・・。
頭ボーっとする・・。
たすけて・・。
三越伊勢丹やっと手仕舞い、当たりでもハズレでもない感じでしたね。
少しずつ買いシグナルも増えてきてますょ。
あみやき亭が下がったので買っちゃいました。おたのしみ♪
讃岐製麺 きつね（大）＋ちくわ＋鶏天
さて、あみっつせんせいのおかげで風邪治りました。(゜ _ ゜)v
治療費は踏み倒します。
さて、全銘柄分の掲示板をごにょごにょしてるわけですが。
さすがにノーウェイトで回すと叱られます・・。
文字が読めません・・どうやらやふーさんは宇宙人のようです。
夢の中へ行ってみたいと思いませんか～♪のあとは
「ふふっふ～」なのでしょうか？
「ううっう～」でしょうか？
それともやっぱ
「うふっふ～♪」ですよね。（挨拶）
味さか つくねが美味しい。
トマトのおでん 美味しい。
さて、5603 虹技 が+22％でおどろいたわけです。
ちょっとがんばってみようかな。
なか卯 親子丼ミニでもわりと満足
こっそり日本光電の数量調整とかもしちゃいます。
豚角煮 こってりタイプ Ver.2.1
ネタ切れ気味
さて、こっそりといろいろ開発中です。
どうも、売り坊です。こんばんは。(゜ _ ゜)
上がりまくってますね・・。 ちびりそうです・・・。
ちびりそうです・・・。
さて、あまからちゃんでっせ。
カサゴの煮付けを作ってみた。
関西でがしらと呼ばれるお魚ですね。
これは山口産らしいけど、うちの田舎で食べるのはもっと旨みが強いですね。
さて、1月に新しく作った分の買いロジックの調整をしてます。
もっとも手抜きにDDEコールバックでRSSから株価を拾ってみる。
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ddeinst As UInteger
Dim pfnCallback = New DdeDelegate(AddressOf DdeCallback)
DdeInitialize(ddeinst, pfnCallback, CBF_SKIP_REGISTRATIONS, 0)
Dim hszServiceName = DdeCreateStringHandle(ddeinst, "RSS", CP_WINANSI)
Dim hszTopicName = DdeCreateStringHandle(ddeinst, "2753.T", CP_WINANSI)
Dim hszItemName = DdeCreateStringHandle(ddeinst, "現在値", CP_WINANSI)
Dim hconv = DdeConnect(ddeinst, hszServiceName, hszTopicName, Nothing)
DdeClientTransaction(Nothing, 0, hconv, hszItemName, CF_TEXT, XTYP_ADVSTART, 9999, Nothing)
End Sub
Public Function DdeCallback(ByVal uType As Integer, ByVal uFmt As Integer, ByVal hConv As IntPtr, ByVal hsz1 As IntPtr, ByVal hsz2 As IntPtr, ByVal hData As IntPtr, ByVal dwData1 As IntPtr, ByVal dwData2 As IntPtr) As IntPtr
If uType = XTYP_ADVDATA Then
Dim data = DdeAccessData(hData, Nothing)
MsgBox(data)
End If
End Function
ほんとは各種ハンドルの解放とかエラー処理が必要ですが、基本これだけ。
あと、API利用のために以下も必要です。
Public Const CBF_SKIP_REGISTRATIONS As Integer = &H80000
Public Const CF_TEXT As Integer = 1
Public Const CP_WINANSI As Integer = 1004
Public Const DDE_FACK As Integer = &H8000
Public Const XTYP_ADVDATA As Integer = &H4010
Public Const XTYP_ADVSTART As Integer = &H1030
Public Const XTYP_ADVSTOP As Integer = &H8040
Public Delegate Function DdeDelegate(ByVal uType As Integer, ByVal uFmt As Integer, ByVal hConv As IntPtr, ByVal hsz1 As IntPtr, ByVal hsz2 As IntPtr, ByVal hData As IntPtr, ByVal dwData1 As IntPtr, ByVal dwData2 As IntPtr) As IntPtr
<DllImport("user32.dll", EntryPoint:="DdeInitialize", CharSet:=CharSet.Ansi)> _
Public Shared Function DdeInitialize(ByRef pidInst As UInteger, ByVal pfnCallback As DdeDelegate, ByVal afCmd As UInteger, ByVal ulRes As UInteger) As UInteger
End Function
<DllImport("user32.dll", EntryPoint:="DdeConnect", CharSet:=CharSet.Ansi)> _
Public Shared Function DdeConnect(ByVal idInst As UInteger, ByVal hszService As IntPtr, ByVal hszTopic As IntPtr, ByVal pCC As IntPtr) As IntPtr
End Function
<DllImport("user32.dll", EntryPoint:="DdeCreateStringHandle", CharSet:=CharSet.Ansi)> _
Public Shared Function DdeCreateStringHandle(ByVal idInst As UInteger, ByVal psz As String, ByVal iCodePage As Integer) As IntPtr
End Function
<DllImport("user32.dll", EntryPoint:="DdeAccessData", CharSet:=CharSet.Ansi)> _
Public Shared Function DdeAccessData(ByVal hData As IntPtr, ByRef pcbDataSize As UInteger) As String
End Function
<DllImport("user32.dll", EntryPoint:="DdeClientTransaction", CharSet:=CharSet.Ansi)> _
Public Shared Function DdeClientTransaction(ByVal pData As IntPtr, ByVal cbData As UInteger, ByVal hConv As IntPtr, ByVal hszItem As IntPtr, ByVal wFmt As UInteger, ByVal wType As UInteger, ByVal dwTimeout As UInteger, ByRef pdwResult As UInteger) As IntPtr
End Function
おいしょう があらわれた。
おいしょう のこうげき。1 7 2 7 0 0 ＨＩＴ！
住友不動産 はにげだした。
しっぽ はあわてて銘柄を整理した。
-----
（追記）チャットに入ったら追い討ちでこんな占いがでたよ・・ｏｒｚ
sippofactoryさんの今日の運勢：
金運「大金をいとも簡単に失わないよう、注意してかかること。」
追証は追加入金して処理しました。
信用枠一杯まで使って建てて1日で一気に負けるとこういうやばい状況になるんですね。
さて、気を取り直して・・
さくさく亭 飛騨牛ハンバーグランチ（1280円）
不景気なので節約生活が流行っているらしい。（うちもうちも）
粉もの（小麦粉、パスタ）がいいらしい。
ホットケーキを炊飯器で焼くのも流行ってるらしい。
焼けないよ・・？
うちの炊飯器１分くらいですぐ保温になっちゃう・・。
少し冷ますと、また炊飯ボタンが押せるようになるのでしつこく炊飯してみた。
炊飯ボタン４回目。 勝利のヨカン・・(゜ _ ゜)
連休ですが（連休なので）、寝てます。
三河弁でいうと、ねてりん。 （命令形ですか？
讃岐製麺
カップヌードルって素敵だよね。これだけ具がのってても安いしおいしい。
まけまけですねぇ。
こまりましたねぇ。
もらいものの鮭とば
ひもじいですねぇ。
贅沢させていただきました。
某所 牛刺し
さて、そろそろ仕事しないとやばいんですが、仕事ないんです。こまったｗ
って、このくらいハングリーじゃないとね。
気迫で勝ちます。はい。
あ、まけまけ主義は続けますょ。
三河弁でいうと。 まけりん。
柚子こしょうペペロン鶏肉のっけ
さて、やっと信用余力が回復しましたよ。と
朝７時に、４時間だけねよう・・。と寝て起きたら２２時でした。
にちようびかえしてー。
なか卯 牛とじ丼＆梅うどん
さて、仕事がなくてもやるべきことはあります。
知らないこと、出来ないことがたくさんあります。
こういうヒマな時期にこそ、スキルアップやトレーニングに励むべきです。
眠くて落ちそうになるくらいまでそういう作業をしたら、あとはぐっすり眠ることも大切ですね。
同じように仕事がなくて困ってる方を何人か知っています。
あなたは何をしていますか？
GMがやばげ
チーズスイートホームの２期が放送開始なのでブログパーツを貼ってみる
さて、またこまったな・・。
最近のコメント
Hiromi at 08.24
Hiromi at 08.24
sippofactory at 08.21
Hiromi at 08.20
sippofactory at 08.05
Hiromi at 08.05
sippofactory at 08.04
Hiromi at 08.04
sippofactory at 08.01