[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

怎么让bat文件退出时执行一个命令
比如说我关掉这个bat会执行cdef盘的格式化命令.就是点右上角的叉号执行这个命令.可以吗
还有就是 ECHO.|format d 这个命令写的格式对吗.求高手.谢谢

BAT本身无法捕获到点击叉号这个事件

TOP

句柄,vb以上行。

TOP

本帖最后由 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
复制代码
带内地用语或带里语的文章,在下读写总觉有点吃力;
如误解了各位意思的讲勿见怪   ^_^

TOP

返回列表