autoit

关注公众号 jb51net

关闭
首页 > 脚本专栏 > autoit > autoit 禁止QQ运行

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

作者:

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
阅读全文