三沣开发知识 购物推荐 网址导航 小说 美图 游戏 电影 图库 生肖星座 新闻 笑话 | IT开发 软件 手机 三沣软件 360图书馆 学霸网 装修
多播视频美女直播
↓电视,电影,美女直播,迅雷资源↓
TxT小说阅读器
↓语音阅读,小说下载,古典文学↓
一键清除垃圾
↓轻轻一点,清除系统垃圾↓
图片批量下载器
↓批量下载图片,美女图库↓
vbs/VBScript DOS/BAT hta htc python perl 游戏相关 VBA 远程脚本 ColdFusion ruby专题
autoit seraphzone PowerShell linux shell Lua Golang Erlang 其它教程 CSS/HTML/Xhtml
html5 CSS XML/XSLT Dreamweaver教程 经验交流 开发者乐园 Android开发资料
站长资讯 .NET新手 ASP.NET C# WinForm Silverlight WCF CLR WPF XNA VisualStudio ASP.NET-MVC .NET控件开发 EntityFramework WinRT-Metro Java C++ PHP Delphi Python Ruby C语言 Erlang Go Swift Scala R语言 Verilog 其它语言 架构设计 面向对象 设计模式 领域驱动 Html-Css JavaScript jQuery HTML5 SharePoint GIS技术 SAP OracleERP DynamicsCRM K2 BPM 信息安全 企业信息 Android开发 iOS开发 WindowsPhone WindowsMobile 其他手机 敏捷开发 项目管理 软件工程 SQLServer Oracle MySQL NoSQL 其它数据库 Windows7 WindowsServer Linux
  IT知识库 -> vbs/VBScript -> 杀死指定进程名称的小VBS -> 正文阅读
 

[vbs/VBScript]杀死指定进程名称的小VBS

杀死指定进程名称的小VBS 这篇文章主要介绍了杀死指定进程名称的小VBS,需要的朋友可以参考下
以下是一小段杀死指定进程名字的小vbs,希望对大家有帮助。

Function KillProc(strProcName)
On Error Resume Next
 Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
 Set arrProcesses = objWMIService.ExecQuery( "select * from win32_process where Name ='"&strProcName&"'" )
 For Each proccess In arrProcesses
 proccess.Terminate 0 
 Next
End Function

VBS命令-进程操作代码(检测进程, 结束进程)

//检测进程
进程名 = "qq.exe"
返回值 = IsProcess(进程名)
If 返回值 = True Then
MessageBox "发现进程"
ElseIf 返回值 = False Then
MessageBox "没有发现进程"
End If
//检测进程 优化后的代码
If IsProcess("qq.exe") = True Then 
MessageBox "发现进程"
Else 
MessageBox "没有发现进程"
End If
//检测进程组
进程组 = "qq.exe|notepad.exe"
返回值 = IsProcessEx(进程组)
If 返回值 = True Then
MessageBox "发现进程"
ElseIf 返回值 = False Then
MessageBox "没有发现进程"
End If
//检测进程组 优化后的代码
If IsProcessEx("qq.exe|notepad.exe") = True Then 
MessageBox "发现进程"
Else 
MessageBox "没有发现进程"
End If
//结束进程 前台执行
进程名 = "qq.exe"
Call CloseProcess(进程名, 1)
//结束进程 后台执行
进程名 = "qq.exe"
Call CloseProcess(进程名, 0)
//结束进程组 前台执行
进程组 = "qq.exe|notepad.exe"
Call CloseProcessEx(进程组, 1)
//结束进程组 后台执行
进程组 = "qq.exe|notepad.exe"
Call CloseProcessEx(进程组, 0)
//实例应用 结束进程 前台执行 10秒超时
进程名 = "qq.exe"
For 10
Call CloseProcess(进程名,1)
Delay 1000
返回值 = IsProcess(进程名)
If 返回值 = False Then
Exit For
End If
Next
If 返回值=True Then
MessageBox "结束进程失败"
Else
MessageBox "结束进程成功"
End If
//实例应用 结束进程 前台执行 优化后的代码(直到型循环) 有些进程VBS检测不到 所以先关闭后检测
Do
Call CloseProcess("qq.exe",1)
Delay 1000
Loop While IsProcess("qq.exe")=True
MessageBox "结束进程成功"
//实例应用 结束进程组 后台执行 10秒超时
进程组 = "qq.exe|notepad.exe"
For 10
Call CloseProcessEx(进程组,0)
Delay 1000
返回值 = IsProcessEx(进程组)
If 返回值 = False Then
Exit For
End If
Next
If 返回值=True Then
MessageBox "结束进程失败"
Else
MessageBox "结束进程成功"
End If
//实例应用 结束进程组 后台执行 优化后的代码(直到型循环) 有些进程VBS检测不到 所以先关闭后检测
Do
Call CloseProcessEx( "qq.exe|notepad.exe",0)
Delay 1000
Loop While IsProcessEx( "qq.exe|notepad.exe")=True
MessageBox "结束进程成功"
//函数 子程序部分代码
//检测进程
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/VBScript 最新文章
vbs枚举进程 vbs列出进程的详细列表
查询电脑开关机时间的vbs代码
通过vbs修改以点结尾的文件的属性为隐藏
杀死指定进程名称的小VBS
无法执行vbs脚本中遇到的问题及解决方案
window通过vbs+bat实现自动在后台运行nodej
VBS教程:方法-MoveFile方法
vbs实现只复制比目标文件更新的文件
VBS教程:方法-Delete方法
vbs/js脚本编程教学(2)
上一篇文章      下一篇文章      查看所有文章
加:2016-12-22 04:09:49  更:2016-12-22 04:09:51 
 
技术频道: 站长资讯 .NET新手区 ASP.NET C# WinForm Silverlight WCF CLR WPF XNA Visual Studio ASP.NET MVC .NET控件开发 Entity Framework WinRT/Metro Java C++ PHP Delphi Python Ruby C语言 Erlang Go Swift Scala R语言 Verilog 其它语言 架构设计 面向对象 设计模式 领域驱动设计 Html/Css JavaScript jQuery HTML5 SharePoint GIS技术 SAP Oracle ERP Dynamics CRM K2 BPM 信息安全 企业信息化其他 Android开发 iOS开发 Windows Phone Windows Mobile 其他手机开发 敏捷开发 项目与团队管理 软件工程其他 SQL Server Oracle MySQL NoSQL 其它数据库 Windows 7 Windows Server Linux
脚本语言: vbs/VBScript DOS/BAT hta htc python perl 游戏相关 VBA 远程脚本 ColdFusion ruby专题 autoit seraphzone PowerShell linux shell Lua Golang Erlang 其它教程
网站开发: CSS/HTML/Xhtml html5 CSS XML/XSLT Dreamweaver教程 经验交流 开发者乐园 Android开发资料
360图书馆 论文大全 母婴/育儿 软件开发资料 网页快照 文字转语音 购物精选 软件 美食菜谱 新闻中心 电影下载 小游戏 Chinese Culture
生肖星座解梦 三沣玩客 拍拍 视频 开发 Android开发 站长 古典小说 网文精选 搜图网 天下美图 中国文化英文 多播视频 装修知识库
2017-2-23 6:43:14
多播视频美女直播
↓电视,电影,美女直播,迅雷资源↓
TxT小说阅读器
↓语音阅读,小说下载,古典文学↓
一键清除垃圾
↓轻轻一点,清除系统垃圾↓
图片批量下载器
↓批量下载图片,美女图库↓
  网站联系: qq:121756557 email:121756557@qq.com  IT知识库