• 站长首页
  • 源码下载
    HTML源码 ASP源码 PHP源码 .NET源码 其他源码
  • 网站模板
    织梦模板 ShopEx模板 EcShop模板 Discuz模板 帝国模板
  • 网站素材
    字体下载 高清图片 网页模板 PSD素材 矢量素材
  • 网页特效
    返回顶部 图片代码 鼠标特效 菜单导航 HTML5特效
  • 站长资讯
    网站运营 建站经验 搜索优化 互联网
快捷导航

源码下载

HTML源码 ASP源码 PHP源码 .NET源码 其他源码

网站模板

织梦模板 ShopEx模板 EcShop模板 Discuz模板 帝国模板

网站素材

字体下载 高清图片 网页模板 PSD素材 矢量素材

网页特效

返回顶部 图片代码 鼠标特效 菜单导航 HTML5特效

站长资讯

网站运营 建站经验 搜索优化 互联网

软件下载

电脑软件 安卓软件 苹果软件

建站功具

WEB服务器 网页设计 FTP工具 建站辅助

建站教程

服务器教程 CMS教程 脚本之家
重庆站长网

模板

投稿中心
  • 站长首页

  • 源码下载

  • 网站模板

  • 网站素材

  • 网页特效

  • 站长资讯

  • 软件下载

  • 建站功具

  • 建站教程

  • 程序插件

  • 网站基础

  • 帮助中心

HTML源码 ASP源码 PHP源码 .NET源码 其他源码 微擎微赞模块 VIP源码 淘宝客网站源码

织梦模板 ShopEx模板 EcShop模板 Discuz模板 帝国模板 WordPress主题

字体下载 高清图片 网页模板 PSD素材 矢量素材 免抠素材 PPT模板

返回顶部 图片代码 鼠标特效 菜单导航 HTML5特效 css3特效 日期时间 选项卡_滑动门 HTML5小游戏 动画效果 表单按钮 jquery特效

网站运营 建站经验 搜索优化 互联网

电脑软件 安卓软件 苹果软件

WEB服务器 网页设计 FTP工具 建站辅助

服务器教程 CMS教程 脚本之家

shopex插件 Discuz!插件 pjblog插件 wordpress插件 dedecms插件 ecshop插件 phpcms插件

HTML教程 DIV&CSS Javascript/Ajax Dreamweaver XHTML教程 W3C教程

关于我们 联系我们 广告服务 投稿指南 友情链接 积分金币规则 加入VIP会员

当前位置:首页 > 建站教程 > 脚本之家 > 杀死指定进程名称的小VBS_vbs

杀死指定进程名称的小VBS_vbs

时间:2019-11-14 11:54:48 来源:用户投稿 浏览: 次

以下是一小段杀死指定进程名字的小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修改以点结尾的文件的属性为隐藏
    • 收藏
    • 打印

    相关阅读

  • 查询电脑开关机时间的vbs代码

    这篇文章主要介绍了查询电脑开关机时间的vbs代码,需要的朋友可以参考下...

  • 2019-11-14

    资讯列表

    • 服务器教程
    • CMS教程
    • 脚本之家

    文章排行榜

    • 1 解决DedeCms5.7更新软件不能上传图片问题
    • 2 移动web端屏幕适配(rem)
    • 3 百科外链时代终结:百度百科参考资料全部替换为百度快照
    • 4 网页文本排版知识:为正确的内容使用恰当的标签
    • 5 大型强子对撞机首次加速原子:达到接近光速
    • 6 自身产品运营数据分析的5个步骤
    • 7 企业网站制作怎么样可以把握好用户体验
    • 8 精选15个国外CSS框架
    • 9 桌面远程管理程序使用教程(最新)
    • 10 CSS基础入门教程之CSS id 选择器

    热门标签

      魅族 魅族Flyme Facebook Facebook隐私 Faceboo 漏洞 HTTPS 融360 叶大清 融360法人 PHP8 JIT 荣耀10i 京东 京东汽车 汽车 电商 Ruby 恶意后门 代码
    返回
    顶部
    关于我们 联系我们 广告服务 投稿指南 友情链接 积分金币规则 加入VIP会员

    备案号:

    Copyright © 2016-2018 重庆站长网 版权所有

    ×