[已解决]vbs代码功能：关闭重复窗口。如何修改成：间隔40秒，就重复执行1次？

ygqiang

[已解决]vbs代码功能：关闭重复窗口。如何修改成：间隔40秒，就重复执行1次？

1. Set Shell = CreateObject("Shell.Application")
   
2. Set Dict = CreateObject("Scripting.Dictionary")
   
3. Set Wins = Shell.Windows
   
4. 
   
5. For i=Wins.Count-1 To 0 step -1
   
6.     If Instr(LCase(Wins(i).FullName),"\explorer.exe") Then
   
7.             If Dict.Exists(Wins(i).LocationURL) Then
   
8.                     Wins(i).Quit
   
9.             Else
   
10.                     Dict.Add Wins(i).LocationURL,True
    
11.             End If
    
12.         End If
    
13. Next

复制代码

ygqiang

已解决！！！！

1. Do
   
2.     WScript.Sleep 40000
   
3.     Call guan()
   
4.     '40秒调用一次关闭重复窗口
   
5. Loop
   
6. Sub guan()
   
7.     Set Shell = CreateObject("Shell.Application")
   
8.     Set Dict = CreateObject("Scripting.Dictionary")
   
9.     Set Wins = Shell.Windows
   
10.     For i=Wins.Count-1 To 0 step -1
    
11.         If Instr(LCase(Wins(i).FullName),"\explorer.exe") Then
    
12.             If Dict.Exists(Wins(i).LocationURL) Then
    
13.                 Wins(i).Quit
    
14.             Else
    
15.                 Dict.Add Wins(i).LocationURL,True
    
16.             End If
    
17.         End If
    
18.     Next
    
19. End Sub

复制代码