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