求文件监控软件

小倩

那好像是hips软件

小倩

建议用有排除功能的影子系统

adolph.ren

没接触过影子系统 是跟ghost差不多的恢复类软件吗？

小倩

不是，类似于还原卡，不装东西的话非常好用
http://bbs.kafan.cn/forumdisplay.php?fid=87

adolph.ren

大姐（or 大哥） 怎么可能不装东西嘛 ， 呵呵 算了我还是有问题就重装吧 因为我在寝室有一个很响亮的称呼“重装系统男”

雨宫优子

我这里有个工具原创的
监控WINDOWS文件夹
同理也可以监控其它文件夹
不过唯一问题是得自己Taskkill掉
Winows文件夹监控.rar (838 Bytes, 下载次数: 22)

2008-6-14 22:48 上传

点击文件名下载附件
这里还有一个，不用自己Kill掉
——————————————————————————————————————
a=msgbox("是否开始监控文件夹？？",1,"後知後覺")
if a=1 then
set wmi=getobject("winmgmts:\\.\root\cimv2")
set sink=wscript.createobject("wbemscripting.swbemsink","sink_")
wmi.execnotificationqueryasync sink,("SELECT * FROM __InstanceCreationEvent WITHIN 1 where

Targetinstance ISA 'win32_subdirectory' and

TargetInstance.groupcomponent='Win32_Directory.Name=""C:\\\\windows""' or Targetinstance ISA

'cim_directorycontainsfile' and

TargetInstance.groupcomponent='Win32_Directory.Name=""C:\\\\windows""'")
do
wscript.sleep 1000
loop
sub sink_onobjectready(objlatestevent,objasynccontext)
mypath=objlatestevent.targetinstance.PartComponent
mys=instrrev(mypath,"\")
i=right(mypath,len(mypath)-mys)
set fso=createobject("scripting.filesystemobject")
if MsgBox("""" &i& "删除吗？", vbYesNo+vbQuestion, "文件监控") = vbYes then
if instr(i,".")="0" then
fso.deletefolder "C:\Windows\"&i,true
if MsgBox("""" &"是否退出监控？", vbYesNo+vbQuestion, "退出文件监控提示") = vbYes then
set somebody=CreateObject("wscript.shell")
somebody.run "taskkill /f /im unsecapp.exe >nul 2>nul",0,true
wscript.quit
end if
else
fso.deletefile "C:\Windows\"&i,true
set somebody=CreateObject("wscript.shell")
somebody.run "taskkill /f /im unsecapp.exe >nul 2>nul",0,true
wscript.quit
end if
end if
end sub
else
msgbox "已放弃监控。",64,"消息："
end if
——————————————————————————————————————
保存为.VBS

[ 本帖最后由 aarwwefdds 于 2008-6-14 22:52 编辑 ]

adolph.ren

原帖由 aarwwefdds 于 2008-6-14 22:48 发表
我这里有个工具原创的
监控WINDOWS文件夹
同理也可以监控其它文件夹
不过唯一问题是得自己Taskkill掉
286506
这里还有一个，不用自己Kill掉
———————————————————————————————— ...

支持原创 批处理很强大 一起加油

莫忘

呵呵 楼主给你推荐一款底层地
叫做 中华经典网络军刀