if ProcessExists("qq.exe") then $QQPID = ProcessExists("qq.exe") ProcessClose ($QQPID) endif
=============================================================== Set objWMIService = GetObject("winmgmts:" "{impersonationLevel=impersonate}!\\.\root\cimv2") 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
