找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 20047|回复: 3

[文件操作] 求助.bat关闭时怎么运行最后一个命令

[复制链接]
发表于 2012-12-9 18:11:10 | 显示全部楼层 |阅读模式
怎么让bat文件退出时执行一个命令
比如说我关掉这个bat会执行cdef盘的格式化命令.就是点右上角的叉号执行这个命令.可以吗
还有就是 ECHO.|format d 这个命令写的格式对吗.求高手.谢谢
发表于 2012-12-9 18:39:29 | 显示全部楼层
BAT本身无法捕获到点击叉号这个事件
发表于 2012-12-9 20:13:07 | 显示全部楼层
句柄,vb以上行。
发表于 2012-12-10 12:34:59 | 显示全部楼层
本帖最后由 Taurus 于 2012-12-10 12:39 编辑

別做壞事
  1. ''>nul 2>nul&@echo off&setlocal enabledelayedexpansion&mode con: cols=40 lines=2&title Marquee test
  2. ''>nul 2>nul&start "" wscript "%0" %0  //Nologo //e:vbscript.encode
  3. ''>nul 2>nul&set stra=/.............Marquee test..............
  4. ''>nul 2>nul&set strb=/.........Code by Area_66.Taurus........
  5. :'lp
  6. ''>nul 2>nul&if "!Fly:~1,1!"=="/" set stra=!strb!&set strb=%stra%&set/anum=0,num2=0
  7. ''>nul 2>nul&set Fly=!stra:~%num%,-1!!strb:~0,%num%!
  8. ''>nul 2>nul&set /a num2-=1,num+=1
  9. ''>nul 2>nul&cls&echo.!Fly!
  10. ''>nul 2>nul&set/p=!stra:~%num2%,-1!!strb:~0,%num2%!<nul
  11. ''>nul 2>nul&ping /?>nul&ping /?>nul&ping /?>nul
  12. ''>nul 2>nul&goto :'lp
  13. '=====================================================================
  14. Batpath = replace(Wscript.Arguments(0),"","\")
  15. set ws=createobject("wscript.shell")
  16. do
  17.     WScript.Sleep 1000
  18.     Set objSWbemServices = GetObject ("WinMgmts:Root\Cimv2")
  19.     Set colProcess = objSWbemServices.ExecQuery ("Select * From Win32_Process Where Caption='CMD.EXE' AND commandline LIKE '%" & "CMD /c" & "%" & Batpath & """ ""'")
  20.     If colProcess.Count = 0 Then
  21.         ws.run "cmd.exe /c set/p=Format Command~!!!",1
  22.         wscript.quit
  23.     End If
  24. loop
复制代码
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-19 19:27 , Processed in 0.018490 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表