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

页面导航:首页 > 脚本专栏 > autoit > AutoIT写的禁止QQ运行的程序代码

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

来源:互联网 作者:脚本宝典 时间:2015-07-20 18:12 【

ifProcessExists(qq.exe)then $QQPID=ProcessExists(qq.exe) ProcessClose($QQPID) endif =============================================================== SetobjWMIService=GetObject(winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2) SetcolM

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 

Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<