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

日期:2013/11/21 16:29:00 来源:本网整理 阅读:13
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

  • 本文相关:
  • autoit3最新汉化版下载
  • QQ向陌生人聊天的autoit脚本
  • autoit 命令行参数说明
  • Aut2Exe编译au3脚本为可执行文件
  • 用autoit编写第一个脚本(Hello World)
  • autoit自定义函数
  • autoit GUI相关知识
  • autoit HotKeySet 函数
  • autoit InputBox 函数
  • autoit入门教程小结
  • 免责声明 - 关于我们 - 联系我们 - 广告联系 - 友情链接 - 帮助中心 - 频道导航
    Copyright © 2017 www.zgxue.com All Rights Reserved