求大神帮忙改一下，VBS循环条件成立退出循环

ydm566

1. set WshShell = CreateObject("WScript.Shell")
   
2. WScript.Sleep 1000      ' 延时1秒
   
3. dim wmi,proc,procs,proname,flag,WshShell   
   
4.   
   
5.     proname="QQ.exe" '服务进程的名称
   
6. set wmi=getobject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2")   
   
7. set procs=wmi.execquery("select * from win32_process")   
   
8.   flag=true   
   
9. for each proc in procs   
   
10.     if strcomp(proc.name,proname)=0 then   
    
11.       flag=false   
    
12.       exit for   
    
13.     end if   
    
14. next   
    
15.   set wmi=nothing   
    
16.   if flag then   
    
17.     Set WshShell = Wscript.CreateObject("Wscript.Shell")   
    
18.     WshShell.Run ("D:\QQ\QQ.exe")
    
19. end if  

复制代码

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

yu2n

1. Const AppName = "QQ.exe"        ' 程序名称
   
2. Const AppPath = "D:\QQ\QQ.exe"  ' 程序路径，不知道路径的话留空
   
3. 
   
4. Main
   
5. Sub Main()
   
6.   ' 循环100次
   
7.   For i = 1 To 100
   
8.     ' 延时 1 秒
   
9.     ' WScript.Sleep 1000
   
10.     ' 检查QQ是否运行，运行则退出脚本
    
11.     If IsRun(AppName, AppPath) > 0 Then WScript.Quit(0)
    
12.   Next
    
13.   ' 没有QQ运行，则启动QQ
    
14.   CreateObject("Wscript.Shell").Run AppPath
    
15. End Sub
    
16. 
    
17. ' 检查程序是否运行，返回运行个数
    
18. ' Eg: IsRun("mshta.exe", "c:\test.hta") > 1
    
19. Function IsRun(byVal AppName, byVal AppPath)
    
20.     IsRun = 0 : i = 0
    
21.     For Each objItem in GetObject("winmgmts:\\.\root\cimv2:win32_process").instances_
    
22.         IF LCase(objItem.name) = LCase(AppName) Then
    
23.             If AppPath = "" Then IsRun = 1 : Exit Function
    
24.             IF Instr( LCase(objItem.CommandLine) , LCase(AppPath) ) Then i = i + 1
    
25.         End IF
    
26.     Next
    
27.     IsRun = i
    
28. End Function

复制代码

ydm566

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

ydm566

回复 2# yu2n


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

yu2n

回复 4# ydm566
你是如何判定没有循环100次的？
如果要延时的效果，把第9行代码前的单引号去掉。
如果要体会100次的效果，在第9行后面加1句：

1. Msgbox Now()

复制代码

ydm566

回复 5# yu2n


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

yu2n

代码第2行“ 程序路径，不知道路径的话留空”。

1. Const AppPath = "D:\QQ\QQ.exe"  ' 程序路径，不知道路径的话留空

复制代码

' 程序路径，不知道路径的话留空