AutoIT写的禁止QQ运行的程序代码

1. if ProcessExists("qq.exe") then   
2.                 $QQPID = ProcessExists("qq.exe")  
3.                 ProcessClose ($QQPID)  
4.         endif  
5.  
6.  
7. ===============================================================  
8. Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")  
9. Set colMonitoredProcesses = objWMIService.ExecNotificationQuery("select * from __instancecreationevent within 1 where TargetInstance isa 'Win32_Process'")  
10. i = 0  
11. Do While i = 0  
12.         Set objLatestProcess = colMonitoredProcesses.NextEvent  
13.         strPrs = LCase(objLatestProcess.TargetInstance.Name)  
14.         If InStr(strPrs,"qq") <> "0" Then  
15.                 objLatestProcess.TargetInstance.Terminate  
16.         End If  
17.         Set objLatestProcess = Nothing  
18. Loop