关闭“计算机”窗口的批处理命令是什么？

slore

CloseExplorerIEWindows.vbs

1. Set SHApp = CreateObject("Shell.Application")
   
2. Dim i,n
   
3. Dim win(100)
   
4. n=0
   
5. 'Do
   
6.     For Each SHWin In SHApp.windows
   
7.         'WSH.Echo SHWin.FullName
   
8.         'WSH.Echo SHWin.LocationURL
   
9.         'WSH.Echo SHWin.LocationName
   
10.         Set win(n)=SHWin
    
11.         'SHWin.Quit
    
12.         n=n+1
    
13.         'If InStr(SHWin.LocationURL, "www.baidu.com") > 1 Then
    
14.         '    SHWin.Quit
    
15.         'ElseIf SHWin.LocationURL = "file:///D:/" Then
    
16.         '    SHWin.Quit
    
17.         'ElseIf SHWin.LocationURL = "file:///C:/" Then
    
18.         '    Exit Do
    
19.         'End If
    
20.     Next
    
21.     'WSH.Sleep(1000)
    
22. 'Loop
    
23. 
    
24. For i=0 To n - 1
    
25.     win(i).Quit
    
26. Next

复制代码