AutoIT寫的禁止QQ運(yùn)行的程序代碼
2021-10-06 00:48autoit教程網(wǎng) autoit
autoit的東西，確實(shí)不錯，推薦大家學(xué)習(xí)之，最近沒時間，稍后我們一起學(xué)習(xí)
-
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
