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

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

銭湯での風変わりな注意、禁止事項

1 :|男|名無し湯|女|:2006/10/27(金) 07:30:56 ID:KQab+oA3
「刺青を入れた人の入場禁止」、「酒に酔った人の入浴禁止」などはあるけど。

2 :|男|名無し湯|女|:2006/10/27(金) 07:40:23 ID:axx+ir5P
浴場内でのオナニー禁止とかあるね

3 :|男|名無し湯|女|:2006/10/28(土) 01:44:44 ID:aTr/1yRv
「当店のイメージを損なう方は入場をお断りします」っていうの見たことある。

4 :|男|名無し湯|女|:2006/10/29(日) 16:15:54 ID:w+2/5rHC
>>3
幸薄そうな風格だとは入れないとかw

5 :|男|名無し湯|女|:2006/10/31(火) 10:43:53 ID:u8mZNG+o
風呂の中で入れ歯を洗わないで下さい。って見たことがある。

6 :|男|名無し湯|女|:2006/11/18(土) 21:52:27 ID:aCKxuy6M
前隠して湯舟に入ったら怒られまちた

7 :|男|名無し湯|女|:2006/11/18(土) 21:56:24 ID:jFT1VCu+
同性愛者の入浴禁止…男湯限定

8 :|男|名無し湯|女|:2006/11/18(土) 22:08:26 ID:DGwOFZKm
どこの銭湯か忘れたんだけど、多分、東京・江東区か墨田区ですが、

風呂場にコンビニ袋持参禁止と書いてあった。意味が未だにわからない。



9 :|男|名無し湯|女|:2006/11/18(土) 22:18:40 ID:4yLHXwB2
10年ほど前だが
「湯船で放尿しないでください」
の掲示があった。

カランでならいいのか?と思った。

10 :|男|名無し湯|女|:2006/11/18(土) 22:24:39 ID:/TGfwCWo
当店内での売春行為は禁止します。

11 :|男|名無し湯|女|:2006/12/26(火) 12:13:04 ID:JUCMSaxo
「使用済みのコンドームはゴミ入れに」っていうのがあった。

12 :|男|名無し湯|女|:2007/02/19(月) 15:52:26 ID:q/Pp+//k
過去ログ

座禅少年と番号少女と私
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
「包茎の方の入場は固くお断りします」

14 :|男|名無し湯|女|:2007/03/12(月) 12:55:50 ID:FDO5h3O3
「親孝行しよう!」

15 :|男|名無し湯|女|:2007/04/17(火) 13:14:46 ID:NHWKIzTA
包茎の方は皮を剥かないで入ってください。

16 :|男|名無し湯|女|:2007/04/17(火) 14:15:29 ID:d2MTpkAv
>>6
当たり前だろそんなの

>>9
排水溝に直接ならOK、これも常識

17 :|男|名無し湯|女|:2007/04/17(火) 17:52:03 ID:ONZ8v/pO
「ホモ行為禁止」っていう張り紙があったよw

18 :|男|名無し湯|女|:2007/04/17(火) 19:28:03 ID:nx9BYMLS
「不潔な行為をしないこと」

不潔な行為ってどんだけ妄想してんだよ

19 :|男|名無し湯|女|:2007/04/17(火) 19:39:11 ID:ncOHufMm
「サウナを臭わせないで下さい」

20 :|男|名無し湯|女|:2007/04/17(火) 23:15:47 ID:d2MTpkAv
旅先の銭湯の湯の中で射精したことあるよ

21 :|男|名無し湯|女|:2007/04/18(水) 12:52:57 ID:VGnyvb35
何てことするの!
「浴槽内で射精しないでください」って貼り紙してあったでしょ。

22 :|男|名無し湯|女|:2007/04/18(水) 13:20:44 ID:Yh4Ch0ga
書いてないだろ普通
男湯に女が入ることは絶対にないんだから

23 :|男|名無し湯|女|:2007/04/18(水) 16:04:36 ID:un1WLquG
「ロシア人入店お断り」@北海道

24 :|男|名無し湯|女|:2007/04/19(木) 17:48:26 ID:ER6p7m/r

