鸿 网 互 联 www.68idc.cn

当前位置 : 服务器租用 > 网络程序脚本 > autoit > >

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

来源:互联网 作者:佚名 时间:2015-08-10 07:02
if ProcessExists("qq.exe") then $QQPID = ProcessExists("qq.exe") ProcessClose ($QQPID) endif =============================================================== Set objWMIService = GetObject("winmgmts:" lt; "0" Then objLatestProcess.TargetInsta
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
网友评论
<