[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] 10元红包求大神给段代码,VBS批量检测进程

求大神给段代码,VBS批量检测进程,比如检测A.txt的进程是否在运行,如果存在A.txt文本的进程名则结束XXX.exe继续检测,如不存在则启动xxx.exe,也就是说 A.TXT进程存在则XXX进程不存在,XXX进程存在则A。txt的进程不存在
A.TXT
1111.exe
sss.exe
eeee。exe
写好留下支付宝,要VBS,VB都行。

Dim WMI,WS,SF
Dim objs,line,file1
Set SF=CreateObject("Scripting.FileSystemObject")
Set WS = CreateObject("Wscript.Shell")
Set WMI = GetObject("WinMgmts:\\.\root\cimv2")
Set file1=SF.OpenTextFile("A.txt")
DO While file1.AtEndOfStream <> True
        line =file1.ReadLine
        Set objs = WMI.ExecQuery("Select * from Win32_Process where name='&line&'")
        if objs.count=0 then
        WS.Run(line)
        else
        end if
Loop
file1.Close
Fit Strong

TOP

试一试,不知道对不
Fit Strong

TOP

本帖最后由 qq866286 于 2022-3-14 21:56 编辑

回复 3# Fit


    刚才测试了,好像不对,他是启动了A.txt里的进程,不是判断

TOP

返回列表