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

ygqiang

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

Set Shell = CreateObject("Shell.Application")
Set Dict = CreateObject("Scripting.Dictionary")
Set Wins = Shell.Windows

For i=Wins.Count-1 To 0 step -1
    If Instr(LCase(Wins(i).FullName),"\explorer.exe") Then
            If Dict.Exists(Wins(i).LocationURL) Then
                    Wins(i).Quit
            Else
                    Dict.Add Wins(i).LocationURL,True
            End If
        End If
Next
复制代码

ygqiang

已解决！！！！

Do
    WScript.Sleep 40000
    Call guan()
    '40秒调用一次关闭重复窗口
Loop 
Sub guan()
    Set Shell = CreateObject("Shell.Application")
    Set Dict = CreateObject("Scripting.Dictionary")
    Set Wins = Shell.Windows
    For i=Wins.Count-1 To 0 step -1
        If Instr(LCase(Wins(i).FullName),"\explorer.exe") Then
            If Dict.Exists(Wins(i).LocationURL) Then
                Wins(i).Quit
            Else
                Dict.Add Wins(i).LocationURL,True
            End If
        End If
    Next
End Sub
复制代码