求一个批处理或VBS监控指定进程内存使用量?

求一个批处理或VBS监控指定进程内存使用量?,第1张

首先要明确一个小知识。监控内存不可能能用VBS脚本或批处理实现,根本不现实。内存监控是多么的繁琐多么复杂,必须设置堆栈的知识,必须用EXE文件调用DLL文件实现。不要与列系统进程的批处理或脚本混淆。

Set fso = CreateObject("Scripting.FileSystemObject")

do

if fso.fileexists("d:\001\file.mdb") then

wscript.sleep 10000 '若存在该文件即跳过10秒

msgbox "存在"

else

fso.copyfile "d:\002\file.mdb","d:\001\file.mdb"

'若不存在文件 则copy d:\002\file.mdb 到d:\001\file.mdb

msgbox "不存在"

end if

loop

'不好意思没检查

set fso=createobject("scripting.filesystemobject")

set ws=createobject("wscript.shell")

fpth="F:\临时文件\"'设置指定的文件夹路径

set fd=fso.getfolder(fpth)

set ofw=fso.opentextfile(fpth&"wind_record.txt",8,true)

fname="1.txt"'设置指定的文件名

set fis=fd.files

do

for each fil in fis

if lcase(fil.name)=lcase(fname) then

ofw.writeline fname &" " &now

ws.popup "出现指定文件---"&fname,2,"Windows",64 '出现文件后,d出两秒自动关闭的提示框

end if

next

wscript.sleep 3000'每3000毫秒循环检测一次

loop

另外,453625978朋友的批处理中的 ping 127.1 /n 10 并不是延时10秒,而是ping 10次

如果要用ping作延时,应该是ping /w 这个参数

然后,楼主可能没有考虑到,这个程序运行后你将如何退出??

甚至是如何执行,手动,开机自动? 你都没有说明 .

所以,我只给出了程序的主体部分,有兴趣的话,你可以密我交流. 或Q,121 ,770 ,754


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/yw/12197286.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-21
下一篇 2023-05-21

发表评论

登录后才能评论

评论列表(0条)

保存