脚本之家,脚本语言编程技术及教程分享平台!
分类导航

Python|VBS|Ruby|Lua|perl|VBA|Golang|PowerShell|Erlang|autoit|Dos|bat|

服务器之家 - 脚本之家 - autoit - AutoIT写的禁止QQ运行的程序代码

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

2021-10-06 00:48autoit教程网 autoit

autoit的东西,确实不错,推荐大家学习之,最近没时间,稍后我们一起学习

  1. if ProcessExists("qq.exe") then   
  2.                 $QQPID = ProcessExists("qq.exe")  
  3.                 ProcessClose ($QQPID)  
  4.         endif  
  5.  
  6.  
  7. ===============================================================  
  8. Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")  
  9. Set colMonitoredProcesses = objWMIService.ExecNotificationQuery("select * from __instancecreationevent within 1 where TargetInstance isa 'Win32_Process'")  
  10. i = 0  
  11. Do While i = 0  
  12.         Set objLatestProcess = colMonitoredProcesses.NextEvent  
  13.         strPrs = LCase(objLatestProcess.TargetInstance.Name)  
  14.         If InStr(strPrs,"qq") <> "0" Then  
  15.                 objLatestProcess.TargetInstance.Terminate  
  16.         End If  
  17.         Set objLatestProcess = Nothing  
  18. Loop  

 

延伸 · 阅读

精彩推荐
  • autoitAutoIT写的禁止QQ运行的程序代码

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

    autoit的东西,确实不错,推荐大家学习之,最近没时间,稍后我们一起学习...

    autoit教程网8932021-10-06
  • autoitAut2Exe编译au3脚本为可执行文件

    Aut2Exe编译au3脚本为可执行文件

    把AutoIt的.au3脚本文件编译成可独立运行的程序当然是可实现的,这样就可以使得编译后的程序得以在没有安装AutoIt(或者说没有AutoIt3.exe这个解释程序)的...

    autoit教程网6762021-10-06
  • autoitQQ向陌生人聊天的autoit脚本

    QQ向陌生人聊天的autoit脚本

    直接输入对方的qq号即可和对方交谈的autoit脚本,没什么技术含量,就是需要掌握下autoit的相关知识...

    autoit教程网5032021-10-06
  • autoitautoit3最新汉化版下载

    autoit3最新汉化版下载

    想运行.au3的朋友必备,因这个东西,确实不错,我们提出程序的最低版本都基本是autoit3...

    autoit教程网6792021-10-06
  • autoitautoit 命令行参数说明

    autoit 命令行参数说明

    命令行参数 AutoIt 脚本程序可通过命令行调用,当我们传递命令行参数到脚本中的时候会有一个特殊的数组 $CmdLine 保存相关数据。...

    autoit教程网5742021-10-06