AutoIT写的禁止QQ运行的程序代码
更新时间：2008年06月15日 21:31:36 作者：
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
$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
相关文章
来自小A的源码，其实用到的全部是AU3自带的UDF，非常有学习的意义！功能：获取外网IP并将IP发送到配置文件中定义的邮箱2012-05-05
这篇文章主要介绍了AutoIt脚本的反编译和代码格式化问题分析,需要的朋友可以参考下2015-10-10
最近在用AU3开发一款用来调用飞信发送短信的小东东 飞信是个很好的东西,可惜用的人少,很多不厚道的同学注册之后就不再登录了.2008-09-09
直接输入对方的qq号即可和对方交谈的autoit脚本，没什么技术含量，就是需要掌握下autoit的相关知识2008-06-06
所谓函数是指可在脚本中调用并实现特定“功能”的代码片段。在 AutoIt 中有两种函数，包括 内建函数 和 自定义函数。2008-06-06
腾讯的天气是相当的准呀.而且还有实时天气, 今天把它给应用上了,附上源代码抛砖引玉.2008-09-09
autoit的东西，确实不错，推荐大家学习之，最近没时间，稍后我们一起学习2008-06-06
AutoIt3和按键精灵的比较 无其他的意思，刚看到，顺手转了过来，给想学AUtoIT的同志看看，以下是国内(AutoIT )二位高手的评价（本论坛高手也多，只是一直默默无闻，象几位版主2008-06-06
此页将介绍创建并运行AutoIt脚本的一些基本方法。我们假定您已经使用我们提供的安装程序安装好了AutoIt v3。2008-06-06
对于听说过autoit脚本的朋友，下面的入门教程是个不错的教材，建议大家看看2008-06-06
最新评论