AutoIT写的禁止QQ运行的程序代码
2021-10-06 00:48autoit教程网 autoit
autoit的东西，确实不错，推荐大家学习之，最近没时间，稍后我们一起学习
-
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
