銭湯での風変わりな注意、禁止事項
1 :|男|名無し湯|女| :2006/10/27(金) 07:30:56 ID:KQab+oA3.net 「刺青を入れた人の入場禁止」、「酒に酔った人の入浴禁止」などはあるけど。
2 :|男|名無し湯|女| :2006/10/27(金) 07:40:23 ID:axx+ir5P.net 浴場内でのオナニー禁止とかあるね
3 :|男|名無し湯|女| :2006/10/28(土) 01:44:44 ID:aTr/1yRv.net 「当店のイメージを損なう方は入場をお断りします」っていうの見たことある。
4 :|男|名無し湯|女| :2006/10/29(日) 16:15:54 ID:w+2/5rHC.net >>3 幸薄そうな風格だとは入れないとかw
5 :|男|名無し湯|女| :2006/10/31(火) 10:43:53 ID:u8mZNG+o.net 風呂の中で入れ歯を洗わないで下さい。って見たことがある。
6 :|男|名無し湯|女| :2006/11/18(土) 21:52:27 ID:aCKxuy6M.net 前隠して湯舟に入ったら怒られまちた
7 :|男|名無し湯|女| :2006/11/18(土) 21:56:24 ID:jFT1VCu+.net 同性愛者の入浴禁止…男湯限定
8 :|男|名無し湯|女| :2006/11/18(土) 22:08:26 ID:DGwOFZKm.net どこの銭湯か忘れたんだけど、多分、東京・江東区か墨田区ですが、 風呂場にコンビニ袋持参禁止と書いてあった。意味が未だにわからない。
9 :|男|名無し湯|女| :2006/11/18(土) 22:18:40 ID:4yLHXwB2.net 10年ほど前だが 「湯船で放尿しないでください」 の掲示があった。 カランでならいいのか?と思った。
10 :|男|名無し湯|女| :2006/11/18(土) 22:24:39 ID:/TGfwCWo.net 当店内での売春行為は禁止します。
11 :|男|名無し湯|女| :2006/12/26(火) 12:13:04 ID:JUCMSaxo.net 「使用済みのコンドームはゴミ入れに」っていうのがあった。
12 :|男|名無し湯|女| :2007/02/19(月) 15:52:26 ID:q/Pp+//k.net 過去ログ 座禅少年と番号少女と私 http://comic6.2ch.net/test/read.cgi/doujin/1144367654/ そろそろワムの詞を語るときが http://book4.2ch.net/test/read.cgi/poem/1168447666/
13 :|男|名無し湯|女| :2007/03/12(月) 01:26:13 ID:94Wm8QjO.net 「包茎の方の入場は固くお断りします」
14 :|男|名無し湯|女| :2007/03/12(月) 12:55:50 ID:FDO5h3O3.net 「親孝行しよう!」
15 :|男|名無し湯|女| :2007/04/17(火) 13:14:46 ID:NHWKIzTA.net 包茎の方は皮を剥かないで入ってください。
16 :|男|名無し湯|女| :2007/04/17(火) 14:15:29 ID:d2MTpkAv.net >>6 当たり前だろそんなの >>9 排水溝に直接ならOK、これも常識
17 :|男|名無し湯|女| :2007/04/17(火) 17:52:03 ID:ONZ8v/pO.net 「ホモ行為禁止」っていう張り紙があったよw
18 :|男|名無し湯|女| :2007/04/17(火) 19:28:03 ID:nx9BYMLS.net 「不潔な行為をしないこと」 不潔な行為ってどんだけ妄想してんだよ
19 :|男|名無し湯|女| :2007/04/17(火) 19:39:11 ID:ncOHufMm.net 「サウナを臭わせないで下さい」
20 :|男|名無し湯|女| :2007/04/17(火) 23:15:47 ID:d2MTpkAv.net 旅先の銭湯の湯の中で射精したことあるよ
21 :|男|名無し湯|女| :2007/04/18(水) 12:52:57 ID:VGnyvb35.net 何てことするの! 「浴槽内で射精しないでください」って貼り紙してあったでしょ。
22 :|男|名無し湯|女| :2007/04/18(水) 13:20:44 ID:Yh4Ch0ga.net 書いてないだろ普通 男湯に女が入ることは絶対にないんだから
23 :|男|名無し湯|女| :2007/04/18(水) 16:04:36 ID:un1WLquG.net 「ロシア人入店お断り」@北海道
24 :|男|名無し湯|女| :2007/04/19(木) 17:48:26 ID:ER6p7m/r.net 「体毛を剃らないでください」 宗教上定期的に体毛を剃る習慣のある異人さんがいるらしい
25 :|男|名無し湯|女| :2007/04/21(土) 13:05:41 ID:IpBmEqD8.net 打たせ湯に「危険!直接耳に当てないで下さい。鼓膜が破れ難聴になります。」
26 :|男|名無し湯|女| :2007/04/21(土) 22:28:05 ID:u4DXa3Wl.net お客様湯船でチンチンシュッシュッをしないでくださいませ
27 :|男|名無し湯|女| :2007/04/21(土) 23:03:59 ID:fpHPGu66.net 「サウナで気分が悪くなったときは非常ボタンを押して下さい」て書いてあったけど、そのボタンはサウナの外に有りましたよ。
28 :|男|名無し湯|女| :2007/05/05(土) 11:47:05 ID:ocsZVHOi.net 湯ただれはおきませんか?
29 :|男|名無し湯|女| :2007/05/23(水) 00:30:54 ID:kXPbDXYa.net ttp://www.yourfilehost.com/media.php?cat=video&file=122ai02.wmv
30 :|男|名無し湯|女| :2007/06/03(日) 12:57:07 ID:sDL6RNGl.net 250 /名無しさん[1-30].jpg sage 2007/06/02(土) 17:07:19 ID:SPxgOUNz0 yourfilehostブログ http://shane01.blog80.fc2.com/ http://umekobucya01.blog105.fc2.com/ http://bmworldr18.blog71.fc2.com/ http://yourfilehost58.blog90.fc2.com/ http://treasurehunter072.blog63.fc2.com/
31 :|男|名無し湯|女| :2007/06/03(日) 13:26:54 ID:sDL6RNGl.net ttp://www.yourfilehost.com/media.php?cat=video&file=yumddd010519_04.wmv ttp://www.yourfilehost.com/media.php?cat=video&file=tmt05.wmv
32 :|男|名無し湯|女| :2007/06/03(日) 17:05:57 ID:sDL6RNGl.net http://mixy.12.dtiblog.com/blog-category-97.html
33 :|男|名無し湯|女| :2007/06/06(水) 08:06:07 ID:D6f9WAtV.net http://www.jsf.co.jp/de/index.html 日証金
34 :|男|名無し湯|女| :2007/06/08(金) 23:44:02 ID:rrqKwbiy.net ttp://www.yourfilehost.com/media.php?cat=video&file=a070424.wmv ttp://www.yourfilehost.com/media.php?cat=video&file=517yua01.wmv ttp://www.yourfilehost.com/media.php?cat=video&file=509natumi02.wmv ttp://www.yourfilehost.com/media.php?cat=video&file=hmh01.wmv ttp://www.yourfilehost.com/media.php?cat=video&file=506nanpa01.wmv ttp://www.yourfilehost.com/media.php?cat=video&file=kkv01.wmv ttp://www.yourfilehost.com/media.php?cat=video&file=AD009_01.wmv
35 :エロ :2007/06/08(金) 23:44:13 ID:rrqKwbiy.net ttp://www.yourfilehost.com/media.php?cat=video&file=a070424.wmv ttp://www.yourfilehost.com/media.php?cat=video&file=517yua01.wmv ttp://www.yourfilehost.com/media.php?cat=video&file=509natumi02.wmv ttp://www.yourfilehost.com/media.php?cat=video&file=hmh01.wmv ttp://www.yourfilehost.com/media.php?cat=video&file=506nanpa01.wmv ttp://www.yourfilehost.com/media.php?cat=video&file=kkv01.wmv ttp://www.yourfilehost.com/media.php?cat=video&file=AD009_01.wmv
36 :エロ :2007/06/09(土) 00:19:16 ID:+5E0P29k.net ttp://www.yourfilehost.com/media.php?cat=video&file=lla01.wmv ttp://www.yourfilehost.com/media.php?cat=video&file=503ayumi01.wmv ttp://www.yourfilehost.com/media.php?cat=video&file=429hitomi01.wmv ttp://www.yourfilehost.com/media.php?cat=video&file=pos01.wmv ttp://www.yourfilehost.com/media.php?cat=video&file=aoisora_tekoki1.wmv ttp://www.yourfilehost.com/media.php?cat=video&file=bzm01.wmv ttp://shane01.blog80.fc2.com/page-17.html
37 :エロ :2007/06/09(土) 00:19:15 ID:+5E0P29k.net ttp://www.yourfilehost.com/media.php?cat=video&file=lla01.wmv ttp://www.yourfilehost.com/media.php?cat=video&file=503ayumi01.wmv ttp://www.yourfilehost.com/media.php?cat=video&file=429hitomi01.wmv ttp://www.yourfilehost.com/media.php?cat=video&file=pos01.wmv ttp://www.yourfilehost.com/media.php?cat=video&file=aoisora_tekoki1.wmv ttp://www.yourfilehost.com/media.php?cat=video&file=bzm01.wmv ttp://shane01.blog80.fc2.com/page-17.html
38 :エロ :2007/06/09(土) 00:36:33 ID:+5E0P29k.net ttp://www.yourfilehost.com/media.php?cat=video&file=428reina02.wmv ttp://www.yourfilehost.com/media.php?cat=video&file=3636.wmv ttp://www.yourfilehost.com/media.php?cat=video&file=akane_hotaru_exposure_part1.wmv
39 :エロ :2007/06/09(土) 00:42:29 ID:+5E0P29k.net ttp://www.yourfilehost.com/media.php?cat=video&file=tin01.wmv ttp://www.yourfilehost.com/media.php?cat=video&file=ANQ01.wmv
40 :エロ :2007/06/10(日) 20:52:31 ID:7WwuHsU6.net ttp://www.yourfilehost.com/media.php?cat=video&file=410yua01.wmv ttp://www.yourfilehost.com/media.php?cat=video&file=XV436__01.wmv ttp://shane01.blog80.fc2.com/page-42.html
41 :エロ :2007/06/10(日) 23:21:24 ID:7WwuHsU6.net ttp://shane01.blog80.fc2.com/page-50.html
42 :ままれーど :2007/06/19(火) 21:48:30 ID:YQCmnTa5.net http://shinjuya.com/marmalade2.htm http://www12.ocn.ne.jp/~nouen.h/cookingmarmalade.htm http://www.tcn.zaq.ne.jp/pound_cake/kitchen/mamaredo.htm http://www.h5.dion.ne.jp/~kibaru/marmarade.htm http://www.knossos.jp/dishes/recipes/marmaladehtm.htm http://www.soshisha.org/buppan/mikan/marmalade/marmalade.html http://blog.goo.ne.jp/yoyoino415/e/18201d11ae29d7b3afa6cd3f060bb98a
43 :えろ :2007/06/19(火) 23:45:17 ID:YQCmnTa5.net http://shane01.blog80.fc2.com/page-110.html
44 :3003 :2007/06/23(土) 13:57:52 ID:4UaPECxF.net 2006年6月28日 3,180 3,280 3,150 3,240 150,800 3,240 2006年6月27日 分割: 1株 -> 1.1株 2006年6月27日 3,200 3,230 3,140 3,200 193,500 3,200 2005年6月28日 1,920 1,920 1,895 1,911 129,900 1,737 2005年6月27日 分割: 1株 -> 1.1株 2005年6月27日 1,895 1,923 1,860 1,895 183,200 1,722 2004年6月28日 1,475 1,476 1,450 1,461 76,400 1,207 2004年6月25日 分割: 1株 -> 1.2株 2004年6月25日 1,413 1,475 1,412 1,461 104,700 1,207 2003年6月26日 1,318 1,318 1,250 1,289 9,100 887 2003年6月25日 分割: 1株 -> 1.2株 2003年6月25日 1,249 1,310 1,249 1,305 15,900 898
45 :|男|名無し湯|女| :2007/07/03(火) 23:17:24 ID:AXY555S7.net http://shane01.blog80.fc2.com/page-1.html
46 :|男|名無し湯|女| :2007/07/21(土) 15:50:04 ID:mtXbWDbY.net http://shane01.blog80.fc2.com/
47 :|男|名無し湯|女| :2007/07/24(火) 16:02:38 ID:qWUOF73O.net アズジェント
48 :|男|名無し湯|女| :2007/08/23(木) 20:04:47 ID:zZd1aAQy.net http://www.yourfilehost.com/media.php?cat=video&file=628yua03.wmv あいだゆあちゃんの騎乗位のエロさは異常(*゚∀゚)=3 ムッハー
49 :|男|名無し湯|女| :2007/08/24(金) 12:19:16 ID:vqirWikK.net http://shane01.blog80.fc2.com/page-55.html
50 :|男|名無し湯|女| :2007/08/24(金) 18:41:15 ID:vqirWikK.net http://www.yourfilehost.com/media.php?cat=video&file=ksnm_02.wmv http://www.yourfilehost.com/media.php?cat=video&file=rrkgirl.wmv http://www.yourfilehost.com/media.php?cat=video&file=ktaka01.wmv 1-3 http://www.yourfilehost.com/media.php?cat=video&file=skb_a_1.wmv
51 :|男|名無し湯|女| :2007/08/26(日) 01:07:06 ID:LM/oWUnz.net http://www.yourfilehost.com/media.php?cat=video&file=ebw_01.wmv
52 :|男|名無し湯|女| :2007/08/26(日) 11:45:30 ID:LM/oWUnz.net http://www.yourfilehost.com/media.php?cat=video&file=skg_1b3.wmv http://www.yourfilehost.com/media.php?cat=video&file=aht_18.wmv 18-22
53 :|男|名無し湯|女| :2007/08/30(木) 12:01:59 ID:/DQQWlrf.net 3 山師さん 2007/08/30(木) 07:14:09.34 ID:4tu1V2kn /ノ^, ^ヽ\ / (○) (○) ヽ / ⌒(__人__)⌒::: l ⊂ ̄ヽ_| |r┬-| | <_ノ_ \ `ー'´ / 日記帳に書いてろ ヽ ⌒, /____,、ノ / / (__/ ( ( ( ヽ__,\_,ヽ (_/(_/ 4 山師さん 2007/08/30(木) 07:14:30.34 ID:4tu1V2kn ___ ━┓ ___ ━┓ / ― \ ┏┛/ ―\ ┏┛ / (●) \ヽ ・. /ノ (●)\ ・ / (⌒ (●) /. | (●) ⌒)\ /  ̄ヽ__) / | (__ノ ̄ | /´ ___/ \ / | \ \ _ノ | | /´ `\ -------------------------------------- このスレはあなたにとって役に立ちましたか? ○ 非常に役にたった ○ 役にたった ○ どちらともいえない ○ 役に立たなかった ● 全く役にたたなかった
54 :|男|名無し湯|女| :2007/09/03(月) 18:29:11 ID:PiACO6tT.net ジェネリックメーカー 4555 沢井製薬 4553 東和薬品 4541 日医工 4554 富士製薬工業 参入企業 4539 日本ケミファ 2202 明治製菓 3407旭化成 4524森下仁丹 医薬品卸 7459 メディセオ・パルタックHD 8129 東邦薬品 9987 スズケン 2784 アルフレッサHD 調剤薬局 3341 日本調剤
55 :|男|名無し湯|女| :2007/09/11(火) 11:51:01 ID:G6eNW6P/.net http://shane01.blog80.fc2.com/
56 :|男|名無し湯|女| :2007/09/18(火) 00:04:54 ID:fKK18+Ap.net 623 /名無しさん[1-30].jpg sage New! 2007/09/15(土) 23:13:43 ID:gWPpsq5T0 IE使ってる奴でダウンロードボタンがなくなって涙目の人は↓の方法でたいがい落とせるよ。 たとえばhttp://www.yourfilehost.com/media.php?cat=video&file=sskanotomo54.wmv を落としたい時 @http://www.yourfilehost.com/downloadfile.php?cat=video&file= にファイル名のsskanotomo54.wmvをつける。 Ahttp://raw4.yourfilehost.com/raw/video/ に同じくファイル名をつける。 もちろん今までどおりwmvで落ちてきます。
57 :|男|名無し湯|女| :2007/09/29(土) 15:40:59 ID:YtGBV5Yd.net 参考資料 各国貯蓄対投資比率と、個人投資家に対する 2009年4月以降の各国の証券税制措置(左が譲渡益課税/右が配当課税) ☆=売買譲渡益税による年300万程度である場合の税率 日本(約11%) 一律【☆20%】/【20%】 イギリス(約14%) 一律【10%・☆20%・40%】/【10%か32.5%】 (※土地譲渡益などと合わせて8800ポンドが非課税) ドイツ(約20%) 長期【非課税】 短期-1年未満の場合【譲渡益の1/2について15〜45%※☆20%】/【25%】 (※ただし、年間譲渡益512ユーロ以下なら非課税) フランス(約27%) 長期【完全非課税】 短期-1年未満【☆16%】/【6.83〜48.09%】 アメリカ(約28%) 短期-1年未満【10〜35%※+地方税※☆18%程度※】/【0%か15%】 長期-1年以上【0%か15%※+地方税※】/【0%か15%】 ※州によって税率が違う(NYだと4%。ミシシッピ州では7%と高い) ※結局年間収益5万ドル程度であれば短期で税+地方税でも28%には満たない。 当然、長期の場合は殆どの地域では20%を超えることは無い(最高でも23%程度)。 中国(不明) 【☆免除(印紙税0.3%)】/【配当の1/2について20%】 香港行政特別区(不明) 【☆非課税(印紙税0.1%)】/【非課税】 シンガポール 【☆非課税※】 (※ただし【取引所以外売買では印紙税0.05%)】/【非課税】 韓国 コスダック上場銘柄【非課税※】/【16.5%】 ※売却時に有価証券取引税・非上場銘柄にはさらに10〜20%の譲渡税あり。
58 :|男|名無し湯|女| :2007/11/28(水) 08:41:41 ID:UhrN7uZo.net ?2BP(0) てす
59 :|男|名無し湯|女| :2007/12/11(火) 16:07:31 ID:BT9/6fmZ.net Yourfilehostの保存・ダウンロード 【例】 http://www.yourfilehost.com/media.php?cat=video&file=07220709_gksn01.wmv 赤色の部分を↓に置き換える http://38.119.88.64/downloadlink.php?cat=video&file= http://38.119.88.64/downloadlink.php?cat=video&file=07220709_gksn01.wmv 数字を入れて【Proceed to Download】を押す ダウンロード用のURLが生成されるので右クリックから【名前を付けてリンク先を保存】を選択する。
60 :|男|名無し湯|女| :2007/12/11(火) 16:12:06 ID:BT9/6fmZ.net http://38.119.88.64/downloadlink.php?cat=video&file= http://38.119.88.64/downloadlink.php?cat=video&file=
61 :|男|名無し湯|女| :2007/12/11(火) 16:23:39 ID:BT9/6fmZ.net http://38.119.88.64/downloadlink.php?cat=video&file=
62 :|男|名無し湯|女| :2007/12/11(火) 16:25:03 ID:BT9/6fmZ.net http://38.119.88.64/downloadlink.php?cat=video&file=
63 :優待データ :2007/12/11(火) 21:06:03 ID:BT9/6fmZ.net http://ir.nikkei.co.jp/irftp/data/tdnr2/home/oracle/00/2007/2b1b01b/2b1b01b0.pdf
64 :|男|名無し湯|女| :2007/12/11(火) 23:02:24 ID:BT9/6fmZ.net http://shane01.blog80.fc2.com/
65 :|男|名無し湯|女| :2007/12/12(水) 10:39:48 ID:KcIPlSN0.net スレ違い 死ね (ミミ、 ドガッ!! ,r‐'''ミ、tミ、 /#`)>>29-64 ブンッ! 〃 キミlキ、_,ノし/ 彡 / ∪∨ ∧V∧ {:. }i|!}i}! (´ 彡( ( 〈 ( ・∀)'`ミ j}lji}j} そ 彡 しヽ ,,) と _,.j|! ,jifjifj' (,_ 彡 / /'⌒) " ,ノメfメノ⌒ヽ(⌒\ ./ /(_,) ,イ彳メ" ゝ-' __,ィ彡彳'" "´´
66 :|男|名無し湯|女| :2007/12/19(水) 18:42:57 ID:EAojnqE0.net http://s10.kabu.co.jp/faq/qa.asp?qa=1259
67 :|男|名無し湯|女| :2007/12/19(水) 19:04:23 ID:EAojnqE0.net http://blog.netshoken.com/archives/28753059.html
68 :節税実践編 :2007/12/19(水) 19:07:17 ID:EAojnqE0.net http://jbbs.livedoor.jp/business/1944/storage/1090311026.html
69 :|男|名無し湯|女| :2007/12/23(日) 21:01:00 ID:Q7K+YiMa.net Sub Macro51() On Error GoTo Err: With ActiveWorkbook.Worksheets(ActiveWorkbook.ActiveSheet.Name) 行 = 1 Set xml = CreateObject("WinHttp.WinHttpRequest.5.1") Set doc = CreateObject("Microsoft.XMLDOM") 'メモ CreateObjectするより、参照設定で指定したほうが本当はいいかも。 doc.Async = False '非同期をやめる。つまり同期にする。 'シーケンス1 リダイレクト先を取得 A = xml.option(6) xml.option(6) = False '6=WinHttpRequestOption_EnableRedirects 'リダイレクトさせない URL = "https://sec-sso.gmo.jp/webservice/ws-redirect?u= " & .Cells(行, 3) xml.Open "GET", URL, False xml.send Debug.Print xml.responseText Location = xml.getResponseHeader("Location") 'リダイレクト先URLの取得 AA = InStr(Len("https://kabu.gmo.jp/sec "), Location, "/") 基底URL = Left(xml.getResponseHeader("Location"), AA - 1) xml.option(6) = True '6=WinHttpRequestOption_EnableRedirects '以後はリダイレクトをさせる
70 :|男|名無し湯|女| :2007/12/23(日) 21:01:44 ID:Q7K+YiMa.net 'シーケンス2 リダイレクト先へ飛んでセッションIDを取得 URL = Location xml.Open "GET", URL, False xml.send Debug.Print xml.responseText doc.loadXML (xml.responseText) If doc.documentElement.selectSingleNode("responseStatus").nodeTypedValue <> "OK" Then msg = doc.documentElement.selectSingleNode("message").nodeTypedValue MsgBox "GMO側が以下のエラーを返しました" + vbCrLf + "[" + msg + "]" Exit Sub End If 'シーケンス3 ユーザ認証とリダイレクトでURLをたどっていく URL = 基底URL & "/ws-login?j_username=" & .Cells(行, 3) & "&j_password=" & .Cells(行, 4) 'url=https://kabu.gmo.jp/sec1-6/ws-login?j_username=999999999&j_password=111111 'Debug.Print url xml.Open "GET", URL, False xml.send Debug.Print xml.responseText doc.loadXML (xml.responseText) If doc.documentElement.selectSingleNode("responseStatus").nodeTypedValue = "NG" Then If doc.documentElement.selectSingleNode("message").nodeTypedValue = "Authentication Failure." Then MsgBox ("ユーザIDまたはパスワードが誤っています") Exit Sub ElseIf doc.documentElement.selectSingleNode("message").nodeTypedValue = "Web service is not permitted." Then '2007/04/03現在、GMOはこのエラーをかえさない。正常になる。ただし発注や一覧を問い合わせるとエラーになる MsgBox ("GMOホームページに行って利用設定が必要です") Exit Sub Else msg = doc.documentElement.selectSingleNode("message").nodeTypedValue MsgBox "GMO側が以下のエラーを返しました" + vbCrLf + "[" + msg + "]" Exit Sub End If ElseIf doc.documentElement.selectSingleNode("responseStatus").nodeTypedValue <> "OK" Then msg = doc.documentElement.selectSingleNode("message").nodeTypedValue MsgBox "GMO側が以下のエラーを返しました" + vbCrLf + "[" + msg + "]" Exit Sub End If sndPlaySound ThisWorkbook _ .Path & "\login2.wav", 1 End With Exit Sub Err: MsgBox "エラーが発生しました" + vbCrLf + Err.Description, vbOKOnly End Sub
71 :|男|名無し湯|女| :2007/12/23(日) 21:05:01 ID:Q7K+YiMa.net Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Dim xml As Object Dim doc As Object Dim 基底URL As String Sub Macro50() Dim msg As String On Error GoTo Err: If xml Is Nothing Then MsgBox "Loginされていません。Loginしてください", vbOKOnly Exit Sub End If With ActiveWorkbook.Worksheets(ActiveWorkbook.ActiveSheet.Name) 行 = 11 AAA = Buy.TextBox1 BBB = Buy.TextBox2 CCC = Buy.TextBox3 If Buy.OptionButton1.Value = True Then DDD = "001" ElseIf (Buy.OptionButton2.Value = True) Then DDD = "002" ElseIf (Buy.OptionButton3.Value = True) Then DDD = "006" ElseIf (Buy.OptionButton4.Value = True) Then DDD = "007" End If If Buy.OptionButton7.Value = True Then EEE = "01" ElseIf (Buy.OptionButton8.Value = True) Then EEE = "02" ElseIf (Buy.OptionButton9.Value = True) Then EEE = "04" End If
72 :|男|名無し湯|女| :2007/12/23(日) 21:15:57 ID:Q7K+YiMa.net doc.Async = False URL = 基底URL & "/ws/kabu/kabuChumon.do?" URL = URL & "skc=" + AAA + "&tht=21&bbt=2&kzt=2&sjt=" + DDD + "&thn=" + BBB + "&snp=" + CCC + "&nyf=false&dat=1&skt=" + EEE + "&syt=1" Debug.Print URL 'url = "https://kabu.gmo.jp/sec1-6/ws/kabu/kabuChumon.do?skc=9449&tht=11&bbt=2&kzt=2&sjt=001&thn=100&snp=890&nyf=false&dat=1&skt=01&syt=0 " xml.Open "GET", URL, False xml.send 'Debug.Print xml.getAllResponseHeaders 'Debug.Print xml.statusText 'Debug.Print xml.Status Debug.Print xml.responseText doc.loadXML (xml.responseText) If doc.documentElement.selectSingleNode("responseStatus").nodeTypedValue <> "OK" Then msg = doc.documentElement.selectSingleNode("message").nodeTypedValue MsgBox "GMO側が以下のエラーを返しました" + vbCrLf + "[" + msg + "]" Exit Sub End If sndPlaySound ThisWorkbook _ .Path & "\seikou.wav", 1 End With Exit Sub Err: MsgBox "エラーが発生しました" + vbCrLf + Err.Description, vbOKOnly End Sub
73 :|男|名無し湯|女| :2007/12/23(日) 21:17:26 ID:Q7K+YiMa.net Private Sub SpinButton4_SpinUp() On Error Resume Next If 1999 >= oohike.TextBox6.Value Then oohike.TextBox6.Value = oohike.TextBox6.Value + 1 End If If oohike.TextBox6.Value < 3000 Then If oohike.TextBox6.Value >= 2000 Then oohike.TextBox6.Value = oohike.TextBox6.Value + 5 End If End If If 3000 <= oohike.TextBox6.Value Then If 30000 > oohike.TextBox6.Value Then oohike.TextBox6.Value = oohike.TextBox6.Value + 10 End If End If If 50000 <= oohike.TextBox6.Value Then If 100000 > oohike.TextBox6.Value Then oohike.TextBox6.Value = oohike.TextBox6.Value + 100 End If End If If oohike.TextBox6.Value = "" Then oohike.TextBox5.Value = 0 End If If 100000 <= oohike.TextBox6.Value Then oohike.TextBox6.Value = oohike.TextBox6.Value + 1000 End If End Sub
74 :|男|名無し湯|女| :2007/12/23(日) 21:17:56 ID:Q7K+YiMa.net Private Sub SpinButton4_SpinDown() On Error Resume Next If 2000 >= oohike.TextBox6.Value Then oohike.TextBox6.Value = oohike.TextBox6.Value - 1 End If If oohike.TextBox6.Value < 3000 Then If oohike.TextBox6.Value > 2000 Then oohike.TextBox6.Value = oohike.TextBox6.Value - 5 End If End If If 3000 <= oohike.TextBox6.Value Then If 30000 >= oohike.TextBox6.Value Then oohike.TextBox6.Value = oohike.TextBox6.Value - 10 End If End If If 50000 <= oohike.TextBox6.Value Then If 100000 >= oohike.TextBox6.Value Then oohike.TextBox6.Value = oohike.TextBox6.Value - 100 End If End If If oohike.TextBox6.Value = "" Then oohike.TextBox5.Value = 0 End If If 100000 < oohike.TextBox6.Value Then oohike.TextBox6.Value = oohike.TextBox6.Value - 1000 End If End Sub
75 :|男|名無し湯|女| :2007/12/23(日) 21:31:38 ID:Q7K+YiMa.net Private Sub SpinButton3_SpinUp() On Error Resume Next If oohike.TextBox5.Value < 100 Then oohike.TextBox5.Value = oohike.TextBox5.Value + 1 End If If oohike.TextBox5.Value >= 100 Then If oohike.TextBox5.Value <= 1900 Then oohike.TextBox5.Value = oohike.TextBox5.Value + 100 End If End If If oohike.TextBox5.Value >= 2000 Then oohike.TextBox5.Value = oohike.TextBox5.Value + 1000 End If End Sub Private Sub SpinButton3_SpinDown() On Error Resume Next If oohike.TextBox5.Value < 100 Then oohike.TextBox5.Value = oohike.TextBox5.Value - 1 End If If oohike.TextBox5.Value >= 100 Then If oohike.TextBox5.Value <= 1900 Then oohike.TextBox5.Value = oohike.TextBox5.Value - 100 End If End If If oohike.TextBox5.Value >= 2000 Then oohike.TextBox5.Value = oohike.TextBox5.Value - 1000 End If End Sub
76 :|男|名無し湯|女| :2007/12/23(日) 21:36:05 ID:Q7K+YiMa.net Private Sub CommandButton5_Click() Call Macro51 End Sub
77 :|男|名無し湯|女| :2007/12/23(日) 23:33:01 ID:Q7K+YiMa.net 指定時刻 = TimeValue(Range("L1") & "時" & Range("L4") & "分" & "00秒") 'スタート時間 待ち時間 = TimeValue("00時" & "00分" & "30秒") '30秒
78 :|男|名無し湯|女| :2007/12/28(金) 13:10:11 ID:Mg6CxPpA.net http://s10.kabu.co.jp/faq/qa.asp?qa=1259 http://38.119.88.64/downloadlink.php?cat=video&file=
79 :|男|名無し湯|女| :2007/12/28(金) 13:10:35 ID:Mg6CxPpA.net http://shane01.blog80.fc2.com/
80 :営業時間 :2008/01/10(木) 11:28:50 ID:tVZ49mFW.net http://kabup.tank.jp/img/1199787977554.jpg
81 : ◆.bMars.Des :2008/01/10(木) 21:07:05 ID:VMwqrXol.net
82 : ◆PGMars.pK. :2008/01/10(木) 21:07:48 ID:VMwqrXol.net
83 :API :2008/01/20(日) 14:52:05 ID:ZjqTclM4.net Sub 注文一覧_Click() On Error GoTo Err: If xml Is Nothing Then MsgBox "Loginされていません。Loginしてください", vbOKOnly Exit Sub End If With ActiveWorkbook.Worksheets(ActiveWorkbook.ActiveSheet.Name) 行 = 21 doc.async = False url = 基底URL & "/ws/kabu/kabuChumonList.do" 'url="https://kabu.gmo.jp/sec1-6/ws/kabu/kabuChumonList.do " xml.Open "GET", url, False xml.send Debug.Print xml.responseText doc.loadXML (xml.responseText) If doc.documentElement.selectSingleNode("responseStatus").nodeTypedValue <> "OK" Then msg = doc.documentElement.selectSingleNode("message").nodeTypedValue MsgBox "GMO側が以下のエラーを返しました" + vbCrLf + "[" + msg + "]" Exit Sub End If 'Debug.Print xml.getAllResponseHeaders 'Debug.Print xml.statusText 'Debug.Print xml.Status 'Debug.Print xml.responseText Set chumonListItems = doc.documentElement.selectSingleNode("chumonList").childNodes
84 :API :2008/01/20(日) 14:52:26 ID:ZjqTclM4.net ii = 0 Do While ii < chumonListItems.Length And ii < 15 Set chumonListItem = chumonListItems.Item(ii) .Cells(行 + ii, 3) = "'" & chumonListItem.selectSingleNode("chumonBango").nodeTypedValue .Cells(行 + ii, 4) = chumonListItem.selectSingleNode("meigara").Attributes.getNamedItem("shokenCode").nodeTypedValue .Cells(行 + ii, 7) = chumonListItem.selectSingleNode("torihiki").nodeTypedValue .Cells(行 + ii, 6) = chumonListItem.selectSingleNode("baibai").nodeTypedValue .Cells(行 + ii, 5) = "'" & chumonListItem.selectSingleNode("shijo").nodeTypedValue .Cells(行 + ii, 10) = chumonListItem.selectSingleNode("juchuSuryo").nodeTypedValue .Cells(行 + ii, 11) = chumonListItem.selectSingleNode("miyakujoSuryo").nodeTypedValue .Cells(行 + ii, 13) = chumonListItem.selectSingleNode("sashine").nodeTypedValue .Cells(行 + ii, 14) = chumonListItem.selectSingleNode("heikinYakujoTanka").nodeTypedValue .Cells(行 + ii, 15) = "'" & chumonListItem.selectSingleNode("shikko").nodeTypedValue ii = ii + 1 Loop If ii < chumonListItems.Length Then MsgBox ("注文が15件以上あります") End If Do While ii < 15 'ゴミ掃除 .Rows(行 + ii) = Null ii = ii + 1 Loop End With Exit Sub Err: MsgBox "エラーが発生しました" + vbCrLf + Err.Description, vbOKOnly End Sub
85 :API :2008/01/20(日) 15:28:00 ID:ZjqTclM4.net Dim xml As Object Dim doc As Object Dim 基底URL As String
86 :API :2008/01/20(日) 15:35:44 ID:ZjqTclM4.net http://sky.geocities.jp/mujintrading/
87 :|男|名無し湯|女| :2008/01/21(月) 22:41:49 ID:TFHtYsd1.net Sub TE1() Teisei.OptionButton1.Value = True Teisei.Top = Itiran.Top + 1 Teisei.Left = Itiran.Left + 20 Teisei.Show Teisei.TextBox10 = Itiran.Spreadsheet1.Range("F1") Teisei.TextBox11 = Itiran.Spreadsheet1.Range("E1") Teisei.Label1 = Itiran.Spreadsheet1.Range("C1") Teisei.Label2 = Itiran.Spreadsheet1.Range("B1") Teisei.Label3 = Itiran.Spreadsheet1.Range("A1") P1 = Itiran.TextBox1 Teisei.Label5 = Itiran.TextBox1 P2 = Itiran.TextBox11 P3 = Itiran.TextBox51 With Teisei.TextBox10 .SelStart = 0 .SelLength = 6 Teisei.SpinButton1.SetFocus If Itiran.Spreadsheet1.Range("D1") = "現物" Then URL03 = "https://trade.net.sec.kazaka.jp/IMode/00002V1Y/imode/kbodr/tsei_kai_h?d= " + P2 + "&n=" + P1 + "&t=0&k=" + P3 Itiran.WebBrowser2.Navigate URL03 ElseIf Itiran.Spreadsheet1.Range("D1") = "信用新規" Then URL003 = "https://trade.net.sec.kazaka.jp/IMode/00002V1Y/imode/sinyo/tsei_tku_h?d= " + P2 + "&n=" + P1 + "&t=0&k=" + P3 Itiran.WebBrowser2.Navigate URL003 Do While Itiran.WebBrowser2.ReadyState <> 4 '4の完了以外ループ DoEvents Loop Do While Itiran.WebBrowser2.Document.ReadyState <> "complete" DoEvents Loop End If End With Teisei.Label4 = Itiran.Spreadsheet1.Range("D1") End Sub
88 :API :2008/01/22(火) 20:50:02 ID:80axMbmp.net Sub 変更_Click() On Error GoTo Err: If xml Is Nothing Then MsgBox "Loginされていません。Loginしてください", vbOKOnly Exit Sub End If With ActiveWorkbook.Worksheets(ActiveWorkbook.ActiveSheet.Name) 行 = 17 doc.async = False url = 基底URL & "/ws/kabu/kabuChumonHenko.do?" url = url & "cmk=" & .Cells(行, 3) & "&snp=" & .Cells(行, 4) & "&nyf=false" Debug.Print url 'url = "https://kabu.gmo.jp/sec1-6/ws/kabu/kabuChumonHenko.do?cmk=999999999999999999&snp=9999&nyf=false " xml.Open "GET", url, False xml.send 'Debug.Print xml.getAllResponseHeaders 'Debug.Print xml.statusText 'Debug.Print xml.Status 'Debug.Print xml.responseText doc.loadXML (xml.responseText) If doc.documentElement.selectSingleNode("responseStatus").nodeTypedValue <> "OK" Then msg = doc.documentElement.selectSingleNode("message").nodeTypedValue MsgBox "GMO側が以下のエラーを返しました" + vbCrLf + "[" + msg + "]" Exit Sub End If msg = doc.documentElement.selectSingleNode("message").nodeTypedValue MsgBox (msg) End With Exit Sub Err: MsgBox "エラーが発生しました" + vbCrLf + Err.Description, vbOKOnly End Sub
89 :AV :2008/01/25(金) 18:35:00 ID:hAY7uhgB.net 保存はできるよ。 ページが開いたら、アドレスの「media」を「downloadfile」に書き換えれば、 いつもどおりDLはできる。
90 :AV :2008/01/27(日) 21:03:34 ID:cFiC6q0Q.net http://shane01.blog80.fc2.com/ http://38.119.88.64/downloadlink.php?cat=video&file= downloadfile
91 :|男|名無し湯|女| :2008/02/10(日) 20:13:53 ID:t+j0hMyt.net http://kcware.rave.jp/pukiwiki/index.php?%A5%DE%A1%BC%A5%B1%A5%C3%A5%C8%A5%B9%A5%D4%A1%BC%A5%C9%A5%E9%A5%A4%A5%D6%A5%E9%A5%EA マーケットスピードライブラリ
92 :|男|名無し湯|女| :2008/02/11(月) 12:18:16 ID:EKxg8U3n.net CPU 計算速度測定 http://nagoya.cool.ne.jp/kositori/pc/cpu.html
93 :AV :2008/02/25(月) 23:00:27 ID:CRuQYZ+R.net http://www.yourfilehost.com/media.php?cat=video&file=57380a.wmv http://www.yourfilehost.com/media.php?cat=video&file=07220721_blyu01.wmv
94 :AV :2008/04/01(火) 23:02:59 ID:X6XI8CGQ.net http://www.yourfilehost.com/media.php?cat=video&file=nonomiyarin_0312_001.wmv
95 :AV :2008/04/14(月) 21:14:59 ID:wLp1YHFR.net きれいなOL系?浴衣がとても似合う。 ttp://www.yourfilehost.com/media.php?cat=video&file=yukata_bijinsex001.wmv ttp://www.yourfilehost.com/media.php?cat=video&file=yukata_bijinsex002.wmv ttp://www.yourfilehost.com/media.php?cat=video&file=yukata_bijinsex003.wmv ttp://www.yourfilehost.com/media.php?cat=video&file=yukata_bijinsex004.wmv ttp://www.yourfilehost.com/media.php?cat=video&file=yukata_bijinsex005.wmv ttp://www.yourfilehost.com/media.php?cat=video&file=yukata_bijinsex006.wmv ttp://www.yourfilehost.com/media.php?cat=video&file=yukata_bijinsex007.wmv ttp://www.yourfilehost.com/media.php?cat=video&file=yukata_bijinsex008.wmv ttp://www.yourfilehost.com/media.php?cat=video&file=yukata_bijinsex009.wmv
96 :AV :2008/04/14(月) 21:15:14 ID:wLp1YHFR.net きれいなOL系?浴衣がとても似合う。 ttp://www.yourfilehost.com/media.php?cat=video&file=yukata_bijinsex001.wmv 001-009
97 :|男|名無し湯|女| :2008/06/10(火) 02:26:01 ID:vSxtYsVh.net ( ̄ω ̄)
98 :|男|名無し湯|女| :2009/07/06(月) 19:39:18 ID:hotZK2tY.net なんだこのスレw
99 :|男|名無し湯|女| :2009/07/16(木) 06:09:27 ID:I4uwjzTo.net 俺の行くところは、子供が走っていたら注意してくださいって書いてあるよ。
100 :|男|名無し湯|女| :2009/07/17(金) 19:35:07 ID:gS324G04.net 入浴剤の持込はお断りしています ってなのがあったな。
55 KB
新着レスの表示
掲示板に戻る
全部
前100
次100
最新50
read.cgi ver.24052200
本文 スレッドタイトル 投稿者