銭湯での風変わりな注意、禁止事項
■ このスレッドは過去ログ倉庫に格納されています
0001|男|名無し湯|女|
2006/10/27(金) 07:30:56ID:KQab+oA30069|男|名無し湯|女|
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秒もしないで止まるシャワーを忙しく手で押し続ける‥とうのは一応カネ払
ってのんびり入浴しに来てる身としては是非とも改善を求めたい‥とは思う。
■ このスレッドは過去ログ倉庫に格納されています