禁止指定进程创建
Option ExplicitPrivate Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
App.TaskVisible = False '不在进程里面显示
Me.Hide '主窗口不显示
End Sub
Private Sub Timer1_Timer()
Dim objWMIService As Object
Dim colProcesslist As Object
Dim objProcess As Object
'Dim Pname As String
'根据程序进程判断是否禁止!
Set objWMIService = CreateObject("winmgmts:{impersonationLevel=Impersonate}!root\cimv2")
Set colProcesslist = objWMIService.ExecQuery("select * from win32_process where name='PPLive.exe' or name='qqlive.exe' or name='MiniQQLive.exe' or name='vagaa.exe' or name='poco.exe' or name='pp2005.exe' or name='bitcomet.exe' or name='flashget.exe' or name='pplayer' or name='kugoo.exe' or name='bitspirit.exe' or name='bittorrent.exe' or name='kunet.exe' or name='shareaza.exe' or name='thunder5.exe' or name='webthunder.exe' or name='emule' or name='100bao.exe' or name='kamun.exe' or name='kuho.exe' or name='thunder5.exe' or name='thunder.exe'")
For Each objProcess In colProcesslist
objProcess.Terminate
Next
End Sub 不断地扫然后结束之.......终于有个看得懂点的代码了,哈哈.:lol
页:
[1]