5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

座禅少年と番号少女と私

1 :くっく:2006/04/07(金) 08:54:14 ID:ihsYa+UB
・ナマモノにつき、完全sage進行
・一般ファンの方に悟られて不快な思いはさせないように
人物名やバンド名などは伏せ字を推奨
・次スレを立てる場合は>>980さん辺りでお願いしたい気持ちです
・荒らし、厨、煽りは完全無視
もしもスレが埋められてしまった場合には暫く様子を見てから
次スレを立てるようにしましょう
・自分の好きなカプ以外の話が出ても文句は言わない。
一つの考え方として受け入れましょう。

2 :名無しさん@どーでもいいことだが。:2006/04/07(金) 08:56:23 ID:TiCk3/P0
(´ρ`)?

3 ::2006/04/07(金) 09:02:41 ID:ihsYa+UB
前スレは残念ながら所在不明なので、誰か分かる方補足お願いします。

4 :名無しさん@どーでもいいことだが。:2006/04/07(金) 09:54:34 ID:SwKLMVow
内藤 ちんこ

5 :名無しさん@どーでもいいことだが。:2006/04/07(金) 10:03:05 ID:SwKLMVow
内藤 ちんこ

6 :名無しさん@どーでもいいことだが。:2006/04/07(金) 10:10:46 ID:SwKLMVow
内藤 ちんこ

7 :名無しさん@どーでもいいことだが。:2006/04/07(金) 10:16:21 ID:SwKLMVow
内藤 ちんこ

8 :名無しさん@どーでもいいことだが。:2006/04/07(金) 11:19:11 ID:tTBXlQwv
前スレはアッと言う間に埋まりました・・・ね・・・

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

9 :名無しさん@どーでもいいことだが。:2006/04/07(金) 11:21:38 ID:donz4hNC
江利奈

10 :名無しさん@どーでもいいことだが。:2006/04/07(金) 13:17:37 ID:IrXlSeTy
tomo

11 :名無しさん@どーでもいいことだが。:2006/04/07(金) 13:45:07 ID:sCjeblW4
ゆーいち

12 :名無しさん@どーでもいいことだが。:2006/04/07(金) 13:48:37 ID:sCjeblW4
ゆーいち

13 :名無しさん@どーでもいいことだが。:2006/04/07(金) 13:52:05 ID:sCjeblW4
ゆーいち

14 :名無しさん@どーでもいいことだが。:2006/04/07(金) 13:55:33 ID:sCjeblW4
ゆーいち

15 :名無しさん@どーでもいいことだが。:2006/04/07(金) 14:02:29 ID:sCjeblW4
ゆーいち

16 :名無しさん@どーでもいいことだが。:2006/04/07(金) 14:04:33 ID:sCjeblW4
ゆーいち

17 :名無しさん@どーでもいいことだが。:2006/04/07(金) 14:11:29 ID:sCjeblW4
ゆーいち

18 :名無しさん@どーでもいいことだが。:2006/04/07(金) 14:13:39 ID:ZKZ7KAEg
まだ爆撃中・・・?
とりあえず初代スレ
http://comic6.2ch.net/test/read.cgi/doujin/1052204244/

19 :名無しさん@どーでもいいことだが。:2006/04/07(金) 14:14:58 ID:sCjeblW4
ゆーいち

20 :名無しさん@どーでもいいことだが。:2006/04/07(金) 14:51:56 ID:f1nOncrP
江利奈

21 :名無しさん@どーでもいいことだが。:2006/04/07(金) 14:53:54 ID:f1nOncrP


22 :名無しさん@どーでもいいことだが。:2006/04/07(金) 14:54:47 ID:ihsYa+UB
凄い爆撃の標的にされてるね…

>>18さんd!

23 :名無しさん@どーでもいいことだが。:2006/04/07(金) 14:58:48 ID:f1nOncrP


24 :名無しさん@どーでもいいことだが。:2006/04/07(金) 15:02:17 ID:f1nOncrP


25 :名無しさん@どーでもいいことだが。:2006/04/07(金) 15:05:46 ID:f1nOncrP


26 :名無しさん@どーでもいいことだが。:2006/04/07(金) 15:09:16 ID:f1nOncrP


27 :名無しさん@どーでもいいことだが。:2006/04/07(金) 15:11:20 ID:f1nOncrP


28 :名無しさん@どーでもいいことだが。:2006/04/07(金) 15:14:50 ID:f1nOncrP


29 :名無しさん@どーでもいいことだが。:2006/04/07(金) 15:18:58 ID:f1nOncrP


30 :名無しさん@どーでもいいことだが。:2006/04/07(金) 15:24:34 ID:f1nOncrP


31 :名無しさん@どーでもいいことだが。:2006/04/07(金) 15:28:03 ID:f1nOncrP


32 :名無しさん@どーでもいいことだが。:2006/04/07(金) 16:25:56 ID:PlqzMVEn
モンスター

33 :名無しさん@どーでもいいことだが。:2006/04/07(金) 16:29:27 ID:PlqzMVEn
(一般コミック) [あ] [荒木飛呂彦] ジョジョの奇妙な冒険 第6部(64-80完).zip,,0,0,f996f82b5a88bd4f2b766d3769fefbcc,1

34 :名無しさん@どーでもいいことだが。:2006/04/07(金) 16:32:11 ID:PlqzMVEn
【アルバム】 (2006.02.22) THE LOVE ROCKS DREAMS COME TRUE .zip.mp3.zip,,0,0,4bbd4348949268f332b2b332e418ce38,1

35 :名無しさん@どーでもいいことだが。:2006/04/07(金) 19:01:02 ID:40Q9Wv7K
ゆーいち

36 :名無しさん@どーでもいいことだが。:2006/04/07(金) 19:04:31 ID:40Q9Wv7K
ゆーいち

37 :名無しさん@どーでもいいことだが。:2006/04/07(金) 19:07:17 ID:OdHmTt1h
女子高生処女レイプビデオ(何度も何度も犯され・・).mpg,,0,0,306624316c10e2cbaaf5557a0c2ab10a,1

38 :名無しさん@どーでもいいことだが。:2006/04/07(金) 19:07:37 ID:40Q9Wv7K
ゆーいち

39 :名無しさん@どーでもいいことだが。:2006/04/07(金) 19:10:46 ID:OdHmTt1h
beatmania

40 :名無しさん@どーでもいいことだが。:2006/04/07(金) 19:11:06 ID:40Q9Wv7K
ゆーいち

41 :名無しさん@どーでもいいことだが。:2006/04/07(金) 19:14:36 ID:40Q9Wv7K
ゆーいち

42 :名無しさん@どーでもいいことだが。:2006/04/07(金) 19:16:40 ID:40Q9Wv7K
ゆーいち

43 :名無しさん@どーでもいいことだが。:2006/04/07(金) 19:17:51 ID:OdHmTt1h
+20060224+ 1X-18禁ゲーム age-CDI-060224-マブラヴオルタネイティヴ DVD-ROM版.part4.rar,,0,0,1cab156b2cf258c36dfff1d924a1e332,1

44 :名無しさん@どーでもいいことだが。:2006/04/07(金) 19:20:09 ID:40Q9Wv7K
ゆーいち

45 :名無しさん@どーでもいいことだが。:2006/04/07(金) 19:23:39 ID:40Q9Wv7K
ゆーいち

46 :名無しさん@どーでもいいことだが。:2006/04/07(金) 19:25:00 ID:OdHmTt1h
機動戦士ZガンダムU 恋人たち [DVD 704x396 1h37m35s DivX5.2.1].avi,,0,0,f16c031b34110238b45bb6860b126951,1

47 :名無しさん@どーでもいいことだが。:2006/04/07(金) 19:27:08 ID:40Q9Wv7K
ゆーいち

48 :名無しさん@どーでもいいことだが。:2006/04/07(金) 19:28:09 ID:WFhnt2Hb
(一般コミック・雑誌) [ジャンプ] [2006-18] みえるひと 35.zip,,0,0,ba444cfbd586b006ec8b9c9d524a1778,1

49 :名無しさん@どーでもいいことだが。:2006/04/07(金) 19:30:37 ID:40Q9Wv7K
ゆーいち

50 :名無しさん@どーでもいいことだが。:2006/04/07(金) 19:32:39 ID:OdHmTt1h
ジャンプ 2006-18

51 :名無しさん@どーでもいいことだが。:2006/04/07(金) 19:33:05 ID:WFhnt2Hb
セフィリア

52 :名無しさん@どーでもいいことだが。:2006/04/07(金) 19:34:06 ID:40Q9Wv7K
ゆーいち

53 :名無しさん@どーでもいいことだが。:2006/04/07(金) 19:36:33 ID:WFhnt2Hb
ギミックス -犬 -空想

54 :名無しさん@どーでもいいことだが。:2006/04/07(金) 19:37:35 ID:40Q9Wv7K
ゆーいち

55 :名無しさん@どーでもいいことだが。:2006/04/07(金) 19:40:02 ID:WFhnt2Hb
Natural 身も心も

56 :名無しさん@どーでもいいことだが。:2006/04/07(金) 19:41:04 ID:40Q9Wv7K
ゆーいち

57 :名無しさん@どーでもいいことだが。:2006/04/07(金) 19:43:31 ID:WFhnt2Hb
errors

58 :名無しさん@どーでもいいことだが。:2006/04/07(金) 19:45:15 ID:40Q9Wv7K
bleach

59 :名無しさん@どーでもいいことだが。:2006/04/07(金) 19:47:00 ID:WFhnt2Hb
東京ラバー

60 :名無しさん@どーでもいいことだが。:2006/04/07(金) 19:50:36 ID:WFhnt2Hb
ミュウミュウ CG -Lolita

61 :名無しさん@どーでもいいことだが。:2006/04/08(土) 00:28:27 ID:HmHqFXrs
数日来なかったらいつの間にかスレ埋まっててビックリした。
爆撃凄いね…。

>>1さん乙です!

62 :名無しさん@どーでもいいことだが。:2006/04/09(日) 00:27:45 ID:Hzr3g67+
頑張って埋めてたのにこの爆撃には参りますなあ
いちおつ

63 :名無しさん@どーでもいいことだが。:2006/04/09(日) 10:29:21 ID:ayjGyeHN
>>1乙です!

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

64 :名無しさん@どーでもいいことだが。:2006/04/10(月) 15:56:49 ID:UPTF7X06
重複のどちらか削除してから話せよおまえら

65 :名無しさん@どーでもいいことだが。:2006/04/10(月) 23:45:19 ID:wtrvyUsz
こっち削除?
一応向こうのほうが先に立ってるけど。


66 ::2006/04/11(火) 13:19:50 ID:rXi+78Sg
ごめんなさいこっちが後なんで
仕事から帰宅したらこのスレの削除依頼出します。

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

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

67 :名無しさん@どーでもいいことだが。:2006/04/17(月) 21:49:52 ID:1c88yffK
ごめんなさい・・・今どこのスレで進んでるんですか?

68 :名無しさん@どーでもいいことだが。:2006/04/21(金) 23:39:18 ID:Uek3Gjt9
ちょっとぐぐったら出てくるよ。ここのスレタイとかで。

69 :名無しさん@どーでもいいことだが。:2006/04/23(日) 12:14:59 ID:gtpE0Bwx
>>68
ぐぐれば出るね
>>67じゃないけど探してたところだったんで、ありがとう。

70 :名無しさん@どーでもいいことだが。:2006/04/29(土) 02:03:29 ID:89PXAwo/
難民の同人スレ全般
とくに交流スレとやらは想像を絶するキモさだった

71 :名無しさん@どーでもいいことだが。:2006/05/03(水) 11:21:34 ID:EbY9nxWb
嫌いカプスレ同じく
種の加賀理アンチここまでも工作してるのかヌゲー
キチガイだなw
オカルト板までも来たらしいしすげーよ
VIPで暴れてる新巣てはなりきりだよな?あれもすげーよ
種って・・・

72 :名無しさん@どーでもいいことだが。:2006/05/09(火) 09:27:14 ID:d9YActZL
嫌いカプスレの叩き理由って
どのカプにでもあてはまりそうな事を
あげつらいすぎてて
あんたの好きなカプはどーなんだよwと思ってしまうw

73 :名無しさん@どーでもいいことだが。:2006/05/11(木) 20:28:26 ID:wAWVDkkY
非801者の悩みスレ
叩かれキャラが好きな者スレ

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

74 :名無しさん@どーでもいいことだが。:2006/05/14(日) 06:50:29 ID:L6ks1kg8
闇スレ
人間不信に陥りそうだ

75 :名無しさん@どーでもいいことだが。:2006/05/16(火) 11:36:14 ID:Rz8yp0vL
嫌いカプスレの叩き理由って
どのカプにでもあてはまりそうな事を
あげつらいすぎてて
あんたの好きなカプはどーなんだよwと思ってしまうw

76 :名無しさん@どーでもいいことだが。:2006/05/17(水) 18:56:11 ID:4mr8kG0T
闇スレ
人間不信に陥りそうだ

77 :名無しさん@どーでもいいことだが。:2006/05/17(水) 19:24:25 ID:4mr8kG0T
嫌いカプスレ同じく
種の加賀理アンチここまでも工作してるのかヌゲー
キチガイだなw
オカルト板までも来たらしいしすげーよ
VIPで暴れてる新巣てはなりきりだよな?あれもすげーよ
種って・・・

78 :名無しさん@どーでもいいことだが。:2006/05/18(木) 20:34:37 ID:YiyQIGWC
晒し系スレ

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

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


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

79 :名前欄にスレ名入力推奨@自シ台スレ:2006/05/23(火) 22:40:37 ID:4FViEvce
難民の同人スレ全般
とくに交流スレとやらは想像を絶するキモさだった

80 : :2006/06/15(木) 03:14:52 ID:K5HWuE+B
にょろろ

81 : :2006/08/17(木) 10:09:39 ID:FV01F35n
g

82 :てs:2006/08/24(木) 20:21:30 ID:2gBNwriy
てすと

83 :あぼーん:あぼーん
あぼーん

84 :株板:2006/09/17(日) 14:47:43 ID:1cfEZmTZ
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



85 :株板:2006/09/17(日) 14:48:31 ID:1cfEZmTZ
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

86 :株板:2006/09/17(日) 15:50:58 ID:1cfEZmTZ
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


87 :株板:2006/09/17(日) 15:54:05 ID:1cfEZmTZ
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 = "空売り成功"

88 :株板:2006/09/17(日) 15:54:57 ID:1cfEZmTZ
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

89 :株板:2006/09/17(日) 15:58:31 ID:1cfEZmTZ
=RSS|'N225'!前日終値

90 :株板:2006/09/17(日) 15:59:13 ID:1cfEZmTZ
15850


91 :株板:2006/09/17(日) 16:08:09 ID:1cfEZmTZ
=RSS|TOPX!前日比

92 :株板:2006/09/17(日) 19:44:48 ID:1cfEZmTZ
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


93 :株板:2006/09/17(日) 19:45:48 ID:1cfEZmTZ
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

94 :株板:2006/09/17(日) 19:59:50 ID:1cfEZmTZ
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


95 :株板:2006/09/17(日) 20:02:45 ID:1cfEZmTZ
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


96 :株板:2006/09/17(日) 20:03:22 ID:1cfEZmTZ
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

97 :株板:2006/09/17(日) 20:08:28 ID:1cfEZmTZ
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

98 :株板:2006/09/17(日) 20:40:30 ID:1cfEZmTZ
Range("CM15") = Left(WebBrowser1.Document.URL, 200)
Spreadsheet1.Range("D1") = Range("CM15")

99 :奈々氏:2006/09/18(月) 12:34:31 ID:dx2yxble
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

100 :奈々氏:2006/09/18(月) 12:35:45 ID:dx2yxble
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


101 :奈々氏:2006/09/18(月) 12:39:20 ID:dx2yxble
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

102 :奈々氏:2006/09/18(月) 12:40:40 ID:dx2yxble
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

103 :奈々氏:2006/09/18(月) 12:49:18 ID:dx2yxble
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

104 :奈々氏:2006/09/18(月) 12:52:53 ID:dx2yxble
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
コードテキスト.ControlSource = Sh.Name & "!CM2"
数量テキスト.ControlSource = Sh.Name & "!CM4"
価格テキスト.ControlSource = Sh.Name & "!CM6"
End Sub

105 :奈々氏:2006/09/18(月) 13:03:28 ID:dx2yxble
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)

106 :奈々氏:2006/09/18(月) 13:04:58 ID:dx2yxble
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") = ""

107 :奈々氏:2006/09/18(月) 13:05:39 ID:dx2yxble

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

End Sub

108 :奈々氏:2006/09/18(月) 13:09:04 ID:dx2yxble
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

109 :奈々氏:2006/09/18(月) 13:10:31 ID:dx2yxble
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

110 :奈々氏:2006/09/18(月) 13:11:44 ID:dx2yxble
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

111 :奈々氏:2006/09/18(月) 13:13:45 ID:dx2yxble
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

112 :奈々氏:2006/09/18(月) 13:14:58 ID:dx2yxble
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

113 :奈々氏:2006/09/18(月) 13:16:26 ID:dx2yxble
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") = ""

114 :奈々氏:2006/09/18(月) 13:17:47 ID:dx2yxble
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)

115 :奈々氏:2006/09/18(月) 13:18:26 ID:dx2yxble
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

116 :奈々氏:2006/09/18(月) 14:57:33 ID:dx2yxble
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


117 :奈々氏:2006/09/18(月) 14:58:40 ID:dx2yxble
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


118 :奈々氏:2006/09/18(月) 15:00:48 ID:dx2yxble
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)


119 :奈々氏:2006/09/18(月) 15:02:05 ID:dx2yxble
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

120 :奈々氏:2006/09/18(月) 15:04:09 ID:dx2yxble
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") = ""


121 :奈々氏:2006/09/18(月) 15:04:40 ID:dx2yxble
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)


122 :奈々氏:2006/09/18(月) 15:06:08 ID:dx2yxble
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

123 :奈々氏:2006/09/18(月) 15:07:28 ID:dx2yxble
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


124 :奈々氏:2006/09/18(月) 15:08:31 ID:dx2yxble
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

125 :奈々氏:2006/09/18(月) 15:25:07 ID:dx2yxble
Sub Macro4()
LD.Show
Dim LngRet As Long
LngRet = ShellExecute(0, vbNullString, "****", _
vbNullString, vbNullString, 1)
End Sub

126 :奈々氏:2006/09/18(月) 21:26:29 ID:dx2yxble
Sub ie_test_click()

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

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

objIE.Visible = True '見えるようにする(お約束)
'文字列で指定したURLに飛ぶ
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




127 :奈々氏:2006/09/18(月) 21:30:59 ID:dx2yxble
Sub ie_go_ken3()

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

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

128 :_:2006/09/19(火) 17:10:13 ID:pUBXGKOb
 

129 ::2006/09/21(木) 11:18:42 ID:c26Cui59


130 : :2006/09/22(金) 04:37:12 ID:+y3qkGz0
age

131 :奈々氏:2006/09/22(金) 18:05:02 ID:VeoIwrif
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

132 :奈々氏:2006/09/23(土) 23:20:44 ID:NOiCPx8p

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

133 :奈々氏:2006/09/23(土) 23:21:16 ID:NOiCPx8p
http://muimi.com/k/rakuten_rss/3/index.html#timer
楽天RSSの使い方3

134 :奈々氏:2006/09/24(日) 00:28:22 ID:XWctjKyx
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

135 :奈々氏:2006/09/24(日) 14:12:17 ID:XWctjKyx
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)

136 :奈々氏:2006/09/24(日) 14:22:09 ID:XWctjKyx
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\12/10.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                       // 接続表示待ち




137 :奈々氏:2006/09/24(日) 14:23:09 ID:XWctjKyx
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

138 :奈々氏:2006/09/24(日) 14:23:57 ID:XWctjKyx
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

139 :奈々氏:2006/09/24(日) 15:54:53 ID:XWctjKyx
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




140 :奈々氏:2006/09/24(日) 15:55:55 ID:XWctjKyx
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


141 :奈々氏:2006/09/24(日) 15:56:52 ID:XWctjKyx
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



142 :奈々氏:2006/09/24(日) 15:57:25 ID:XWctjKyx
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


143 :奈々氏:2006/09/24(日) 15:57:55 ID:XWctjKyx

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

144 :奈々氏:2006/09/26(火) 21:19:01 ID:Kojy0KYN


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

145 :座禅番号:2006/09/27(水) 08:45:21 ID:1pfn7zDt
専スレ必要なくらい人口いるのだろうかと思いつつ保守

146 ::2006/09/27(水) 15:21:24 ID:sFuSn2zX
ここもはやヲチ場でしかないよ…

147 :だsdさ:2006/10/01(日) 22:22:53 ID:V4aoWhPQ
http://sports9.2ch.net/test/read.cgi/budou/1157530344/l50

148 :奈々氏:2006/10/02(月) 20:37:46 ID:xRd+JgYL
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
コードテキスト.ControlSource = Sh.Name & "!CM2"
数量テキスト.ControlSource = Sh.Name & "!CM4"
価格テキスト.ControlSource = Sh.Name & "!CM6"
End Sub

149 :奈々氏:2006/10/04(水) 11:24:49 ID:7OMID72I
Worksheets(" 大 証 ").Range("AC50").Copy
Worksheets(" 大 証 ").Range("BB15") _
.PasteSpecial Paste:=xlPasteValues

150 :むかい:2006/10/07(土) 01:45:46 ID:gQB4MsGP
スレタイにものすごく反応して来ました
同人と座禅とどっちも好きなひととしゃべれるかと思ったんだけど
残念だ・・・・

151 :1:2006/10/12(木) 00:22:36 ID:q7+2fdyg
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

152 :決算予定:2006/10/15(日) 18:37:05 ID:oYdg3kHl
http://www.opticast.co.jp/cgi-bin/kessan.cgi
決算予定

153 :いちご:2006/10/17(火) 21:14:12 ID:/QWJG20z
http://www.honda.co.jp/helloyasai/yasai20shu/itigo.html

154 :いちご:2006/10/17(火) 22:08:12 ID:/QWJG20z
http://www.pref.nara.jp/nogyos/nousou/QA/11ichigo.saibai.htm
http://www.mctv.ne.jp/~cat/text/text1/ichigo.htm

155 :game:2006/10/19(木) 22:50:48 ID:VFh1HPYZ
http://blog.ofg.jp/?eid=519012

156 :業績修正:2006/10/22(日) 00:12:00 ID:xUycNEZg
http://www.e-tohmatsu.com/ek/keyword/2005/key051118.shtml

157 :チャート:2006/10/23(月) 21:02:16 ID:MUAcxaNy
http://www.opticast.co.jp/cgi-bin/tm/chart.cgi?code=3315

158 :野村:2006/10/24(火) 22:31:54 ID:9b2P4h/t
http://qr.nomura.co.jp/jp/frcnri/docs/200610_j.pdf

159 :楽天:2006/10/25(水) 14:50:10 ID:GDTrRPWy
http://www.rakuten-sec.co.jp/ITS/fee/fe00_info_meigara.html
20万円以下無料対象外銘柄

160 :元龍貴■2ch従業員武道板の覚せい剤中毒者:2006/10/25(水) 19:09:25 ID:vRUg3Vrt
元龍貴■2ch従業員武道板の覚せい剤中毒者
HN:Master Contact 逮捕する住所 大阪市中央区南船場1-14-7 アインズ南船場1F飲食店contact
【元龍貴の犯罪暦】★奈良県警吉野署熊代刑事を騙し誤認逮捕させ2ちゃんねる名誉毀損でっちあげ事件
http://sports9.2ch.net/test/read.cgi/budou/1105124092/68
★大阪府警此花警察署の取調べを馬鹿にした発言をし、警察に挑戦した事件
http://sports9.2ch.net/test/read.cgi/budou/1138783286/3
★道場見学者の名誉毀損動画作成2ch貼り付け販売事件(共犯者・合気万生道下津新地道場岩本総)
動画撮影した共犯者岩本総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/


161 :なかケン:2006/10/26(木) 15:40:13 ID:jz/k6S30
真っ昼間少女になりたい

162 :専門用語簡単解説集:2006/10/27(金) 18:42:20 ID:ebnLRTFQ
http://www43.tok2.com/home/mhoshina/market/mc_vocaburary.html##basis

163 :Topix:2006/10/27(金) 21:28:40 ID:ebnLRTFQ
東証 : 浮動株比率
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

164 :Topix算出:2006/10/27(金) 22:03:52 ID:ebnLRTFQ
http://www.tse.or.jp/topix/float/yoryo.pdf

165 :■覚せい剤大好き☆どりーむろっじ阿部.将英の歌■ :2006/10/28(土) 13:05:55 ID:3KppgwVM
■覚せい剤大好き★どりーむろっじ阿部.将英の歌■
■逮捕する場所 神奈川県大和市中央 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
■2chで〜〜ニートをあつ〜め〜♪ 騙し〜の〜〜マントラで稼〜ぐ〜♪ 
インチ〜キ〜遠隔透視(霊視)♪2ちゃんの〜IP情報、つかってぇ〜〜〜♪
(※その秘密はここ)→ ttp://blog.mag2.com/m/log/0000056255
■★精神病人(呼〜び出し)★瞑想洗脳(オフ会) 霊能力、夢見させ〜〜♪
★薬物瞑想(ゲーンカク・幻覚) ★マントラ料金(ぼったくり) 
TM〜〜瞑想でぇ〜〜♪、騙されてる〜〜オタクが、カモ〜〜♪
おカネ〜〜を湯水のように〜〜〜使うから〜〜♪♪
阿部まーさひでー(将英)〜〜 (2ch)宗教板従業員〜〜♪
■<リピート>★TM瞑想(誹謗中傷し)フルフィルメントメント瞑想(洗脳) 
超能力夢見させ〜〜♪  ★マントラ料金(ボッタクリ)ローンも組ませて(破産宣告)
お金ぇーーと、女に狂った〜〜ボブフィックス、師匠だから〜〜♪
金と〜マンコすることが〜〜♪ 最優先なのさ〜 阿部.まーさひでー(将英〜)♪ 
2ch従業員宗教板担当〜〜♪ 顔写真 ttp://d-lodge.com/dream-pro-1.html
────────<どりーむろっじ内部告発の声>─────────────
94 :名無しさん@3周年:2006/07/27(木) 23:49:00 ID:dq2OV3yn
阿部.将英って(フルフィルメント瞑想の)他の講師陣から総スカンくらってハブにされてやんのw 
しかもそのことをうらめしそうに自分のメーリングリストに流して他講師を中傷してやがる 本当に屑
本人はディクシャだのチャネリングだのすぐ手を出しては飽きてはポイで ディクシャも自分で
推奨して講師になりたいとまでいいながらディクシャが 「瞑想は必要ない」と いっているのを知ると
自分の商売があがったりになるのを恐れ 突然ディクシャは黒魔術といいはじめた最低な豚野郎だ

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

167 :ノーモーション:2006/10/29(日) 20:49:02 ID:Pv8peMBh
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

168 :音声:2006/10/29(日) 21:05:20 ID:Pv8peMBh
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


169 :ラジオ:2006/10/30(月) 00:11:08 ID:o5nM8N75
http://live22x.2ch.net/test/read.cgi/liveradio/1162133009/

170 :ラジオ:2006/10/30(月) 00:11:58 ID:o5nM8N75
http://203.131.199.131:8100/daradio.m3u

171 :適時開示:2006/10/31(火) 23:51:52 ID:vUExCTLZ
https://post.tokyoipo.com/member/search_by_brand/index.php

172 :キムチ:2006/11/03(金) 14:48:44 ID:KTbCc8vJ
http://www.momoya.co.jp/recipe/recipe/re0054.html

173 :エクセルイベント:2006/11/03(金) 21:36:35 ID:KTbCc8vJ
http://www2s.biglobe.ne.jp/~iryo/2vba/vba26d.html

174 :ジーンズ:2006/11/07(火) 15:28:32 ID:poUb+Cz0
http://www.mainichi-msn.co.jp/kurashi/fashion/news/20061107ddm013100122000c.html

175 :TOB:2006/11/11(土) 00:07:58 ID:g2/tm2xk
http://manabow.com/qa/tob_kabu.html

176 :キムチ:2006/11/12(日) 17:15:36 ID:RKLZaXeL
http://www.ajiwai.com/otoko/make/kimu_fr.htm
http://oisiso.com/kimuti.html

177 :橋のない川:2006/11/16(木) 16:12:05 ID:f08iBc5a
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

178 :8543:2006/11/19(日) 19:40:17 ID:uqUlcVSw
https://www.release.tdnet.info/inbs/1b111a50_20061117.pdf

179 :適時:2006/11/19(日) 19:41:32 ID:uqUlcVSw
https://www.release.tdnet.info/inbs/I_main_00.html

180 :AV:2006/11/19(日) 21:27:45 ID:uqUlcVSw
ttp://www.yourfilehost.com/media.php?cat=video&file=monburan1.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=monburan2.wmv

181 :AV:2006/11/20(月) 15:49:41 ID:RCMT03sc
527 800 ◆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

182 :225:2006/11/21(火) 23:27:46 ID:2K7Ap/Gz
http://kabu.himawari-group.co.jp/trade/cfd/pdf/specification.pdf

183 :AV:2006/11/23(木) 00:36:24 ID:s3hsp+0+
一ノ瀬カレン
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

184 :AV:2006/11/23(木) 16:42:06 ID:s3hsp+0+
長谷川ひとみ
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

185 :AV:2006/11/24(金) 15:40:46 ID:QPskIFng
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


186 :AV:2006/11/24(金) 20:55:14 ID:QPskIFng
紅音ほたる
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

187 :鳥肌:2006/11/25(土) 21:51:30 ID:z6vDHyFQ
http://www.youtube.com/watch?v=32zMqGaqApg

188 :ロデオ:2006/11/30(木) 00:16:43 ID:+LvrpcbU
http://www.youtube.com/watch?v=0X85GywAiPo&eurl=

189 :右クリック:2006/12/06(水) 22:08:01 ID:9r19uaTt
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

190 :AV:2006/12/10(日) 20:38:12 ID:Xu5gQxX8
長瀬愛
フェラではしっとりと亀頭を咥え込む。クンニで股間を濡らし。挿入では、女性上位で腰をグラインドする姿が最高!
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

191 :AV:2006/12/19(火) 21:22:53 ID:GY+iZYNy
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

192 :AVピチT:2006/12/27(水) 21:45:16 ID:j9bU6Yjg0
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

193 :AV:2006/12/28(木) 16:52:22 ID:MbiX+25K0
立花里子
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

77 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)