|
xiaohacker
初级用户
积分 110
发帖 45
注册 2007-1-7
状态 离线
|
『楼 主』:
批处理记录日常操作怎么做？？？
使用 LLM 解释/回答一下
谁能帮我写这样的一个批处理啊？
（1）当打开该批处理后，就开始记录用户使用电脑的操作记录，将用户打开的
那些文件和文件夹以快捷方式的形式保存到某一指定的文件夹里面（我知道电脑
系统自己会将用户的操作记录保存到C:\Documents and
Settings\Administrator\Recent
目录下面，但这个容易被稍有电脑常识的人识破）。
（2）运行这个批处理时，这个批处理应该是在后台运行的，即没有窗口，也没
有最小化到任务栏里面。
|
|
 2007-12-23 20:16 |
|
|
xiaohacker
初级用户
积分 110
发帖 45
注册 2007-1-7
状态 离线
|
『第 2 楼』:
不好意思
使用 LLM 解释/回答一下
不好意思，我发表了新话题之后，刷新了三次，搞得弄了三个话题都是重复的，实在是抱歉！！！:(
|
|
|
2007-12-23 20:18 |
|
|
mayu2004
初级用户
积分 109
发帖 40
注册 2007-12-22
状态 离线
|
『第 3 楼』:
使用 LLM 解释/回答一下
有个 思路 不知道 怎么 杨
用 vbs 启动 批 的话 大概能 达到 后台的效果 不过 进程 管理器 有个 cmd 进程
可以 用 命令
copy C:\Documents and
Settings\Administrator\Recent
里的内容 然后清空 用 延迟 命令 控制 copy 速度
然后 一直 循环
-------------- 有点 乱
|
|
|
2007-12-23 20:32 |
|
|
mayu2004
初级用户
积分 109
发帖 40
注册 2007-12-22
状态 离线
|
『第 4 楼』:
使用 LLM 解释/回答一下
呵呵 我 写 了 个
有点 简陋 可以 自己 修改
-----------------------------
@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 ]
|
|
|
2007-12-23 20:42 |
|
|
xiaohacker
初级用户
积分 110
发帖 45
注册 2007-1-7
状态 离线
|
『第 5 楼』:
谢谢
使用 LLM 解释/回答一下
谢谢楼上兄弟的答复，我开始也是这么想的，但最后觉得这样做是否有点太浪费系统的内存了？不过明天给你加分吧，今天我加的分超过我的限制了！
|
|
|
2007-12-23 21:05 |
|
|
xiaohacker
初级用户
积分 110
发帖 45
注册 2007-1-7
状态 离线
|
『第 6 楼』:
帮忙改改啊！！！
使用 LLM 解释/回答一下
本人是个超级菜鸟啊，我写了个下面的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
|
|
|
2007-12-23 21:42 |
|
|
mayu2004
初级用户
积分 109
发帖 40
注册 2007-12-22
状态 离线
|
『第 7 楼』:
使用 LLM 解释/回答一下
不懂 vbs 不过 用 批处理 的话 延迟 高 一些 的话
因该 没 问题
我机器 测试过
能 控制在 5m 以下的内存
|
|
|
2007-12-24 08:33 |
|