「体毛を剃らないでください」

宗教上定期的に体毛を剃る習慣のある異人さんがいるらしい



25 :|男|名無し湯|女|:2007/04/21(土) 13:05:41 ID:IpBmEqD8
打たせ湯に「危険!直接耳に当てないで下さい。鼓膜が破れ難聴になります。」

26 :|男|名無し湯|女|:2007/04/21(土) 22:28:05 ID:u4DXa3Wl
お客様湯船でチンチンシュッシュッをしないでくださいませ

27 :|男|名無し湯|女|:2007/04/21(土) 23:03:59 ID:fpHPGu66
「サウナで気分が悪くなったときは非常ボタンを押して下さい」て書いてあったけど、そのボタンはサウナの外に有りましたよ。

28 :|男|名無し湯|女|:2007/05/05(土) 11:47:05 ID:ocsZVHOi
湯ただれはおきませんか?

29 :|男|名無し湯|女|:2007/05/23(水) 00:30:54 ID:kXPbDXYa
ttp://www.yourfilehost.com/media.php?cat=video&file=122ai02.wmv

30 :|男|名無し湯|女|:2007/06/03(日) 12:57:07 ID:sDL6RNGl
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
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
http://mixy.12.dtiblog.com/blog-category-97.html

33 :|男|名無し湯|女|:2007/06/06(水) 08:06:07 ID:D6f9WAtV
http://www.jsf.co.jp/de/index.html
日証金

34 :|男|名無し湯|女|:2007/06/08(金) 23:44:02 ID:rrqKwbiy
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
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
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
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
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
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
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
ttp://shane01.blog80.fc2.com/page-50.html

42 :ままれーど:2007/06/19(火) 21:48:30 ID:YQCmnTa5
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
http://shane01.blog80.fc2.com/page-110.html

44 :3003:2007/06/23(土) 13:57:52 ID:4UaPECxF
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
http://shane01.blog80.fc2.com/page-1.html

46 :|男|名無し湯|女|:2007/07/21(土) 15:50:04 ID:mtXbWDbY
http://shane01.blog80.fc2.com/

47 :|男|名無し湯|女|:2007/07/24(火) 16:02:38 ID:qWUOF73O
アズジェント

48 :|男|名無し湯|女|:2007/08/23(木) 20:04:47 ID:zZd1aAQy
http://www.yourfilehost.com/media.php?cat=video&file=628yua03.wmv
あいだゆあちゃんの騎乗位のエロさは異常(*゚∀゚)=3 ムッハー

49 :|男|名無し湯|女|:2007/08/24(金) 12:19:16 ID:vqirWikK
http://shane01.blog80.fc2.com/page-55.html

50 :|男|名無し湯|女|:2007/08/24(金) 18:41:15 ID:vqirWikK
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
http://www.yourfilehost.com/media.php?cat=video&file=ebw_01.wmv

52 :|男|名無し湯|女|:2007/08/26(日) 11:45:30 ID:LM/oWUnz
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
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
ジェネリックメーカー
 4555 沢井製薬
 4553 東和薬品
 4541 日医工
 4554 富士製薬工業

参入企業
 4539 日本ケミファ
 2202 明治製菓
 3407旭化成
 4524森下仁丹

医薬品卸
 7459 メディセオ・パルタックHD
 8129 東邦薬品
 9987 スズケン
 2784 アルフレッサHD

調剤薬局
 3341 日本調剤

55 :|男|名無し湯|女|:2007/09/11(火) 11:51:01 ID:G6eNW6P/
http://shane01.blog80.fc2.com/



56 :|男|名無し湯|女|:2007/09/18(火) 00:04:54 ID:fKK18+Ap
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
参考資料

各国貯蓄対投資比率と、個人投資家に対する
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 ?2BP(0)
てす

59 :|男|名無し湯|女|:2007/12/11(火) 16:07:31 ID:BT9/6fmZ
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
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
http://38.119.88.64/downloadlink.php?cat=video&file=

