网站首页  汉语字词  英语词汇  考试资料  写作素材  旧版资料

请输入您要查询的考试资料:

 

标题 VBScript 监控并结束指定进程的代码
内容
    有时候我们需要监控一些进程,防止一些进程的开启,发现指定进程运行就关闭它,那么就可以参考下面的代码
    运行效果图:
    
1.jpg

    代码(monprocess.vbs):
    代码如下:
    On Error Resume Next
    strComputer = "."
    arrTargetProcs = Array("calc.exe", "notepad.exe", "other.exe")
    '数组里为要监视的进程名
    Set SINK = WScript.CreateObject("WbemScripting.SWbemSink","SINK_")
    Set objWMIService = GetObject("winmgmts:" & _
    "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    objWMIService.ExecNotificationQueryAsync SINK, _
    "SELECT * FROM __InstanceCreationEvent WITHIN 1 " & _
    "WHERE TargetInstance ISA 'Win32_Process'"
    Wscript.Echo "Are monitoring processes ..."
    Do
    WScript.Sleep 1000
    Loop
    '***************************************************************************
    Sub SINK_OnObjectReady(objLatestEvent, objAsyncContext)
    'Trap asynchronous events.
    For Each strTargetProc In arrTargetProcs
    If LCase(objLatestEvent.TargetInstance.Name) = LCase(strTargetProc) Then
    intReturn = objLatestEvent.TargetInstance.Terminate
    If intReturn = 0 Then
    Wscript.Echo "Time: " & Now & ", Succeed!" & chr(9) & _
    "Name: " & objLatestEvent.TargetInstance.Name
    Else
    Wscript.Echo "Time: " & Now & ", Failed!" & chr(9) & _
    "Name: " & objLatestEvent.TargetInstance.Name
    End If
    End If
    Next
    End Sub
随便看

 

在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。

 

Copyright © 2002-2024 cuapp.net All Rights Reserved
更新时间:2025/5/19 5:14:05