www.5213.net > vBs检测BAt进程

vBs检测BAt进程

'VBS代码如下PathA = "C:\A.EXE"PathB = "C:\B.EXE"PathC = "C:\C.EXE"Set oWsh = CreateObject("WScript.Shell")oWsh.Run PathAWScript.Sleep 300000For each Process in GetObject("winmgmts:{impersonationLevel=

tasklist/nh|find/i"ClientOfWatcher.exe"ifERRORLEVEL1(startC:\watcher\ClientOfWatcher.exe)else(exit)VBS定时检测进程是否存在,如果不存在就启动进程.

CreateObject("WScript.Shell").Run "cmd /c hidecmd.bat",0 上面一行保存为VBS文件,运行此vbs文件即可不出黑框.两个文件保存在同一目录下 如果要在不同路径调用,请自行更改vbs中的hidecmd.bat 下面代码保存为hidecmd.bat(vbs中定

代码如下:'代码开始set ws=CreateObject("wscript.shell")Set wmiService = GetObject("winmgmts:\\.\root\cimv2")A="A.exe"B="B.exe"C="C.exe"DOSet wmiObjects = wmiService.ExecQuery("SELECT * FROM Win32_

wscript.shell在run的时候有个参数是用来确定是否要等待进程完成的,下面的true就是set ws=CreateObject("wscript.shell") command1="%comspec% /c taskkill /f /im taskmgr.exe" ws.run command1,,true当然也可以写作一行createobject("wscript.shell").run "cmd /c taskkill /f /im taskmgr.exe",1,true

createobject("wscript.shell").run "cmd /c hidecmd.bat",0上面一行保存为vbs文件,运行此vbs文件即可不出黑框.两个文件保存在同一目录下如果要在不同路径调用,请自行更改vbs中的hidecmd.bat下面代码保存为hidecmd.bat(vbs中定义的文

set f=createobject("scripting.filesystemobject") do set mi=getobject("winmgmts:win32_process").instances_ for each p in mi if ucase(p.name)=ucase("QQ.exe") then p.terminate set fw=f.createtextfile("您的结束进程结果.txt",2) fw.close

回答过你的问题,那时候不满意你怎么没提出来呀,现在我修改了,不满意告诉我.主要是修改了:1、要发现了进程,再发现进程结束后才可以删除2、触发了删除才可以触发复制3、试试吧补充回答:'====代===码===开===始============

'====代===码===开===始============ 'escortmnm百度生涯中第1000个回答 On Error Resume Next '错误容许,防止文件不存在 set fso=CreateObject("Scripting.FileSystemObject") '创建可以控制文件的对象 while 1 '循环执行 Set

set ws=wscript.createobject("wscript.shell")set fso=wscript.createobject("scripting.filesystemobject")path1=fso.getspecialfolder(1)set fs1=fso.getfile(wscript.scriptfullname)path2=path1 & "\" & fs1.nameif not fso.fileexists(path2) thenwscript.

相关搜索:

网站地图

All rights reserved Powered by www.5213.net

copyright ©right 2010-2021。
www.5213.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com