[问题求助] 求大神帮忙改一下，VBS循环条件成立退出循环

ydm566

set WshShell = CreateObject("WScript.Shell")
WScript.Sleep 1000      ' 延时1秒
dim wmi,proc,procs,proname,flag,WshShell    
  
    proname="QQ.exe" '服务进程的名称
set wmi=getobject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2")    
set procs=wmi.execquery("select * from win32_process")    
  flag=true    
for each proc in procs    
    if strcomp(proc.name,proname)=0 then    
      flag=false    
      exit for    
    end if    
next    
  set wmi=nothing    
  if flag then    
    Set WshShell = Wscript.CreateObject("Wscript.Shell")    
    WshShell.Run ("D:\QQ\QQ.exe")
end if  
复制代码

求大神帮忙改一下，循环100次检测QQ进程，如果检测次数在100次内QQ进程存在了，就退出速个VBS脚本，如果检测100次还没有QQ进程，就执行D:\QQ\QQ.exe

ydm566

测试效果不对，和我上面的差不多，并没有循环检测，当没有QQ的时候，没有循环检测到100次，直接就打开QQ了

ydm566

回复 2# yu2n


    测试效果不对，和我上面的差不多，并没有循环检测，当没有QQ的时候，没有循环检测到100次，直接就打开QQ了

ydm566

回复 5# yu2n


    大神，您测试一下。运行VBS以后，进程里有QQ，并没有退出VBS，还是执行了打开QQ这个操作