VBS进程判断代码
更新时间:2020年6月30日 23:54 点击:1481
vbs核心代码
Option Explicit Dim objWMIService,colProcessList,strComputer strComputer = "." Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name = 'excel.exe'") If colProcessList.Count>0 Then MsgBox "检测到EXCEL程序运行中,程序退出!" WScript.Quit End If Set colProcessList = Nothing Set objWMIService = Nothing WScript.Quit
当然你可以判断 winrar.exe等等
下面附一个代码,原来中文命名的,猪先飞已经修改为英文命名并且正常运行了,因为时间问题,需要的朋友可以自行修改精简
'检测进程 proname = "qq.exe" reName = IsProcess(proname) If reName = True Then msgbox "发现进程" ElseIf reName = False Then msgbox "没有发现进程" End If '检测进程 优化后的代码 If IsProcess("qq.exe") = True Then msgbox "发现进程" Else msgbox "没有发现进程" End If '检测进程组 proName_all = "qq.exe|notepad.exe" reName = IsProcessEx(proName_all) If reName = True Then msgbox "发现进程" ElseIf reName = False Then msgbox "没有发现进程" End If '检测进程组 优化后的代码 If IsProcessEx("qq.exe|notepad.exe") = True Then msgbox "发现进程" Else msgbox "没有发现进程" End If '结束进程 前台执行 proname = "qq.exe" Call CloseProcess(proname, 1) '结束进程 后台执行 proname = "qq.exe" Call CloseProcess(proname, 0) '结束进程组 前台执行 proName_all = "qq.exe|notepad.exe" Call CloseProcessEx(proName_all, 1) '结束进程组 后台执行 proName_all = "qq.exe|notepad.exe" Call CloseProcessEx(proName_all, 0) '实例应用 结束进程 前台执行 10秒超时 proname = "qq.exe" For i=1 to 10 Call CloseProcess(proname,1) Delay 1000 reName = IsProcess(proname) If reName = False Then Exit For End If Next If reName=True Then msgbox "结束进程失败" Else msgbox "结束进程成功" End If '实例应用 结束进程 前台执行 优化后的代码(直到型循环) 有些进程VBS检测不到 所以先关闭后检测 Do Call CloseProcess("qq.exe",1) Delay 1000 Loop While IsProcess("qq.exe")=True msgbox "结束进程成功" '实例应用 结束进程组 后台执行 10秒超时 proName_all = "qq.exe|notepad.exe" For j=1 to 10 Call CloseProcessEx(proName_all,0) Delay 1000 reName = IsProcessEx(proName_all) If reName = False Then Exit For End If Next If reName=True Then msgbox "结束进程失败" Else msgbox "结束进程成功" End If '实例应用 结束进程组 后台执行 优化后的代码(直到型循环) 有些进程VBS检测不到 所以先关闭后检测 Do Call CloseProcessEx( "qq.exe|notepad.exe",0) Delay 1000 Loop While IsProcessEx( "qq.exe|notepad.exe")=True msgbox "结束进程成功" '函数 子程序部分代码 '检测进程 Function IsProcess(ExeName) Dim WMI, Obj, Objs,i IsProcess = False Set WMI = GetObject("WinMgmts:") Set Objs = WMI.InstancesOf("Win32_Process") For Each Obj In Objs If InStr(UCase(ExeName),UCase(Obj.Description)) <> 0 Then IsProcess = True Exit For End If Next Set Objs = Nothing Set WMI = Nothing End Function '结束进程 Sub CloseProcess(ExeName,RunMode) dim ws Set ws = createobject("Wscript.Shell") ws.run "cmd.exe /C Taskkill /f /im " & ExeName,RunMode Set ws = Nothing End Sub '检测进程组 Function IsProcessEx(ExeName) Dim WMI, Obj, Objs,ProcessName,i IsProcessEx = False Set WMI = GetObject("WinMgmts:") Set Objs = WMI.InstancesOf("Win32_Process") ProcessName=Split(ExeName,"|") For Each Obj In Objs For i=0 to UBound(ProcessName) If InStr(UCase(ProcessName(i)),UCase(Obj.Description)) <> 0 Then IsProcessEx = True Exit For End If Next Next Set Objs = Nothing Set WMI = Nothing End Function '结束进程组 Sub CloseProcessEx(ExeName,RunMode) dim ws,ProcessName,CmdCode,i ProcessName = Split(ExeName, "|") For i=0 to UBound(ProcessName) CmdCode=CmdCode & " /im " & ProcessName(i) Next Set ws = createobject("Wscript.Shell") ws.run "cmd.exe /C Taskkill /f" & CmdCode,RunMode Set ws = Nothing End Sub
好了这篇关于vbs进程判断的文章就介绍到这
下一篇: VBS一键配置VOIP脚本代码
相关文章
- 本篇文章主要分享了通过window.navigator来判断浏览器及其版本信息的实例代码。具有一定的参考价值,下面跟着小编一起来看下吧...2017-01-23
- 今天在写一个vbs的时候,发现中文乱码,后来写好代码正常运行的代码压缩一下给了同事,发现报无效字符,经过验证后发现原来是编码的问题导致,这里就为大家分享一下...2020-06-30
- 使用 conditional comment 来判断 IE 的版本。嗯,是早早有人提出,但没有认真看代码。昨天刚好在看 CSS3 PIE 的时候看到,觉得是不是不靠谱。今天看到 Paul Irish 也提起,那么,推荐一下吧。这是作者博客上写的:复制代码 代码...2014-05-31
- 下面小编就为大家分享一篇c# 判断是否为空然后赋值的4种实现方法,具有很好的参考价值,希望对大家有所帮助。一起跟随小编过来看看吧...2020-06-25
- 今天在脚本之家看了几篇关于vbs FileSystemObject的一些资料,发现不够详细与完整这里刚好发现了一篇更好的文章特整理一下,需要的朋友可以参考下...2020-06-30
- 具体详情请看下文小编给大家带来的知识点。同编写程序类似,存储过程中也有对应的条件判断,功能类似于if、switch。在MySql里面对应的是IF和CASE1、IF判断IF判断的格式是这样的:IF expression THEN commands [ELSEIF ex...2015-10-21
PHP中empty和isset对于参数结构的判断及empty()和isset()的区别
废话不多说了,直接给大家贴代码了。<?php class test{} $a1 = null; $a2 = ""; //$a3 = $a4 = 0; $a5 = '0'; $a6 = false; $a7 = array(); //var $a8; $a9 = new test(); for ($i=1; $i <=9 ; $i++) {...2015-11-24- 这篇文章主要介绍了java正则表达式判断前端参数修改表中另一个字段的值,需要的朋友可以参考下...2021-05-07
- 这篇文章主要介绍了C#启动进程的几种常用方法,实例分析了C#对系统进行的相关操作技巧,需要的朋友可以参考下...2020-06-25
- 这篇文章主要介绍了C#判断一个字符串是否是数字或者含有某个数字的方法,本文给大家介绍的非常详细,具有一定的参考借鉴价值,需要的朋友可以参考下...2020-06-25
- 在本篇文章里小编给大家分享了关于C#获取所有进程的方法和步骤,有需要的朋友们跟着学习参考下。...2020-06-25
- 今天小编大家分享一篇C#获得程序的根目录以及判断文件是否存在的实例讲解,具有很好的参考价值,希望对大家有所帮助。一起跟随小编过来看看吧...2020-06-25
- 这篇文章主要介绍了vbs 读写注册表之系统启动项添加值,需要的朋友可以参考下...2020-06-30
从PHP $_SERVER相关参数判断是否支持Rewrite模块
如果是http://www.jb51.net/p1141.html形式的URL,可通过$_SERVER['REQUEST_URI']和$_SERVER['QUERY_STRING']值的区别来分析,最主要是如果页面是通过重定向会产生$_SERVER['REDIRECT_QUERY_STRING']和$_SERVER['REDIREC...2013-10-04- C#获取进程的主窗口句柄的实现方法,需要的朋友可以参考一下...2020-06-25
- 这篇文章主要介绍了C#使用SendMessage实现进程间通信的方法,涉及C#中SendMessage方法的使用技巧,非常具有实用价值,需要的朋友可以参考下...2020-06-25
- 这篇文章主要介绍了iis7或iis7.5中无法找到脚本文件adsutil.vbs的解决方法,需要的朋友可以参考下...2016-01-27
- 这篇文章主要介绍了使用VBS浏览本地文件的3种方式,获取完整路径,需要的朋友可以参考下...2020-06-30
- 这篇文章主要介绍了简单用VBS调用企业微信机器人发定时消息的方法,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友们下面随着小编来一起学习学习吧...2020-12-08
- 这篇文章主要介绍了C#中进程的挂起与恢复操作方法,非常不错,具有参考借鉴价值,需要的朋友可以参考下...2020-06-25