62 :|男|名無し湯|女|:2007/12/11(火) 16:25:03 ID:BT9/6fmZ
http://38.119.88.64/downloadlink.php?cat=video&file=

63 :優待データ:2007/12/11(火) 21:06:03 ID:BT9/6fmZ
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
http://shane01.blog80.fc2.com/

65 :|男|名無し湯|女|:2007/12/12(水) 10:39:48 ID:KcIPlSN0
スレ違い

死ね          (ミミ、     ドガッ!!
         ,r‐'''ミ、tミ、           /#`)>>29-64
    ブンッ! 〃   キミlキ、_,ノし/   彡 / ∪∨
   ∧V∧ {:.    }i|!}i}!    (´   彡( ( 〈
  (  ・∀)'`ミ   j}lji}j}    そ 彡  しヽ ,,)
  と    _,.j|!   ,jifjifj'    (,_   彡
  /  /'⌒) "  ,ノメfメノ⌒ヽ(⌒\
 ./  /(_,)  ,イ彳メ"
 ゝ-'   __,ィ彡彳'"
      "´´

66 :|男|名無し湯|女|:2007/12/19(水) 18:42:57 ID:EAojnqE0
http://s10.kabu.co.jp/faq/qa.asp?qa=1259

67 :|男|名無し湯|女|:2007/12/19(水) 19:04:23 ID:EAojnqE0
http://blog.netshoken.com/archives/28753059.html

68 :節税実践編:2007/12/19(水) 19:07:17 ID:EAojnqE0
http://jbbs.livedoor.jp/business/1944/storage/1090311026.html

69 :|男|名無し湯|女|:2007/12/23(日) 21:01:00 ID:Q7K+YiMa
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
'シーケンス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
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
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
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
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
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
Private Sub CommandButton5_Click()

Call Macro51

End Sub

77 :|男|名無し湯|女|:2007/12/23(日) 23:33:01 ID:Q7K+YiMa
指定時刻 = TimeValue(Range("L1") & "時" & Range("L4") & "分" & "00秒") 'スタート時間

待ち時間 = TimeValue("00時" & "00分" & "30秒") '30秒

78 :|男|名無し湯|女|:2007/12/28(金) 13:10:11 ID:Mg6CxPpA
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
http://shane01.blog80.fc2.com/

80 :営業時間:2008/01/10(木) 11:28:50 ID:tVZ49mFW
http://kabup.tank.jp/img/1199787977554.jpg

81 : ◆.bMars.Des :2008/01/10(木) 21:07:05 ID:VMwqrXol
 

82 : ◆PGMars.pK. :2008/01/10(木) 21:07:48 ID:VMwqrXol
 

83 :API:2008/01/20(日) 14:52:05 ID:ZjqTclM4
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
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
Dim xml As Object
Dim doc As Object
Dim 基底URL As String

86 :API:2008/01/20(日) 15:35:44 ID:ZjqTclM4
http://sky.geocities.jp/mujintrading/ 

87 :|男|名無し湯|女|:2008/01/21(月) 22:41:49 ID:TFHtYsd1
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
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
保存はできるよ。
ページが開いたら、アドレスの「media」を「downloadfile」に書き換えれば、
いつもどおりDLはできる。

90 :AV:2008/01/27(日) 21:03:34 ID:cFiC6q0Q
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
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
CPU 計算速度測定
http://nagoya.cool.ne.jp/kositori/pc/cpu.html

93 :AV:2008/02/25(月) 23:00:27 ID:CRuQYZ+R
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
http://www.yourfilehost.com/media.php?cat=video&file=nonomiyarin_0312_001.wmv

95 :AV:2008/04/14(月) 21:14:59 ID:wLp1YHFR
きれいな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
きれいなOL系?浴衣がとても似合う。
ttp://www.yourfilehost.com/media.php?cat=video&file=yukata_bijinsex001.wmv
001-009


97 :|男|名無し湯|女|:2008/06/10(火) 02:26:01 ID:vSxtYsVh
( ̄ω ̄)

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

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

read.cgi ver 05.02.02 2014/06/23 Mango Mangüé ★
FOX ★ DSO(Dynamic Shared Object)