中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-08-07 12:57

共 48,040 主题排行 / 350,125 发帖 / 今日 0 篇 / 48,252 会员排行

DOS批处理 & 脚本技术（批处理室） » 批处理进程监视的一种方法

可打印版本　893 / 3

第1楼　andoor	发表于 2008-02-14 12:28
新手上路　发帖 7　积分 19
批处理进程监视的一种方法如果简单的用循环来监视，效率不高。因此就想到了结合at来使用。我的要求是批处理运行时判断是否有某个进程，如没有则运行，否则退出。具体做法是这样。运行时用tasklist判断进程是否存在。如存在则使用at命令，在几分钟后运行批处理本身。这样就可以达到监视的目的了。核心就是这句 at %hou%:%min% %current_dir%batr.cmd> nul %min%是当前时间加上2，如果%min%大于59，%hou%大于23，只须处理一下就可以了。这个程序效率还行，只在运行时才占用资源，大部分时间是不占资源的。大家觉得这种方法可取吗？

第2楼　slore	发表于 2008-02-14 12:36
铂金会员　发帖 2,478　积分 5,212
比循环好呀～不过需要启动任务计划，没有开的就不能运行。

第3楼　knoppix7	发表于 2008-02-14 13:02
银牌会员　发帖 634　积分 1,287　来自 cmd.exe
AT一般都当作垃圾服务和谐掉了..

第4楼　fastslz	发表于 2008-02-14 15:01
铂金会员　发帖 2,315　积分 5,493　来自上海
监视calc.exe,没有该进程则运行 Set Ws = CreateObject("WScript.Shell") Dim Wmi, Proc, Info, Flag, Target Target = "calc.exe" Flag = False Set Wmi = Getobject("Winmgmts:") Do Set Proc = Wmi.Execquery("Select * From Win32_Process") For Each Info In Proc If Info.Name = Target Then Flag = True Next If Flag = False Then Ws.Run Target End If Flag = False Wscript.Sleep 1000 Loop

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023