页面导航： 首页 → 脚本专栏 → autoit → 正文内容 autoit 禁止QQ运行

发布：dxy 字体：[增加 减小] 类型：转载

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

文章评论

共有 位脚本之家网友发表了评论我来说两句