if ProcessExists("qq.exe") then
$QQPID = ProcessExists("qq.exe")
ProcessClose ($QQPID)
endif
===============================================================
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!.rootcimv2")
Set colMonitoredProcesses = objWMIService.ExecNotificationQuery("select * from __instancecreationevent within 1 where TargetInstance isa 'Win32_Process'")
i = 0
Do While i = 0
Set objLatestProcess = colMonitoredProcesses.NextEvent
strPrs = LCase(objLatestProcess.TargetInstance.Name)
If InStr(strPrs,"qq") <> "0" Then
objLatestProcess.TargetInstance.Terminate
End If
Set objLatestProcess = Nothing
Loop
本文来源:
网梦CMS小程序,转载请注明出处!如果需要
合肥网站建设 合肥小程序开发 合肥微信开发 合肥APP开发请联系刘经理,我们将提供上门服务!
联系方式:手机:13355693937 QQ:43171398 或扫一扫下面二维码加我微信: