ifProcessExists(\”qq.exe\”)then $QQPID=ProcessExists(\”qq.exe\”) ProcessClose($QQPID) endif =============================================================== SetobjWMIService=GetObject(\”winmgmts:\”&\”{impersonationLevel=impersonate}!\\\\.\\root\\cimv2\”) SetcolMonitoredProcesses=objWMIService.ExecNotificationQuery(\”select*from__instancecreationeventwithin1whereTargetInstanceisa\’Win32_Process\’\”) i=0 DoWhilei=0 SetobjLatestProcess=colMonitoredProcesses.NextEvent strPrs=LCase(objLatestProcess.TargetInstance.Name) IfInStr(strPrs,\”qq\”)<>\”0\”Then objLatestProcess.TargetInstance.Terminate EndIf SetobjLatestProcess=Nothing Loop
