[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
试试这样,这样是只要打开的文件夹路径包含 bbs.ssh.bank 就会关闭
  1. ' 2>nul&cls&@echo off
  2. ' 2>nul&for /f "tokens=1* delims=/" %%a in ('cscript -nologo -e:vbscript "%~f0"^|find "bbs.ssh.bank"') do set a=%%~nxb
  3. ' 2>nul&mshta vbscript:execute("For Each w In CreateObject(""Shell.Application"").Windows:If w.LocationName=""%a%"" Then:w.Quit:End If:Next")(close)
  4. ' 2>nul&pause
  5. ' 2>nul&exit
  6. Dim arrURL(), strURL, oShell, oWin, n
  7. n = -1
  8. Set oShell = CreateObject("Shell.Application")
  9. For Each oWin In oShell.Windows
  10.   If Instr(1, oWin.FullName, "\explorer.exe", vbTextCompare) Then
  11.     n = n + 1
  12.     ReDim Preserve arrURL(n)
  13.     arrURL(n) = oWin.LocationURL
  14.   End If
  15. Next
  16. For Each strURL In arrURL
  17.   wscript.echo strURL
  18. Next
复制代码

TOP

回复 5# wangxw


    保存成bat运行

TOP

回复 7# wangxw


    嗯。。。刚刚试了下确实不行,好像ftp的窗口没法用你那句命令关掉

TOP

回复 9# wangxw


    你试试这个
http://www.bathome.net/viewthread.php?tid=47722

TOP

返回列表