批处理纪录软件运行

key2004

1. @echo off&setlocal EnableDelayedExpansion
   
2. ::测试方法:
   
3. ::当窗口显示  开始延时20秒............  的时候,运行一个新的程序...
   
4. ::cmd结束后,查看运行纪录.txt可以看到新程序的路径.
   
5. 
   
6. 
   
7. set "var=wmic process get Caption^,ExecutablePath"
   
8. echo %date%>运行纪录.txt
   
9. echo %time%>>运行纪录.txt
   
10. echo.>>运行纪录.txt
    
11. cd.>样本.txt
    
12. for /f "skip=3 tokens=2* delims= " %%i in ('%var%') do (
    
13.   call :lis %%i %%j
    
14.   echo !num!>>样本.txt
    
15.   )
    
16.   echo 开始延时20秒............
    
17.   ping 127.1 -n 20 >nul 2>nul
    
18.   for /f "delims=" %%a in ('type 样本.txt') do (
    
19.   set num=%%a
    
20.   set num=!num: =!
    
21.   set !num!=a
    
22.   )
    
23. ::检测，比对
    
24.   for /f "skip=3 tokens=2* delims= " %%a in ('%var%') do (
    
25.   call :lis %%a %%b
    
26.   set num=!num: =!
    
27.   if not defined !num! echo %%a %%b>>运行纪录.txt
    
28.   )
    
29. exit
    
30. :lis
    
31. set num=%1 %2
    
32. :loop
    
33. if "!num:~-1!"==" " set num=!num:~0,-1!&goto loop
    
34. goto :eof

复制代码

随风

提几个建议：1、转载代码，最好注明转载地址，及作者信息。  2、代码最好用  [code]  和  [/code]扩起来，方便浏览和复制。

[[i] 本帖最后由 随风 于 2008-4-18 22:51 编辑 [/i]]

gavincwb

谢谢楼主分享了
蛮好的

garyng

回复 1# key2004

楼主啊～
复制代码很麻烦啊～
请用【code]     【/code]将代码扩起来～
请参考：http://bbs.bathome.net/viewthread.php?tid=404&highlight=%B4%FA%C2%EB

xslxslxsl

好东西啊，好好研究一下

mstsc

好东西啊   一看见就马上进来了，谢谢分享

kenneth

回复 1# key2004


    请问d盘下有个kenneth..文件为何删不掉，求解。。。

hjfeng1988

回复 7# kenneth


    一般是恶意创建出来的文件夹，至于是什么原理，上网搜索下吧，我也忘记了。
创建方法：md kenneth...\
进入方法：开始>运行>D:\kenneth...\
删除方法：rd kenneth...\

小河都江堰

谢谢分享