Board logo

标题: [系统相关] [已解决]vbs代码功能：关闭重复窗口。如何修改成：间隔40秒，就重复执行1次？ [打印本页]
作者: ygqiang    时间: 2014-11-30 20:09     标题: [已解决]vbs代码功能：关闭重复窗口。如何修改成：间隔40秒，就重复执行1次？

本帖最后由 ygqiang 于 2014-11-30 21:08 编辑

[已解决]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    时间: 2014-11-30 21:07

已解决！！！！
  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
复制代码




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2