10元红包求大神给段代码，VBS批量检测进程

qq866286

求大神给段代码，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都行。

Fit

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

试一试，不知道对不

qq866286

回复 3# Fit


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