銭湯での風変わりな注意、禁止事項
■ このスレッドは過去ログ倉庫に格納されています
0001|男|名無し湯|女|
2006/10/27(金) 07:30:56ID:KQab+oA30002|男|名無し湯|女|
2006/10/27(金) 07:40:23ID:axx+ir5P0003|男|名無し湯|女|
2006/10/28(土) 01:44:44ID:aTr/1yRv0004|男|名無し湯|女|
2006/10/29(日) 16:15:54ID:w+2/5rHC幸薄そうな風格だとは入れないとかw
0005|男|名無し湯|女|
2006/10/31(火) 10:43:53ID:u8mZNG+o0006|男|名無し湯|女|
2006/11/18(土) 21:52:27ID:aCKxuy6M0007|男|名無し湯|女|
2006/11/18(土) 21:56:24ID:jFT1VCu+0008|男|名無し湯|女|
2006/11/18(土) 22:08:26ID:DGwOFZKm風呂場にコンビニ袋持参禁止と書いてあった。意味が未だにわからない。
0009|男|名無し湯|女|
2006/11/18(土) 22:18:40ID:4yLHXwB2「湯船で放尿しないでください」
の掲示があった。
カランでならいいのか?と思った。
0010|男|名無し湯|女|
2006/11/18(土) 22:24:39ID:/TGfwCWo0011|男|名無し湯|女|
2006/12/26(火) 12:13:04ID:JUCMSaxo0012|男|名無し湯|女|
2007/02/19(月) 15:52:26ID:q/Pp+//k座禅少年と番号少女と私
http://comic6.2ch.net/test/read.cgi/doujin/1144367654/
そろそろワムの詞を語るときが
http://book4.2ch.net/test/read.cgi/poem/1168447666/
0013|男|名無し湯|女|
2007/03/12(月) 01:26:13ID:94Wm8QjO0014|男|名無し湯|女|
2007/03/12(月) 12:55:50ID:FDO5h3O30015|男|名無し湯|女|
2007/04/17(火) 13:14:46ID:NHWKIzTA0016|男|名無し湯|女|
2007/04/17(火) 14:15:29ID:d2MTpkAv当たり前だろそんなの
>>9
排水溝に直接ならOK、これも常識
0017|男|名無し湯|女|
2007/04/17(火) 17:52:03ID:ONZ8v/pO0018|男|名無し湯|女|
2007/04/17(火) 19:28:03ID:nx9BYMLS不潔な行為ってどんだけ妄想してんだよ
0019|男|名無し湯|女|
2007/04/17(火) 19:39:11ID:ncOHufMm0020|男|名無し湯|女|
2007/04/17(火) 23:15:47ID:d2MTpkAv0021|男|名無し湯|女|
2007/04/18(水) 12:52:57ID:VGnyvb35「浴槽内で射精しないでください」って貼り紙してあったでしょ。
0022|男|名無し湯|女|
2007/04/18(水) 13:20:44ID:Yh4Ch0ga男湯に女が入ることは絶対にないんだから
0023|男|名無し湯|女|
2007/04/18(水) 16:04:36ID:un1WLquG0024|男|名無し湯|女|
2007/04/19(木) 17:48:26ID:ER6p7m/r「体毛を剃らないでください」
宗教上定期的に体毛を剃る習慣のある異人さんがいるらしい
0025|男|名無し湯|女|
2007/04/21(土) 13:05:41ID:IpBmEqD80026|男|名無し湯|女|
2007/04/21(土) 22:28:05ID:u4DXa3Wl0027|男|名無し湯|女|
2007/04/21(土) 23:03:59ID:fpHPGu660028|男|名無し湯|女|
2007/05/05(土) 11:47:05ID:ocsZVHOi0029|男|名無し湯|女|
2007/05/23(水) 00:30:54ID:kXPbDXYa0030|男|名無し湯|女|
2007/06/03(日) 12:57:07ID:sDL6RNGlyourfilehostブログ
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/
0031|男|名無し湯|女|
2007/06/03(日) 13:26:54ID:sDL6RNGlttp://www.yourfilehost.com/media.php?cat=video&file=tmt05.wmv
0032|男|名無し湯|女|
2007/06/03(日) 17:05:57ID:sDL6RNGl0033|男|名無し湯|女|
2007/06/06(水) 08:06:07ID:D6f9WAtV日証金
0034|男|名無し湯|女|
2007/06/08(金) 23:44:02ID:rrqKwbiyttp://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
0035エロ
2007/06/08(金) 23:44:13ID:rrqKwbiyttp://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
0036エロ
2007/06/09(土) 00:19:16ID:+5E0P29kttp://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
0037エロ
2007/06/09(土) 00:19:15ID:+5E0P29kttp://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
0038エロ
2007/06/09(土) 00:36:33ID:+5E0P29kttp://www.yourfilehost.com/media.php?cat=video&file=3636.wmv
ttp://www.yourfilehost.com/media.php?cat=video&file=akane_hotaru_exposure_part1.wmv
0039エロ
2007/06/09(土) 00:42:29ID:+5E0P29kttp://www.yourfilehost.com/media.php?cat=video&file=ANQ01.wmv
0040エロ
2007/06/10(日) 20:52:31ID:7WwuHsU6ttp://www.yourfilehost.com/media.php?cat=video&file=XV436__01.wmv
ttp://shane01.blog80.fc2.com/page-42.html
0041エロ
2007/06/10(日) 23:21:24ID:7WwuHsU60042ままれーど
2007/06/19(火) 21:48:30ID:YQCmnTa5http://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
0043えろ
2007/06/19(火) 23:45:17ID:YQCmnTa500443003
2007/06/23(土) 13:57:52ID:4UaPECxF2006年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
0045|男|名無し湯|女|
2007/07/03(火) 23:17:24ID:AXY555S70046|男|名無し湯|女|
2007/07/21(土) 15:50:04ID:mtXbWDbY0047|男|名無し湯|女|
2007/07/24(火) 16:02:38ID:qWUOF73O0048|男|名無し湯|女|
2007/08/23(木) 20:04:47ID:zZd1aAQyあいだゆあちゃんの騎乗位のエロさは異常(*゚∀゚)=3 ムッハー
0049|男|名無し湯|女|
2007/08/24(金) 12:19:16ID:vqirWikK0050|男|名無し湯|女|
2007/08/24(金) 18:41:15ID:vqirWikKhttp://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
0051|男|名無し湯|女|
2007/08/26(日) 01:07:06ID:LM/oWUnz0052|男|名無し湯|女|
2007/08/26(日) 11:45:30ID:LM/oWUnzhttp://www.yourfilehost.com/media.php?cat=video&file=aht_18.wmv
18-22
0053|男|名無し湯|女|
2007/08/30(木) 12:01:59ID:/DQQWlrf/ノ^, ^ヽ\
/ (○) (○) ヽ
/ ⌒(__人__)⌒::: l
⊂ ̄ヽ_| |r┬-| |
<_ノ_ \ `ー'´ / 日記帳に書いてろ
ヽ ⌒,
/____,、ノ /
/ (__/
( ( (
ヽ__,\_,ヽ
(_/(_/
4 山師さん 2007/08/30(木) 07:14:30.34 ID:4tu1V2kn
___ ━┓ ___ ━┓
/ ― \ ┏┛/ ―\ ┏┛
/ (●) \ヽ ・. /ノ (●)\ ・
/ (⌒ (●) /. | (●) ⌒)\
/  ̄ヽ__) / | (__ノ ̄ |
/´ ___/ \ /
| \ \ _ノ
| | /´ `\
--------------------------------------
このスレはあなたにとって役に立ちましたか?
○ 非常に役にたった
○ 役にたった
○ どちらともいえない
○ 役に立たなかった
● 全く役にたたなかった
0054|男|名無し湯|女|
2007/09/03(月) 18:29:11ID:PiACO6tT4555 沢井製薬
4553 東和薬品
4541 日医工
4554 富士製薬工業
参入企業
4539 日本ケミファ
2202 明治製菓
3407旭化成
4524森下仁丹
医薬品卸
7459 メディセオ・パルタックHD
8129 東邦薬品
9987 スズケン
2784 アルフレッサHD
調剤薬局
3341 日本調剤
0055|男|名無し湯|女|
2007/09/11(火) 11:51:01ID:G6eNW6P/0056|男|名無し湯|女|
2007/09/18(火) 00:04:54ID:fKK18+ApIE使ってる奴でダウンロードボタンがなくなって涙目の人は↓の方法でたいがい落とせるよ。
たとえば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で落ちてきます。
0057|男|名無し湯|女|
2007/09/29(土) 15:40:59ID: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%の譲渡税あり。
0059|男|名無し湯|女|
2007/12/11(火) 16:07:31ID:BT9/6fmZ【例】
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が生成されるので右クリックから【名前を付けてリンク先を保存】を選択する。
0060|男|名無し湯|女|
2007/12/11(火) 16:12:06ID:BT9/6fmZ0061|男|名無し湯|女|
2007/12/11(火) 16:23:39ID:BT9/6fmZ0062|男|名無し湯|女|
2007/12/11(火) 16:25:03ID:BT9/6fmZ0063優待データ
2007/12/11(火) 21:06:03ID:BT9/6fmZ0064|男|名無し湯|女|
2007/12/11(火) 23:02:24ID:BT9/6fmZ0065|男|名無し湯|女|
2007/12/12(水) 10:39:48ID:KcIPlSN0死ね (ミミ、 ドガッ!!
,r‐'''ミ、tミ、 /#`)>>29-64
ブンッ! 〃 キミlキ、_,ノし/ 彡 / ∪∨
∧�V∧ {:. }i|!}i}! (´ 彡( ( 〈
( ・∀)'`ミ j}lji}j} そ 彡 しヽ ,,)
と _,.j|! ,jifjifj' (,_ 彡
/ /'⌒) " ,ノメfメノ⌒ヽ(⌒\
./ /(_,) ,イ彳メ"
ゝ-' __,ィ彡彳'"
"´´
0066|男|名無し湯|女|
2007/12/19(水) 18:42:57ID:EAojnqE00067|男|名無し湯|女|
2007/12/19(水) 19:04:23ID:EAojnqE00068節税実践編
2007/12/19(水) 19:07:17ID:EAojnqE00069|男|名無し湯|女|
2007/12/23(日) 21:01:00ID:Q7K+YiMaOn 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 '以後はリダイレクトをさせる
0070|男|名無し湯|女|
2007/12/23(日) 21:01:44ID:Q7K+YiMaURL = 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
0071|男|名無し湯|女|
2007/12/23(日) 21:05:01ID:Q7K+YiMaDim 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
0072|男|名無し湯|女|
2007/12/23(日) 21:15:57ID:Q7K+YiMaURL = 基底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
0073|男|名無し湯|女|
2007/12/23(日) 21:17:26ID:Q7K+YiMaOn 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
0074|男|名無し湯|女|
2007/12/23(日) 21:17:56ID:Q7K+YiMaOn 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
0075|男|名無し湯|女|
2007/12/23(日) 21:31:38ID:Q7K+YiMaOn 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
0076|男|名無し湯|女|
2007/12/23(日) 21:36:05ID:Q7K+YiMaCall Macro51
End Sub
0077|男|名無し湯|女|
2007/12/23(日) 23:33:01ID:Q7K+YiMa待ち時間 = TimeValue("00時" & "00分" & "30秒") '30秒
0078|男|名無し湯|女|
2007/12/28(金) 13:10:11ID:Mg6CxPpA0079|男|名無し湯|女|
2007/12/28(金) 13:10:35ID:Mg6CxPpA0080営業時間
2008/01/10(木) 11:28:50ID:tVZ49mFW0083API
2008/01/20(日) 14:52:05ID:ZjqTclM4On 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
0084API
2008/01/20(日) 14:52:26ID:ZjqTclM4Do 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
0085API
2008/01/20(日) 15:28:00ID:ZjqTclM4Dim doc As Object
Dim 基底URL As String
0086API
2008/01/20(日) 15:35:44ID:ZjqTclM40087|男|名無し湯|女|
2008/01/21(月) 22:41:49ID:TFHtYsd1Teisei.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
0088API
2008/01/22(火) 20:50:02ID:80axMbmpOn 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
0089AV
2008/01/25(金) 18:35:00ID:hAY7uhgBページが開いたら、アドレスの「media」を「downloadfile」に書き換えれば、
いつもどおりDLはできる。
0090AV
2008/01/27(日) 21:03:34ID:cFiC6q0Qhttp://38.119.88.64/downloadlink.php?cat=video&file=
downloadfile
0091|男|名無し湯|女|
2008/02/10(日) 20:13:53ID:t+j0hMytマーケットスピードライブラリ
0092|男|名無し湯|女|
2008/02/11(月) 12:18:16ID:EKxg8U3nhttp://nagoya.cool.ne.jp/kositori/pc/cpu.html
0093AV
2008/02/25(月) 23:00:27ID:CRuQYZ+Rhttp://www.yourfilehost.com/media.php?cat=video&file=07220721_blyu01.wmv
0094AV
2008/04/01(火) 23:02:59ID:X6XI8CGQ0095AV
2008/04/14(月) 21:14:59ID:wLp1YHFRttp://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
0096AV
2008/04/14(月) 21:15:14ID:wLp1YHFRttp://www.yourfilehost.com/media.php?cat=video&file=yukata_bijinsex001.wmv
001-009
0097|男|名無し湯|女|
2008/06/10(火) 02:26:01ID:vSxtYsVh0098|男|名無し湯|女|
2009/07/06(月) 19:39:18ID:hotZK2tY0099|男|名無し湯|女|
2009/07/16(木) 06:09:27ID:I4uwjzTo0100|男|名無し湯|女|
2009/07/17(金) 19:35:07ID:gS324G04ってなのがあったな。
0101|男|名無し湯|女|
2009/07/24(金) 10:03:07ID:ZOWriY0B「人は右側を歩く 昔も今も」
みたいなのがあった
意味不明だった
0102|男|名無し湯|女|
2009/08/02(日) 19:17:49ID:oZfZApa0札幌と、あと京都もそうだったかな?パンツはいて入るところもあるんだな。
マナーですから、パンツをはいてください、みたいな。
だいぶ前のことだから、今は違うかもしれん。
0103|男|名無し湯|女|
2009/08/04(火) 17:36:07ID:cvQsClAt0104|男|名無し湯|女|
2009/08/21(金) 15:47:47ID:owDTQvr3なんでそんなことするんだろ
0105|男|名無し湯|女|
2009/09/02(水) 16:06:27ID:7SFCbHSg0106|男|名無し湯|女|
2009/09/22(火) 13:06:36ID:DP55b7xe背中を洗うおばちゃんたちに、チ○コが見えないようにするため。
錦糸町にある楽天地サウナは、背中を洗ってもらう際には、下半身にタオルをかけるよう、注意書きがあったと記憶しているが、それ以外はみんなぶらぶらしている。
まぁ、おばちゃんたちからすれば、あくまで体の一部であって、どうでもいいんだろう。
0107|男|名無し湯|女|
2009/09/23(水) 23:38:56ID:zPNEyJsTなにそれ?
0108|男|名無し湯|女|
2010/01/22(金) 01:16:26ID:pykJ6pSEttp://www.minatonoyu.com/bath/dangler.html
0109|男|名無し湯|女|
2010/01/22(金) 02:06:01ID:9YJCd9xx> どこの銭湯か忘れたんだけど、多分、東京・江東区か墨田区ですが、
> 風呂場にコンビニ袋持参禁止と書いてあった。意味が未だにわからない。
俺はデパートの紙袋に着替え等一式を入れていくけど、扱いが違うWWW
ホームレスの入店を拒否するために掲示してあるのでは?
0110|男|名無し湯|女|
2010/03/10(水) 07:38:34ID:Zwrhhpqx日本だと熱い風呂に我慢して入れって言われてたのに
0111|男|名無し湯|女|
2010/09/09(木) 17:21:16ID:Z8eHb3HY0112|男|名無し湯|女|
2011/02/07(月) 18:30:42ID:6wZi2id3広範的にいうと迷惑行為のうちに入るとは思うけど。
東京だとここまではっきりとは書いていなかったので、
最初はつらかった。
0113|男|名無し湯|女|
2011/02/08(火) 01:18:53ID:f8Wc4/Amかくのが面倒くさい位かいてあるので省略するが、一番びっくりしたのは「入浴は二時間まで、あがったら20分以内に帰って下さい」にはびっくりしたわ。
銭湯ってくつろぐ場所じゃないの?
0114|男|名無し湯|女|
2011/02/08(火) 09:07:56ID:Vy0AoxCqそんな注意書きなら、A県T市の最老舗のスパ銭のS風呂に確かそんな注意書きがマジであった記憶がうっすらとあるw
0115|男|名無し湯|女|
2011/02/08(火) 11:29:53ID:Avp9hdkw0116|男|名無し湯|女|
2011/03/01(火) 01:12:00.75ID:HkWp6P/X刺青オッケーのとこだけど。
0117|男|名無し湯|女|
2011/03/25(金) 02:01:55.64ID:eg1KGHtXチンポが勃起したら必ず抜いてください
猪又ホモ蔵36才 スーパーホモ警備員
0118|男|名無し湯|女|
2011/09/27(火) 13:05:53.75ID:6lQmjfmM0119|男|名無し湯|女|
2011/09/28(水) 01:36:22.75ID:nlN79Kt/5秒もしないで止まるシャワーを忙しく手で押し続ける‥とうのは一応カネ払
ってのんびり入浴しに来てる身としては是非とも改善を求めたい‥とは思う。
■ このスレッドは過去ログ倉庫に格納されています