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

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

本文由 华域联盟 原创撰写：华域联盟 » AutoIT写的禁止QQ运行的程序代码

转载请保留出处和原文链接：https://www.cnhackhy.com/84536.htm