座禅少年と番号少女と私

･ﾅﾏﾓﾉにつき、完全sage進行
･一般ﾌｧﾝの方に悟られて不快な思いはさせないように
人物名やバンド名などは伏せ字を推奨
･次ｽﾚを立てる場合は>>980さん辺りでお願いしたい気持ちです
･荒らし、厨、煽りは完全無視
もしもｽﾚが埋められてしまった場合には暫く様子を見てから
次ｽﾚを立てるようにしましょう
･自分の好きなｶﾌﾟ以外の話が出ても文句は言わない。
一つの考え方として受け入れましょう。

(´ρ`)？

前ｽﾚは残念ながら所在不明なので、誰か分かる方補足お願いします。

内藤　ちんこ

内藤　ちんこ

内藤　ちんこ

内藤　ちんこ

前スレはアッと言う間に埋まりました・・・ね・・・

今度こそ餡ソロなどのお話ができますように

江利奈

tomo

ゆーいち

ゆーいち

ゆーいち

ゆーいち

ゆーいち

ゆーいち

ゆーいち

まだ爆撃中・・・？
とりあえず初代スレ
http://comic6.2ch.net/test/read.cgi/doujin/1052204244/

ゆーいち

江利奈

佐

凄い爆撃の標的にされてるね…

>>18さん�d！

佐

佐

佐

佐

佐

佐

佐

佐

佐

モンスター

(一般コミック) [あ] [荒木飛呂彦] ジョジョの奇妙な冒険 第６部(64-80完).zip,,0,0,f996f82b5a88bd4f2b766d3769fefbcc,1

【アルバム】 (2006.02.22) THE LOVE ROCKS DREAMS COME TRUE .zip.mp3.zip,,0,0,4bbd4348949268f332b2b332e418ce38,1

ゆーいち

ゆーいち

女子高生処女レイプビデオ（何度も何度も犯され・・）.mpg,,0,0,306624316c10e2cbaaf5557a0c2ab10a,1

ゆーいち

beatmania

ゆーいち

ゆーいち

ゆーいち

+20060224+ 1X-18禁ゲーム　age-CDI-060224-マブラヴオルタネイティヴ DVD-ROM版.part4.rar,,0,0,1cab156b2cf258c36dfff1d924a1e332,1

ゆーいち

ゆーいち

機動戦士Zガンダム�U 恋人たち [DVD 704x396 1h37m35s DivX5.2.1].avi,,0,0,f16c031b34110238b45bb6860b126951,1

ゆーいち

(一般コミック・雑誌) [ジャンプ] [2006-18] みえるひと 35.zip,,0,0,ba444cfbd586b006ec8b9c9d524a1778,1

ゆーいち

ジャンプ　2006-18

セフィリア

ゆーいち

ギミックス　-犬　-空想

ゆーいち

Natural 身も心も

ゆーいち

errors

bleach

東京ラバー

ミュウミュウ　CG　-Lolita

数日来なかったらいつの間にかスレ埋まっててビックリした。
爆撃凄いね…。

>>1さん乙です！

頑張って埋めてたのにこの爆撃には参りますなあ
いちおつ

>>1乙です！

ところでやっと記録映像を買ったんですが、皆さんのオススメシーンはどこでしょうか？
私はDVDデッキが壊れていたことが発覚してまだ見れてないんですが…orz
早く「僕はホモじゃありません！」聞きたいよ…

重複のどちらか削除してから話せよおまえら

こっち削除？
一応向こうのほうが先に立ってるけど。

ごめんなさいこっちが後なんで
仕事から帰宅したらこのｽﾚの削除依頼出します。

よく確認してから立てるべきだったと反省しとります。

お騒がせして本当に申し訳無い…！

ごめんなさい・・・今どこのスレで進んでるんですか？

ちょっとぐぐったら出てくるよ。ここのスレタイとかで。

>>68
ぐぐれば出るね
>>67じゃないけど探してたところだったんで、ありがとう。

難民の同人スレ全般
とくに交流スレとやらは想像を絶するキモさだった

嫌いカプスレ同じく
種の加賀理アンチここまでも工作してるのかヌゲー
ｷﾁｶﾞｲだなｗ
オカルト板までも来たらしいしすげーよ
VIPで暴れてる新巣てはなりきりだよな？あれもすげーよ
種って・・・

嫌いカプスレの叩き理由って
どのカプにでもあてはまりそうな事を
あげつらいすぎてて
あんたの好きなカプはどーなんだよｗと思ってしまうｗ

非８０１者の悩みスレ
叩かれキャラが好きな者スレ

同じ種類のウザさを感じる。自分を被害者だと思うのがそんなに楽しいのか。楽しいんだな。

闇スレ
人間不信に陥りそうだ

嫌いカプスレの叩き理由って
どのカプにでもあてはまりそうな事を
あげつらいすぎてて
あんたの好きなカプはどーなんだよｗと思ってしまうｗ

闇スレ
人間不信に陥りそうだ

嫌いカプスレ同じく
種の加賀理アンチここまでも工作してるのかヌゲー
ｷﾁｶﾞｲだなｗ
オカルト板までも来たらしいしすげーよ
VIPで暴れてる新巣てはなりきりだよな？あれもすげーよ
種って・・・

晒し系スレ

特に痛いのは、やってることはただの晒しなのに、愛でるとか評価とか、
ヲチはスレ違いとか私怨乙とか、「自分は良識あるスレ住人です」みたいなのが
いるところ。胸糞悪い。

私怨粘着まるだしなら、他人を傷つけることでしか満足できない心の貧しい
かわいそうな子なんだなですむが、晒しで傷つく人間がいることはわかっているはずなのに、
それでも晒しスレに常駐してるらしい無神経さや鈍感さにぞっとする。


それとも釣りなのか？トップ晒すなとか私怨乙とかほっといてやれとか、
晒しスレで言い合ってるのは釣りか？

難民の同人スレ全般
とくに交流スレとやらは想像を絶するキモさだった

にょろろ

g

てすと

あぼーん

Private Sub CommandButton1_Click()
WebBrowser1.Visible = True
WebBrowser1.Navigate "https://trade.kabu.livedoor.com/Login/0/imode/login_h"
Do While WebBrowser1.ReadyState <> 4
DoEvents
Loop
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
WebBrowser1.Document.forms(0).koza1.Value = ""
WebBrowser1.Document.forms(0).koza2.Value = ""
WebBrowser1.Document.forms(0).passwd.Value = ""

Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop

WebBrowser1.Document.forms(0).submit
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop

WebBrowser1.Navigate "https://trade.kabu.livedoor.com/IMode/0000067O/imode/sinyo/tukehyoji"
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
WebBrowser1.Refresh
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop

time10 = DateAdd("s", 1, Now())
Do While True
DoEvents
If time10 < Now() Then Exit Do '時刻のチェック
Loop

Range("BA10") = Mid(WebBrowser1.Document.Body.InnerText, 37, 15)
Label4 = Range("BA10")

End Sub

Private Sub CommandButton2_Click()
WebBrowser1.Navigate "https://trade.kabu.livedoor.com/IMode/0000067O/imode/sinyo/tukehyoji"
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
Range("BA10") = Left(WebBrowser1.Document.Body.InnerText, 5)
Label4 = Range("BA10")
If Range("BA10") = " ログイン" Then
Label4 = "未ログイン"
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
Else
WebBrowser1.Document.all.m.Value = Range("BB11")
WebBrowser1.Document.all.bbaiKbn.Item(1).Checked = True
WebBrowser1.Document.forms(0).suryo.Value = Range("BB13")
WebBrowser1.Document.forms(0).kakaku.Value = Range("BB15")
WebBrowser1.Document.all.nariSasiKbn.Item(1).Checked = True

If OptionButton1.Value = True Then
WebBrowser1.Document.forms(0).sijyokbn.Value = "1"
ElseIf (OptionButton2.Value = True) Then
WebBrowser1.Document.forms(0).sijyokbn.Value = "2"
End If
WebBrowser1.Document.forms(0).submit
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop


Range("BB10") = Mid(WebBrowser1.Document.Body.InnerText, 13, 10)
If Range("BB10") = "想定建玉金額が新規建" Then
Label4 = "保証金不足"
Else

Range("BB10") = Mid(WebBrowser1.Document.Body.InnerText, 13, 10)
If Range("BB10") = "ご指定の価格が値幅制" Then
Label4 = "価格入力エラー"
Else
Label4 = "空売り成功"

Range("BB10") = Mid(WebBrowser1.Document.Body.InnerText, 13, 10)
If Range("BB10") = "ご指定の銘柄は存在し" Then
Label4 = "銘柄なし"
Else
Label4 = "空売り成功"

WebBrowser1.Document.all.ok.Click
End If
End If
End If
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
AAA = WebBrowser1.Document.Links(0).href
WebBrowser1.Navigate (AAA)
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
Range("CM15") = Left(WebBrowser1.Document.URL, 200)
YK = InStr(WebBrowser1.Document.Body.InnerText, "状態：")
Spreadsheet1.Range("A2") = Mid(WebBrowser1.Document.Body.InnerText, YK + 3, 4)

Spreadsheet1.Range("D1") = Range("CM15")
Spreadsheet1.Range("A1") = Range("BB11")
Spreadsheet1.Range("B1") = Range("BB13")
Spreadsheet1.Range("C1") = Range("BB15")
Range("CM24") = Range("BB15")
Range("CL24") = Range("BB11")
End If
End Sub

=RSS|'N225'!前日終値

15850

=RSS|TOPX!前日比

Private Sub CommandButton4_Click()
If Spreadsheet1.Range("D1") = "" Then
WebBrowser1.Refresh
Else
BBB = Spreadsheet1.Range("D1")
WebBrowser1.Navigate (BBB)
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
YKG = InStr(WebBrowser1.Document.Body.InnerText, "状態：")
Spreadsheet1.Range("A2") = Mid(WebBrowser1.Document.Body.InnerText, YKG + 3, 4)
If Spreadsheet1.Range("A2") = "訂正中" Then
WebBrowser1.Refresh

Else
ddd = WebBrowser1.Document.Links(2).href
WebBrowser1.Navigate (ddd)
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
WebBrowser1.Document.all.ok.Click

Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
Spreadsheet1.Range("A1") = ""
Spreadsheet1.Range("A2") = ""
Spreadsheet1.Range("B1") = ""
Spreadsheet1.Range("C1") = ""
Spreadsheet1.Range("D1") = ""
End If
End If
End Sub

Private Sub CommandButton3_Click()

BBB = Spreadsheet1.Range("D1")
WebBrowser1.Navigate (BBB)
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop

Range("BC10") = Mid(WebBrowser1.Document.Body.InnerText, 41, 2)
If Range("BC10") = "前へ" Then
kkk = WebBrowser1.Document.Links(2).href
WebBrowser1.Navigate (kkk)
Else
CCC = WebBrowser1.Document.Links(1).href
WebBrowser1.Navigate (CCC)
End If
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
WebBrowser1.Document.all.afterNariSasiKbn.Item(1).Checked = True
WebBrowser1.Document.forms(0).tseiKingk.Value = Spreadsheet1.Range("C1")
WebBrowser1.Document.forms(0).submit

Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
WebBrowser1.Document.all.ok.Click
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
Label4 = "訂正成功"
ddd = WebBrowser1.Document.Links(0).href
WebBrowser1.Navigate (ddd)
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
YKK = InStr(WebBrowser1.Document.Body.InnerText, "状態：")
Spreadsheet1.Range("A2") = Mid(WebBrowser1.Document.Body.InnerText, YKK + 3, 4)
If Spreadsheet1.Range("A2") = "訂正中" Then
WebBrowser1.Refresh
Else

Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
End If
Range("CM15") = Left(WebBrowser1.Document.URL, 200)
Spreadsheet1.Range("D1") = Range("CM15")
End Sub

Private Sub CommandButton5_Click()

WebBrowser1.Visible = True

B = Spreadsheet1.Range("D1")
WebBrowser1.Navigate (B)

Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop

Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
WebBrowser1.Refresh
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop

time10 = DateAdd("s", 1, Now())
Do While True
DoEvents
If time10 < Now() Then Exit Do '時刻のチェック
Loop

Range("CM15") = Left(WebBrowser1.Document.URL, 200)
Spreadsheet1.Range("D1") = Range("CM15")
YKKK = InStr(WebBrowser1.Document.Body.InnerText, "状態：")
Spreadsheet1.Range("A2") = Mid(WebBrowser1.Document.Body.InnerText, YKKK + 3, 4)

End Sub

Range("CM15") = Left(WebBrowser1.Document.URL, 200)
Spreadsheet1.Range("D1") = Range("CM15")

Private Sub コードテキスト_Change()

End Sub

Private Sub 価格テキスト_Change()

End Sub

Private Sub SpinButton1_SpinDown()
If LD.価格テキスト.Value < 2000 Then
LD.価格テキスト.Value = LD.価格テキスト.Value - 1
End If
If LD.価格テキスト.Value < 3000 Then
If LD.価格テキスト.Value >= 2000 Then
LD.価格テキスト.Value = LD.価格テキスト.Value - 5
End If
End If
If 3000 <= LD.価格テキスト.Value Then
If 99900 > LD.価格テキスト.Value Then
LD.価格テキスト.Value = LD.価格テキスト.Value - 10
End If
End If

If LD.価格テキスト.Value = "" Then
LD.価格テキスト.Value = 0
End If
If 100000 <= LD.価格テキスト.Value Then
LD.価格テキスト.Value = LD.価格テキスト.Value - 1000
End If

End Sub

Private Sub SpinButton1_SpinUp()
If 2000 > LD.価格テキスト.Value Then
LD.価格テキスト.Value = LD.価格テキスト.Value + 1
End If

If LD.価格テキスト.Value < 3000 Then
If LD.価格テキスト.Value >= 2000 Then
LD.価格テキスト.Value = LD.価格テキスト.Value + 5
End If
End If

If 3000 <= LD.価格テキスト.Value Then
If 99900 > LD.価格テキスト.Value Then
LD.価格テキスト.Value = LD.価格テキスト.Value + 10
End If
End If
If LD.価格テキスト.Value = "" Then
LD.価格テキスト.Value = 0
End If
If 100000 < LD.価格テキスト.Value Then
LD.価格テキスト.Value = LD.価格テキスト.Value + 1000
End If

End Sub

Private Sub SpinButton2_SpinUp()
If LD.数量テキスト.Value < 100 Then
LD.数量テキスト.Value = LD.数量テキスト.Value + 1
End If
If LD.数量テキスト.Value < 1000 Then
If LD.数量テキスト.Value >= 100 Then
LD.数量テキスト.Value = LD.数量テキスト.Value + 100
End If
End If
If LD.数量テキスト.Value >= 1000 Then
LD.数量テキスト.Value = LD.数量テキスト.Value + 1000
End If

End Sub
Private Sub SpinButton2_SpinDown()

If LD.数量テキスト.Value < 100 Then
LD.数量テキスト.Value = LD.数量テキスト.Value - 1
End If
If LD.数量テキスト.Value >= 100 Then
If LD.数量テキスト.Value < 1000 Then
LD.数量テキスト.Value = LD.数量テキスト.Value - 100
End If
End If
If LD.数量テキスト.Value >= 1000 Then
LD.数量テキスト.Value = LD.数量テキスト.Value - 1000
End If

End Sub

Private Sub SpinButton2_SpinUp()
If LD.数量テキスト.Value < 100 Then
LD.数量テキスト.Value = LD.数量テキスト.Value + 1
End If
If LD.数量テキスト.Value < 1000 Then
If LD.数量テキスト.Value >= 100 Then
LD.数量テキスト.Value = LD.数量テキスト.Value + 100
End If
End If
If LD.数量テキスト.Value >= 1000 Then
LD.数量テキスト.Value = LD.数量テキスト.Value + 1000
End If

End Sub
Private Sub SpinButton2_SpinDown()

If LD.数量テキスト.Value < 100 Then
LD.数量テキスト.Value = LD.数量テキスト.Value - 1
End If
If LD.数量テキスト.Value >= 100 Then
If LD.数量テキスト.Value < 1000 Then
LD.数量テキスト.Value = LD.数量テキスト.Value - 100
End If
End If
If LD.数量テキスト.Value >= 1000 Then
LD.数量テキスト.Value = LD.数量テキスト.Value - 1000
End If

End Sub

Private Sub Spreadsheet1_BeforeContextMenu(ByVal X As Long, ByVal Y As Long, ByVal Menu As OWC10.ByRef, ByVal Cancel As OWC10.ByRef)

End Sub

Private Sub UserForm_Initialize()
Call 表示データ設定

End Sub
Sub EndEdit()

End Sub

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)

End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
コードテキスト.ControlSource = Sh.Name & "!CM2"
数量テキスト.ControlSource = Sh.Name & "!CM4"
価格テキスト.ControlSource = Sh.Name & "!CM6"
End Sub

Private Sub CommandButton14_Click()
WebBrowser1.Navigate "https://trade.kabu.livedoor.com/IMode/00002555/imode/m/m_shinyoukouza.htm"
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
AAA = WebBrowser1.Document.Links(1).href
WebBrowser1.Navigate (AAA)
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop

QQQ = InStr(WebBrowser1.Document.Body.InnerText, "特定")
Spreadsheet2.Range("A2") = Mid(WebBrowser1.Document.Body.InnerText, QQQ + 2, 1)
If Spreadsheet2.Range("A2") = ":" Then

BBB = WebBrowser1.Document.Links(0).href
WebBrowser1.Navigate (BBB)
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
TTT = InStr(WebBrowser1.Document.Body.InnerText, "建玉詳細")
Spreadsheet2.Range("A1") = Mid(WebBrowser1.Document.Body.InnerText, TTT + 10, 4)
Spreadsheet2.Range("B1") = Mid(WebBrowser1.Document.Body.InnerText, TTT + 15, 4)

UUU = InStr(WebBrowser1.Document.Body.InnerText, "建値")
VVV = InStr(WebBrowser1.Document.Body.InnerText, "円")
Spreadsheet2.Range("C1") = Mid(WebBrowser1.Document.Body.InnerText, UUU + 2, VVV - UUU - 2)

WWW = InStr(WebBrowser1.Document.Body.InnerHTML, "株数")
XXX = InStr(WebBrowser1.Document.Body.InnerHTML, "評価損益")
Spreadsheet2.Range("D1") = Mid(WebBrowser1.Document.Body.InnerHTML, WWW + 25, XXX - WWW - 32)

Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
AAA = WebBrowser1.Document.Links(0).href
WebBrowser1.Navigate (AAA)
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
ZZZ = Left(WebBrowser1.Document.URL, 200)
Spreadsheet2.Range("E1") = Left(WebBrowser1.Document.URL, 200)
Spreadsheet2.Range("B2") = ""

Else
Spreadsheet2.Range("A1") = ""
Spreadsheet2.Range("B1") = ""
Spreadsheet2.Range("C1") = ""
Spreadsheet2.Range("D1") = ""
Spreadsheet2.Range("B2") = "約定なし"
End If

End Sub

Private Sub CommandButton15_Click()
HHHH = Spreadsheet2.Range("E1")
WebBrowser1.Navigate (HHHH)
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop

WebBrowser1.Document.forms(0).suryo.Value = Spreadsheet2.Range("D1")
WebBrowser1.Document.forms(0).kakaku.Value = Spreadsheet2.Range("C1")
WebBrowser1.Document.all.nariSasiKbn.Item(1).Checked = True
WebBrowser1.Document.all.autotukeUrl.Click
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
Spreadsheet2.Range("A2") = Mid(WebBrowser1.Document.Body.InnerText, 35, 10)
If Spreadsheet2.Range("A2") = "ご指定の市場では数量" Then
Spreadsheet2.Range("A2") = "数量エラー"
Else
If Spreadsheet2.Range("A2") = "ご指定の市場および建" Then
Spreadsheet2.Range("A2") = "数量エラー"
Else
WebBrowser1.Document.all.ok.Click

Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
CCC = WebBrowser1.Document.Links(0).href
WebBrowser1.Navigate (CCC)
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop

LLL = InStr(WebBrowser1.Document.Body.InnerText, "状態：")
Spreadsheet2.Range("A2") = Mid(WebBrowser1.Document.Body.InnerText, LLL + 3, 4)

III = Left(WebBrowser1.Document.URL, 200)
Spreadsheet2.Range("E1") = Left(WebBrowser1.Document.URL, 200)
End If
End If
End Sub

Private Sub CommandButton16_Click()

WebBrowser1.Visible = True

B = Spreadsheet2.Range("E1")
WebBrowser1.Navigate (B)

Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
WebBrowser1.Refresh
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop

time10 = DateAdd("s", 1, Now())
Do While True
DoEvents
If time10 < Now() Then Exit Do '時刻のチェック
Loop

Spreadsheet2.Range("E1") = Left(WebBrowser1.Document.URL, 200)
LLL = InStr(WebBrowser1.Document.Body.InnerText, "状態：")
Spreadsheet2.Range("A2") = Mid(WebBrowser1.Document.Body.InnerText, LLL + 3, 4)
End Sub

Private Sub CommandButton17_Click()

BBB = Spreadsheet2.Range("E1")
WebBrowser1.Navigate (BBB)
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop

Spreadsheet2.Range("A2") = Mid(WebBrowser1.Document.Body.InnerText, 41, 2)
If Spreadsheet2.Range("A2") = "前へ" Then
kkk = WebBrowser1.Document.Links(2).href
WebBrowser1.Navigate (kkk)
Else
CCC = WebBrowser1.Document.Links(1).href
WebBrowser1.Navigate (CCC)
End If
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
WebBrowser1.Document.all.afterNariSasiKbn.Item(1).Checked = True
WebBrowser1.Document.forms(0).tseiKingk.Value = Spreadsheet2.Range("C1")
WebBrowser1.Document.forms(0).submit
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop

WebBrowser1.Document.all.ok.Click
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
CCC = WebBrowser1.Document.Links(0).href
WebBrowser1.Navigate (CCC)
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
LLL = InStr(WebBrowser1.Document.Body.InnerText, "状態：")
Spreadsheet2.Range("A2") = Mid(WebBrowser1.Document.Body.InnerText, LLL + 3, 4)

III = Left(WebBrowser1.Document.URL, 200)
Spreadsheet2.Range("E1") = Left(WebBrowser1.Document.URL, 200)


End Sub

Private Sub CommandButton18_Click()
WebBrowser1.Navigate "https://trade.kabu.livedoor.com/IMode/00002555/imode/m/m_shinyoukouza.htm"
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
AAA = WebBrowser1.Document.Links(1).href
WebBrowser1.Navigate (AAA)

Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
WebBrowser1.Refresh

time10 = DateAdd("s", 1, Now())
Do While True
DoEvents
If time10 < Now() Then Exit Do '時刻のチェック
Loop

If WebBrowser1.Document.Links.Length > 5 Then

Spreadsheet2.Range("A1") = ""
Spreadsheet2.Range("B1") = ""
Spreadsheet2.Range("C1") = ""
Spreadsheet2.Range("D1") = ""
Spreadsheet2.Range("E1") = ""

QQQ = InStr(WebBrowser1.Document.Body.InnerText, "特定")
Spreadsheet2.Range("A2") = Mid(WebBrowser1.Document.Body.InnerText, QQQ + 2, 1)
Else
Spreadsheet2.Range("B2") = "約定なし"
Spreadsheet2.Range("A2") = ""
End If

If Spreadsheet2.Range("A2") = ":" Then

BBB = WebBrowser1.Document.Links(1).href
WebBrowser1.Navigate (BBB)
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
TTT = InStr(WebBrowser1.Document.Body.InnerText, "建玉詳細")
Spreadsheet2.Range("A1") = Mid(WebBrowser1.Document.Body.InnerText, TTT + 10, 4)
Spreadsheet2.Range("B1") = Mid(WebBrowser1.Document.Body.InnerText, TTT + 15, 4)

UUU = InStr(WebBrowser1.Document.Body.InnerText, "建値")
VVV = InStr(WebBrowser1.Document.Body.InnerText, "円")
Spreadsheet2.Range("C1") = Mid(WebBrowser1.Document.Body.InnerText, UUU + 2, VVV - UUU - 2)

WWW = InStr(WebBrowser1.Document.Body.InnerHTML, "株数")
XXX = InStr(WebBrowser1.Document.Body.InnerHTML, "評価損益")
Spreadsheet2.Range("D1") = Mid(WebBrowser1.Document.Body.InnerHTML, WWW + 25, XXX - WWW - 32)

Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
AAA = WebBrowser1.Document.Links(0).href
WebBrowser1.Navigate (AAA)
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
ZZZ = Left(WebBrowser1.Document.URL, 200)
Spreadsheet2.Range("E1") = Left(WebBrowser1.Document.URL, 200)
Spreadsheet2.Range("B2") = ""
Else
Spreadsheet2.Range("A1") = ""
Spreadsheet2.Range("B1") = ""
Spreadsheet2.Range("C1") = ""
Spreadsheet2.Range("D1") = ""
Spreadsheet2.Range("E1") = ""
End If

End Sub

Private Sub CommandButton19_Click()
WebBrowser1.Navigate "https://trade.kabu.livedoor.com/IMode/00002555/imode/m/m_shinyoukouza.htm"
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop

AAA = WebBrowser1.Document.Links(1).href
WebBrowser1.Navigate (AAA)

Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
WebBrowser1.Refresh

time10 = DateAdd("s", 1, Now())
Do While True
DoEvents
If time10 < Now() Then Exit Do '時刻のチェック
Loop

If WebBrowser1.Document.Links.Length > 6 Then

Spreadsheet2.Range("A1") = ""
Spreadsheet2.Range("B1") = ""
Spreadsheet2.Range("C1") = ""
Spreadsheet2.Range("D1") = ""
Spreadsheet2.Range("E1") = ""

QQQ = InStr(WebBrowser1.Document.Body.InnerText, "特定")
Spreadsheet2.Range("A2") = Mid(WebBrowser1.Document.Body.InnerText, QQQ + 2, 1)

Else
Spreadsheet2.Range("B2") = "約定なし"
Spreadsheet2.Range("A2") = ""
End If

If Spreadsheet2.Range("A2") = ":" Then

BBB = WebBrowser1.Document.Links(2).href
WebBrowser1.Navigate (BBB)
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
TTT = InStr(WebBrowser1.Document.Body.InnerText, "建玉詳細")
Spreadsheet2.Range("A1") = Mid(WebBrowser1.Document.Body.InnerText, TTT + 10, 4)
Spreadsheet2.Range("B1") = Mid(WebBrowser1.Document.Body.InnerText, TTT + 15, 4)

UUU = InStr(WebBrowser1.Document.Body.InnerText, "建値")
VVV = InStr(WebBrowser1.Document.Body.InnerText, "円")
Spreadsheet2.Range("C1") = Mid(WebBrowser1.Document.Body.InnerText, UUU + 2, VVV - UUU - 2)

WWW = InStr(WebBrowser1.Document.Body.InnerHTML, "株数")
XXX = InStr(WebBrowser1.Document.Body.InnerHTML, "評価損益")
Spreadsheet2.Range("D1") = Mid(WebBrowser1.Document.Body.InnerHTML, WWW + 25, XXX - WWW - 32)

Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
AAA = WebBrowser1.Document.Links(0).href
WebBrowser1.Navigate (AAA)
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
ZZZ = Left(WebBrowser1.Document.URL, 200)
Spreadsheet2.Range("E1") = Left(WebBrowser1.Document.URL, 200)

Else
Spreadsheet2.Range("A1") = ""
Spreadsheet2.Range("B1") = ""
Spreadsheet2.Range("C1") = ""
Spreadsheet2.Range("D1") = ""
Spreadsheet2.Range("E1") = ""
End If
End Sub

Private Sub CommandButton22_Click()
WebBrowser1.Navigate "https://trade.kabu.livedoor.com/IMode/00002555/imode/m/m_shinyoukouza.htm"
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
AAA = WebBrowser1.Document.Links(1).href
WebBrowser1.Navigate (AAA)
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
WebBrowser1.Refresh
time10 = DateAdd("s", 1, Now())
Do While True
DoEvents
If time10 < Now() Then Exit Do '時刻のチェック
Loop
If WebBrowser1.Document.Links.Length > 7 Then
Spreadsheet2.Range("A1") = ""
Spreadsheet2.Range("B1") = ""
Spreadsheet2.Range("C1") = ""
Spreadsheet2.Range("D1") = ""
Spreadsheet2.Range("E1") = ""

QQQ = InStr(WebBrowser1.Document.Body.InnerText, "特定")

Spreadsheet2.Range("A2") = Mid(WebBrowser1.Document.Body.InnerText, QQQ + 2, 1)

Else
Spreadsheet2.Range("B2") = "約定なし"
Spreadsheet2.Range("A2") = ""
End If

If Spreadsheet2.Range("A2") = ":" Then

BBB = WebBrowser1.Document.Links(3).href
WebBrowser1.Navigate (BBB)
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
TTT = InStr(WebBrowser1.Document.Body.InnerText, "建玉詳細")
Spreadsheet2.Range("A1") = Mid(WebBrowser1.Document.Body.InnerText, TTT + 10, 4)
Spreadsheet2.Range("B1") = Mid(WebBrowser1.Document.Body.InnerText, TTT + 15, 4)

UUU = InStr(WebBrowser1.Document.Body.InnerText, "建値")
VVV = InStr(WebBrowser1.Document.Body.InnerText, "円")
Spreadsheet2.Range("C1") = Mid(WebBrowser1.Document.Body.InnerText, UUU + 2, VVV - UUU - 2)

WWW = InStr(WebBrowser1.Document.Body.InnerHTML, "株数")
XXX = InStr(WebBrowser1.Document.Body.InnerHTML, "評価損益")
Spreadsheet2.Range("D1") = Mid(WebBrowser1.Document.Body.InnerHTML, WWW + 25, XXX - WWW - 32)

Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
AAA = WebBrowser1.Document.Links(0).href
WebBrowser1.Navigate (AAA)
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
ZZZ = Left(WebBrowser1.Document.URL, 200)
Spreadsheet2.Range("E1") = Left(WebBrowser1.Document.URL, 200)
Else
Spreadsheet2.Range("A1") = ""
Spreadsheet2.Range("B1") = ""
Spreadsheet2.Range("C1") = ""
Spreadsheet2.Range("D1") = ""
Spreadsheet2.Range("E1") = ""
End If
End Sub

Private Sub CommandButton21_Click()

BBB = Spreadsheet2.Range("E1")
WebBrowser1.Navigate (BBB)
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop

Spreadsheet2.Range("A2") = Mid(WebBrowser1.Document.Body.InnerText, 41, 2)
If Spreadsheet2.Range("A2") = "前へ" Then
kkk = WebBrowser1.Document.Links(2).href
WebBrowser1.Navigate (kkk)
Else
CCC = WebBrowser1.Document.Links(2).href
WebBrowser1.Navigate (CCC)
End If
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop

WebBrowser1.Document.all.ok.Click
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
CCC = WebBrowser1.Document.Links(0).href
WebBrowser1.Navigate (CCC)
Do While WebBrowser1.ReadyState <> 4 '4の完了以外ループ
DoEvents
Loop
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
LLL = InStr(WebBrowser1.Document.Body.InnerText, "状態：")
Spreadsheet2.Range("A2") = Mid(WebBrowser1.Document.Body.InnerText, LLL + 3, 4)

III = Left(WebBrowser1.Document.URL, 200)
Spreadsheet2.Range("E1") = Left(WebBrowser1.Document.URL, 200)
Spreadsheet2.Range("A1") = ""
Spreadsheet2.Range("B1") = ""
Spreadsheet2.Range("C1") = ""
Spreadsheet2.Range("D1") = ""
Spreadsheet2.Range("E1") = ""

End Sub

Sub Macro4()
LD.Show
Dim LngRet As Long
LngRet = ShellExecute(0, vbNullString, "****", _
vbNullString, vbNullString, 1)
End Sub

Sub ie_test_click()

Dim objIE As Object 'ＩＥオブジェクト参照用

'インターネットエクスプローラーのオブジェクトを作る
Set objIE = CreateObject("InternetExplorer.application")

objIE.Visible = True '見えるようにする(お約束)
'文字列で指定したＵＲＬに飛ぶ
objIE.navigate "https://kabu.livedoor.com/login/input?ref=https://trade.kabu.livedoor.com/StockOrderManagement/00000000/kbodr/odr_yak/ichiran"

'表示終了まで待つ
Do While objIE.busy = True
'何もしないループ（笑）
DoEvents
Loop

'項目名を指定して、データをセットする
objIE.Document.all.koza1.Value = ""
objIE.Document.all.koza2.Value = ""
objIE.Document.all.passwd.Value = ""

objIE.Document.all.submit.Click

End Sub

Sub ie_go_ken3()

Dim objIE As Object 'ＩＥオブジェクト参照用

Set objIE = CreateObject("InternetExplorer.application")

objIE.Visible = True

objIE.navigate "https://trade.kabu.livedoor.com/StockOrderManagement/000006AQ/kbodr/kai_odr/hyji"

Do While objIE.busy = True
DoEvents
Loop

objIE.Document.all.meigCd.Value = "2536"
objIE.Document.all.suryo.Value = "1000"
objIE.Document.all.kakaku.Value = "4000"


Do While objIE.busy = True
DoEvents
Loop

IE.Document.all.sijo.Value = "1"
'End With
'submit?
End Sub

　

あ

age

http://www.kirin.co.jp/cgi-bin/otsumami/search/recipe.cgi?recipe_no=630
http://www.manma-miya.jp/recipe/0791/0791.html
http://www.mishimaph.co.jp/recipe/recipe_03.html
http://www.recipe.nestle.co.jp/recipe/1_99/00021.htm
http://www.hbc.jp/recipe/recipe/recipe166.html
http://www.daiei.jp/sukoyaka/recipe/s.cgi?md=rc&id=20030410

Private Declare Function APIBeep Lib "kernel32" Alias _
"Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long


Private Function uBeep(ByVal c As Boolean) As String
Const d2 As Long = 523
Const t As Long = 60000 / 120


If c Then
APIBeep d2, t
Else
uBeep = "orz"
End If


End Function

http://muimi.com/k/rakuten_rss/3/index.html#timer
楽天RSSの使い方3

Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

IE = GETACTIVEOLEOBJ("InternetExplorer.Application")
IE.visible = True
IE.navigate("https://trade.kabu.livedoor.com/Login/0/imode/login_h")
while True　　　　　　　　　　　　　　　　　　　　　　　// 接続表示待ち
if (! IE.busy) and (IE.readyState=4) then Break
sleep(0.1)
wend

IE.document.all.koza1.value = ""
IE.document.all.koza2.value = ""
IE.document.all.passwd.value = ""
IE.document.forms[0].elements[3].click()
while True　　　　　　　　　　　　　　　　　　　　　　　// 接続表示待ち
if (! IE.busy) and (IE.readyState=4) then Break
sleep(0.1)
wend
LAST_LINK = IE.document.links[1].href
IE.navigate(LAST_LINK)

while True　　　　　　　　　　　　　　　　　　　　　　　// 接続表示待ち
if (! IE.busy) and (IE.readyState=4) then Break
sleep(0.1)
wend
LAST_LINK = IE.document.links[2].href
IE.navigate(LAST_LINK)

IE = GETACTIVEOLEOBJ("InternetExplorer.Application")
IE.visible = True
IE.navigate("https://trade.kabu.livedoor.com/IMode/00009QFF/imode/sinyo/tukehyoji")
while True　　　　　　　　　　　　　　　　　　　　　　　// 接続表示待ち
if (! IE.busy) and (IE.readyState=4) then Break
sleep(0.1)
wend
EXCEL = GETACTIVEOLEOBJ("EXCEL.Application","C:\Documents and Settings\１２／１０.xls")
EXCEL.visible = True
POST_VALUE = EXCEL.RANGE("CM2").value
IE.document.all.m.value = POST_VALUE
IE.document.forms[0].elements[5].value= "1"
IE.document.all.bbaiKbn.1.click()
POST_VALUE = EXCEL.RANGE("CM4").value
IE.document.all.suryo.value = POST_VALUE
POST_VALUE = EXCEL.RANGE("CM6").value
IE.document.all.kakaku.value = POST_VALUE
IE.document.all.nariSasiKbn.1.click()
while True　　　　　　　　　　　　　　　　　　　　　　　// 接続表示待ち

if (! IE.busy) and (IE.readyState=4) then Break
sleep(0.1)
wend
IE.document.forms[0].elements[15].click()
while True　　　　　　　　　　　　　　　　　　　　　　　// 接続表示待ち
if (! IE.busy) and (IE.readyState=4) then Break
sleep(0.1)
wend
IE.document.all.ok.click()
while True　　　　　　　　　　　　　　　　　　　　　　　// 接続表示待ち
if (! IE.busy) and (IE.readyState=4) then Break
sleep(0.1)
wend
LAST_LINK = IE.document.links[0].href
IE.navigate(LAST_LINK)

while True　　　　　　　　　　　　　　　　　　　　　　　// 接続表示待ち
if (! IE.busy) and (IE.readyState=4) then Break
sleep(0.1)
wend　
SENDSTR(0, IE.document.URL)

EXCEL.Range("CM13").Select
EXCEL.Activesheet.Paste

SENDSTR(0, IE.document.body.innerHTML)
START = POS("次へ", GETSTR(0))
END = POS("執行条件", GETSTR(0))
DATA = COPY(GETSTR(0), START, END - START)
DATA = CHGMOJ(DATA, "次へ", "")
DATA = CHGMOJ(DATA, "執行条件", "")
SENDSTR(0, DATA)

START = POS(" ", GETSTR(0))
END = POS("<BR>", GETSTR(0),2)
BUN = COPY(GETSTR(0), START, END - START)
BUN = CHGMOJ(BUN, " ","")
BUN = CHGMOJ(BUN, "<BR>","",2)
SENDSTR(0, BUN)
EXCEL.Range("CL19").Select
EXCEL.ActiveSheet.Paste

SENDSTR(0, DATA)
START = POS("<DIV align=right>", GETSTR(0), 3)
END = POS("円</DIV>", GETSTR(0))
TANKA = COPY(GETSTR(0), START, END - START)
TANKA= CHGMOJ(TANKA, "<DIV align=right>","", 3)
TANKA = CHGMOJ(TANKA, "円</DIV>","")
SENDSTR(0, TANKA)
EXCEL.Range("CM19").Select
EXCEL.ActiveSheet.Paste

f (! IE.busy) and (IE.readyState=4) then Break
sleep(0.1)
wend
LAST_LINK = IE.document.links[0].href
IE.navigate(LAST_LINK)

while True　　　　　　　　　　　　　　　　　　　　　　　// 接続表示待ち
if (! IE.busy) and (IE.readyState=4) then Break
sleep(0.1)
wend　

IFB EXCEL.Range("CM19").value > 0

SENDSTR(0, IE.document.URL)

EXCEL.Range("CM14").Select
EXCEL.Activesheet.Paste

ELSE

SENDSTR(0, IE.document.URL)

EXCEL.Range("CM13").Select
EXCEL.Activesheet.Paste

ENDIF

IFB EXCEL.Range("CM19").value > 0

SENDSTR(0, IE.document.body.innerHTML)
START = POS("次へ", GETSTR(0))
END = POS("執行条件", GETSTR(0))
DATA = COPY(GETSTR(0), START, END - START)
DATA = CHGMOJ(DATA, "次へ", "")
DATA = CHGMOJ(DATA, "執行条件", "")
SENDSTR(0, DATA)

START = POS(" ", GETSTR(0))
END = POS("<BR>", GETSTR(0),2)
BUN = COPY(GETSTR(0), START, END - START)
BUN = CHGMOJ(BUN, " ","")
BUN = CHGMOJ(BUN, "<BR>","",2)
SENDSTR(0, BUN)
EXCEL.Range("CL22").Select
EXCEL.ActiveSheet.Paste

SENDSTR(0, DATA)
START = POS("<DIV align=right>", GETSTR(0), 3)
END = POS("円</DIV>", GETSTR(0))
TANKA = COPY(GETSTR(0), START, END - START)
TANKA= CHGMOJ(TANKA, "<DIV align=right>","", 3)
TANKA = CHGMOJ(TANKA, "円</DIV>","")
SENDSTR(0, TANKA)
EXCEL.Range("CM22").Select
EXCEL.ActiveSheet.Paste

SENDSTR(0, IE.document.body.innerHTML)
START = POS("注文執行時刻", GETSTR(0))
END = POS("口座区分", GETSTR(0))
DATA = COPY(GETSTR(0), START, END - START)
DATA = CHGMOJ(DATA, "注文執行時刻", "")
DATA = CHGMOJ(DATA, "口座区分", "")
SENDSTR(0, DATA)

START = POS("状態：", GETSTR(0))
END = POS("<BR>", GETSTR(0),3)
BUN = COPY(GETSTR(0), START, END - START)
BUN = CHGMOJ(BUN, "状態：","")
BUN = CHGMOJ(BUN, "<BR>","",3)
SENDSTR(0, BUN)
EXCEL.Range("CL14").Select
EXCEL.ActiveSheet.Paste

ELSE

SENDSTR(0, IE.document.body.innerHTML)
START = POS("次へ", GETSTR(0))
END = POS("執行条件", GETSTR(0))
DATA = COPY(GETSTR(0), START, END - START)
DATA = CHGMOJ(DATA, "次へ", "")
DATA = CHGMOJ(DATA, "執行条件", "")
SENDSTR(0, DATA)

START = POS(" ", GETSTR(0))
END = POS("<BR>", GETSTR(0),2)
BUN = COPY(GETSTR(0), START, END - START)
BUN = CHGMOJ(BUN, " ","")
BUN = CHGMOJ(BUN, "<BR>","",2)
SENDSTR(0, BUN)
EXCEL.Range("CL19").Select
EXCEL.ActiveSheet.Paste

SENDSTR(0, DATA)
START = POS("<DIV align=right>", GETSTR(0), 3)
END = POS("円</DIV>", GETSTR(0))
TANKA = COPY(GETSTR(0), START, END - START)
TANKA= CHGMOJ(TANKA, "<DIV align=right>","", 3)
TANKA = CHGMOJ(TANKA, "円</DIV>","")
SENDSTR(0, TANKA)
EXCEL.Range("CM19").Select
EXCEL.ActiveSheet.Paste

SENDSTR(0, IE.document.body.innerHTML)
START = POS("注文執行時刻", GETSTR(0))
END = POS("口座区分", GETSTR(0))
DATA = COPY(GETSTR(0), START, END - START)
DATA = CHGMOJ(DATA, "注文執行時刻", "")
DATA = CHGMOJ(DATA, "口座区分", "")
SENDSTR(0, DATA)

START = POS("状態：", GETSTR(0))
END = POS("<BR>", GETSTR(0),3)
BUN = COPY(GETSTR(0), START, END - START)
BUN = CHGMOJ(BUN, "状態：","")
BUN = CHGMOJ(BUN, "<BR>","",3)
SENDSTR(0, BUN)
EXCEL.Range("CL13").Select
EXCEL.ActiveSheet.Paste

ENDIF

Private Declare Function APIBeep Lib "kernel32" Alias _
"Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long


Private Function uBeep(ByVal c As Boolean) As String
Const d2 As Long = 523
Const t As Long = 60000 / 120


If c Then
APIBeep d2, t
Else
uBeep = "orz"
End If


End Function

専スレ必要なくらい人口いるのだろうかと思いつつ保守

ここもはやヲチ場でしかないよ…

http://sports9.2ch.net/test/read.cgi/budou/1157530344/l50

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
コードテキスト.ControlSource = Sh.Name & "!CM2"
数量テキスト.ControlSource = Sh.Name & "!CM4"
価格テキスト.ControlSource = Sh.Name & "!CM6"
End Sub

Worksheets("　大　証　").Range("AC50").Copy
Worksheets("　大　証　").Range("BB15") _
.PasteSpecial Paste:=xlPasteValues

スレタイにものすごく反応して来ました
同人と座禅とどっちも好きなひととしゃべれるかと思ったんだけど
残念だ・・・・

30 /名無しさん[1-30].jpg sage New! 2006/08/12(土) 20:45:26 ID:UcRk7ZuF0
ttp://www.yourfilehost.com/media.php?cat=video&file=loli012.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=loli013.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=loli014.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=loli015.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=loli016.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=loli017.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=loli018.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=loli019.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=loli020.wmv



31 /名無しさん[1-30].jpg sage New! 2006/08/12(土) 20:48:19 ID:UcRk7ZuF0
ttp://www.yourfilehost.com/media.php?cat=video&file=loli021.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=loli022.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=loli023.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=loli024.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=loli025.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=loli026.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=loli027.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=loli028.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=loli029.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=loli030.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=loli031.wmv

http://www.opticast.co.jp/cgi-bin/kessan.cgi
決算予定

http://www.honda.co.jp/helloyasai/yasai20shu/itigo.html

http://www.pref.nara.jp/nogyos/nousou/QA/11ichigo.saibai.htm
http://www.mctv.ne.jp/~cat/text/text1/ichigo.htm

http://blog.ofg.jp/?eid=519012

http://www.e-tohmatsu.com/ek/keyword/2005/key051118.shtml

http://www.opticast.co.jp/cgi-bin/tm/chart.cgi?code=3315

http://qr.nomura.co.jp/jp/frcnri/docs/200610_j.pdf

http://www.rakuten-sec.co.jp/ITS/fee/fe00_info_meigara.html
20万円以下無料対象外銘柄

元龍貴■２ｃｈ従業員武道板の覚せい剤中毒者
HN:Master Contact　逮捕する住所 大阪市中央区南船場1-14-7 アインズ南船場１F飲食店contact
【元龍貴の犯罪暦】★奈良県警吉野署熊代刑事を騙し誤認逮捕させ２ちゃんねる名誉毀損でっちあげ事件
http://sports9.2ch.net/test/read.cgi/budou/1105124092/68
★大阪府警此花警察署の取調べを馬鹿にした発言をし、警察に挑戦した事件
http://sports9.2ch.net/test/read.cgi/budou/1138783286/3
★道場見学者の名誉毀損動画作成２ｃｈ貼り付け販売事件（共犯者・合気万生道下津新地道場岩本総）
動画撮影した共犯者岩本総GINSA　http://www.2chan.net/test/read.cgi?bbs=wide&key=1136540626
★空手寸止め4級で天下無敵を名乗り詐欺の武道動画販売するも、ハッタリがばれイジメに会う。
http://sports9.2ch.net/test/read.cgi/noroma/1160779503/l50
http://sports9.2ch.net/test/read.cgi/budou/1160192948/
★ヤフー不正アクセス他人のサイトのプロフィール書き換え事件。
http://sports9.2ch.net/test/read.cgi/budou/1125624504/
★タイ旅行客騙しピンハネネコババ脅迫事件（被害者と口論するヤフートビ・栗島に化ける元龍貴）　
http://sports9.2ch.net/test/read.cgi/budou/1124191662/

真っ昼間少女になりたい

http://www43.tok2.com/home/mhoshina/market/mc_vocaburary.html##basis

東証 : 浮動株比率
http://www.tse.or.jp/topix/float/rate/index.html
東証 : 浮動株指数の導入について
http://www.tse.or.jp/news/200407/040723_b.html
[今週のトピックス]FPS-NET
http://www.fps-net.com/topics/1038.html

http://www.tse.or.jp/topix/float/yoryo.pdf

■覚せい剤大好き★どりーむろっじ阿部.将英の歌■
■逮捕する場所　神奈川県大和市中央 4-14-24-806 http://d-lodge.com/dream-t.html
■阿部.将英のネット詐欺用架空銀行口座 みずほ銀行蒲田支店（普）3160358アベマサヒデ
↓キン肉マンGO Fightのテーマソングで歌おう↓
http://chakumero.yahoo.co.jp/bin/search?kd=5&ca=1&id=8300
■２ｃｈで〜〜ニートをあつ〜め〜♪　騙し〜の〜〜マントラで稼〜ぐ〜♪　
インチ〜キ〜遠隔透視（霊視）♪２ちゃんの〜IP情報、つかってぇ〜〜〜♪
（※その秘密はここ）→　ttp://blog.mag2.com/m/log/0000056255
■★精神病人（呼〜び出し）★瞑想洗脳（オフ会）　霊能力、夢見させ〜〜♪
★薬物瞑想（ゲーンカク・幻覚） ★マントラ料金（ぼったくり）　
ＴＭ〜〜瞑想でぇ〜〜♪、騙されてる〜〜オタクが、カモ〜〜♪
おカネ〜〜を湯水のように〜〜〜使うから〜〜♪♪
阿部まーさひでー（将英）〜〜　（２ｃｈ）宗教板従業員〜〜♪
■＜リピート＞★ＴＭ瞑想（誹謗中傷し）フルフィルメントメント瞑想（洗脳）　
超能力夢見させ〜〜♪ 　★マントラ料金（ボッタクリ）ローンも組ませて（破産宣告）
お金ぇーーと、女に狂った〜〜ボブフィックス、師匠だから〜〜♪
金と〜マンコすることが〜〜♪　最優先なのさ〜　阿部.まーさひでー（将英〜）♪　
２ｃｈ従業員宗教板担当〜〜♪ 顔写真　ttp://d-lodge.com/dream-pro-1.html
────────＜どりーむろっじ内部告発の声＞─────────────
94 ：名無しさん＠３周年：2006/07/27(木) 23:49:00 ID:dq2OV3yn
阿部.将英って（フルフィルメント瞑想の）他の講師陣から総スカンくらってハブにされてやんのｗ　
しかもそのことをうらめしそうに自分のメーリングリストに流して他講師を中傷してやがる　本当に屑
本人はディクシャだのチャネリングだのすぐ手を出しては飽きてはポイで ディクシャも自分で
推奨して講師になりたいとまでいいながらディクシャが 「瞑想は必要ない」と いっているのを知ると
自分の商売があがったりになるのを恐れ 突然ディクシャは黒魔術といいはじめた最低な豚野郎だ

477 山師さん New! 2006/10/28(土) 15:12:31.75 ID:AfSuJpgk
>>475
http://www.rakuten-sec.co.jp/ITS/marketspeed/ms01_download_522.html
マーケットスピード　旧バージョンダウンロード

Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("BC15") = "1" Then
Dim LngRet As Long
LngRet = ShellExecute(0, vbNullString, "****.UWS", _
vbNullString, vbNullString, 1)
Else: Range("BC15") = "0"
End Sub

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Sub CommandButton1_Click()
sndPlaySound ThisWorkbook.Path & "\asa.wav", 0
End Sub

Private Sub CommandButton2_Click()
sndPlaySound ThisWorkbook.Path & "\asa.wav", 1
End Sub

Private Sub CommandButton3_Click()
sndPlaySound ThisWorkbook.Path & "\hiru.wav", 1
End Sub

http://live22x.2ch.net/test/read.cgi/liveradio/1162133009/

http://203.131.199.131:8100/daradio.m3u

https://post.tokyoipo.com/member/search_by_brand/index.php

http://www.momoya.co.jp/recipe/recipe/re0054.html

http://www2s.biglobe.ne.jp/~iryo/2vba/vba26d.html

http://www.mainichi-msn.co.jp/kurashi/fashion/news/20061107ddm013100122000c.html

http://manabow.com/qa/tob_kabu.html

http://www.ajiwai.com/otoko/make/kimu_fr.htm
http://oisiso.com/kimuti.html

http://www.ushikunuma.com/~sumii-sue/hashinonaikawa.htm
http://www.3361black.com/hashi/index.html
http://homepage2.nifty.com/katem/sumisuenewpage5.html
http://www3.alpha-net.ne.jp/users/tkyjnken/kd10.htm

https://www.release.tdnet.info/inbs/1b111a50_20061117.pdf

https://www.release.tdnet.info/inbs/I_main_00.html

ttp://www.yourfilehost.com/media.php?cat=video&file=monburan1.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=monburan2.wmv

527 ８００ ◆SKBexhoaxY sage 2006/11/19(日) 09:34:12 ID:s2yAN3ng0
ttp://www.yourfilehost.com/media.php?cat=video&file=monburan1.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=monburan2.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=paradise_service1.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=paradise_service2.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=paradise_service3.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=rhythm_play.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=and_sex.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=soap_sex.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=trousers_hole1.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=trousers_hole2.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=wife_play1.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=wife_play2.wmv

http://kabu.himawari-group.co.jp/trade/cfd/pdf/specification.pdf

一ノ瀬カレン
ttp://www.yourfilehost.com/media.php?cat=video&file=karen_1.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=karen_2.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=karen_3.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=karen_4.wmv

長谷川ひとみ
ttp://www.yourfilehost.com/media.php?cat=video&file=HITOMI1_001.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=HITOMI1_002.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=HITOMI1_003.wmv

Parade　vol.9　すぎはら美里
ttp://www.yourfilehost.com/media.php?cat=video&file=3324001.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=3217002.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=2917003.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=2303004.wmv

紅音ほたる
ttp://www.yourfilehost.com/media.php?cat=video&file=hotaru_akane_in_sugamo_part1.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=hotaru_akane_in_sugamo_part2.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=hotaru_akane_in_sugamo_part3.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=1548akane_hotaru_part1.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=4732akane_hotaru_part2.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=2420akane_hotaru_part3.wmv

紅音ほたる 続き
ttp://www.yourfilehost.com/media.php?cat=video&file=3254hotaru_akane_part1.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=958hotaru_akane_part2.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=653hotaru_akane_part1.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=4384hotaru_akane_part2.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=hotaru_akane_part1.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=hotaru_akane_part2.wmv

http://www.youtube.com/watch?v=32zMqGaqApg

http://www.youtube.com/watch?v=0X85GywAiPo&eurl=

Private Sub コードテキスト_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)

If Button = 2 Then
On Error Resume Next
Application.CommandBars("MyMenu").Delete
On Error GoTo 0
With Application.CommandBars.Add(Name:="MyMenu", Position:=msoBarPopup, _
temporary:=True)

'OnActionプロパティで先述の標準Moduleのマクロを登録します

With .Controls.Add(Type:=msoControlButton, temporary:=True)
.Caption = "訂正"
.FaceId = 21
.OnAction = "R_ClkCut"
End With

With .Controls.Add(Type:=msoControlButton, temporary:=True)
.Caption = "削除"
.FaceId = 19
.OnAction = "R_ClkCopy"
End With

.ShowPopup
.Delete
End With
End If
End Sub

長瀬愛
フェラではしっとりと亀頭を咥え込む。クンニで股間を濡らし。挿入では、女性上位で腰をグラインドする姿が最高！
ttp://liveu-50.vo.llnwd.net/flurl/mm6/new_media3/2006/12/6/FLURL-dot-com-209370_1207ad_1.wmv
ttp://liveu-11.vo.llnwd.net/flurl/mm6/new_media3/2006/12/6/FLURL-dot-com-209371_1207ad_2.wmv
ttp://liveu-52.vo.llnwd.net/flurl/mm6/new_media3/2006/12/6/FLURL-dot-com-209372_1207ad_3.wmv
ttp://liveu-53.vo.llnwd.net/flurl/mm6/new_media3/2006/12/6/FLURL-dot-com-209373_1207ad_4.wmv
ttp://liveu-55.vo.llnwd.net/flurl/mm6/new_media3/2006/12/6/FLURL-dot-com-209375_1207ad_5.wmv

http://www.yourfilehost.com/media.php?cat=video&file=moe_kimizima01.wmv
http://www.yourfilehost.com/media.php?cat=video&file=moe_kimizima02.wmv
http://www.yourfilehost.com/media.php?cat=video&file=moe_kimizima03.wmv
http://www.yourfilehost.com/media.php?cat=video&file=moe_kimizima04.wmv
http://www.yourfilehost.com/media.php?cat=video&file=moe_kimizima05.wmv
http://www.yourfilehost.com/media.php?cat=video&file=moe_kimizima06.wmv
http://www.yourfilehost.com/media.php?cat=video&file=moe_kimizima07.wmv

http://www.yourfilehost.com/media.php?cat=video&file=loli018.wmv
http://www.yourfilehost.com/media.php?cat=video&file=loli019.wmv
http://www.yourfilehost.com/media.php?cat=video&file=loli020.wmv
http://www.yourfilehost.com/media.php?cat=video&file=loli021.wmv
http://www.yourfilehost.com/media.php?cat=video&file=loli022.wmv
http://www.yourfilehost.com/media.php?cat=video&file=loli023.wmv
http://www.yourfilehost.com/media.php?cat=video&file=loli024.wmv
http://www.yourfilehost.com/media.php?cat=video&file=loli025.wmv
http://www.yourfilehost.com/media.php?cat=video&file=loli026.wmv
http://www.yourfilehost.com/media.php?cat=video&file=loli027.wmv
http://www.yourfilehost.com/media.php?cat=video&file=loli028.wmv
http://www.yourfilehost.com/media.php?cat=video&file=loli029.wmv
http://www.yourfilehost.com/media.php?cat=video&file=loli030.wmv
http://www.yourfilehost.com/media.php?cat=video&file=loli031.wmv

立花里子
ttp://www.yourfilehost.com/media.php?cat=video&file=ooh_rp01.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=1501ooh_rp02.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=ooh_rp03.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=ooh_rp04.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=2902ooh_rp05.wmv