[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
回复 8# mstsc
加油学!
  1. @echo off&setlocal EnableDelayedExpansion
  2. REM 开启变量延迟
  3. ::测试方法:
  4. ::当窗口显示  开始延时20秒............  的时候,运行一个新的程序...
  5. ::cmd结束后,查看运行纪录.txt可以看到新程序的路径.
  6. set "var=wmic process get Caption^,ExecutablePath"
  7. echo %date%>运行纪录.txt
  8. echo %time%>>运行纪录.txt
  9. echo.>>运行纪录.txt
  10. cd.>样本.txt
  11. REM 创建临时文件
  12. for /f "skip=3 tokens=2* delims= " %%i in ('%var%') do (
  13. call :lis %%i %%j
  14. REM CALL 调用子过程"lis"(跳转到标签":lis"),%%i 做为第一个参数,%%j做为第二个参数
  15. REM 不过这里的代码不严谨,可执行文件路径有空格呢?
  16. echo !num!>>样本.txt
  17. )
  18. echo 开始延时20秒............
  19. ping 127.1 -n 20 >nul 2>nul
  20. for /f "delims=" %%a in ('type 样本.txt') do (
  21. set num=%%a
  22. set num=!num: =!
  23. REM 删除样本中每行的空格
  24. set !num!=a
  25. REM 给每行做个“标签”,即赋值
  26. )
  27. REM 检测,比对
  28. for /f "skip=3 tokens=2* delims= " %%a in ('%var%') do (
  29. call :lis %%a %%b
  30. REM CALL 调用子过程"lis"(跳转到标签":lis")
  31. set num=!num: =!
  32. REM 删除样本中每行的空格
  33. if not defined !num! echo %%a %%b>>运行纪录.txt
  34. REM 如果没有做过“标签”,即为新进程
  35. )
  36. exit
  37. :lis
  38. set num=%1 %2
  39. :loop
  40. if "!num:~-1!"==" " set num=!num:~0,-1!&goto loop
  41. REM 这句我没看懂,不明白原作者的用意,不知是不是想删除WMIC产生的空格?
  42. goto :eof
复制代码
1

评分人数

    • mstsc: 非常感谢技术 + 1

TOP

返回列表