CPU监视来自PECMD示例

ENVI CPUS=1
FIND --pid TMS,
MSTR I1,T1,CPUS=<1*>%TMS%
ENVI Last=-100
FIND MEM=?,总内存
CALC 内存=%总内存%/1024#2
CALL CK

_SUB CK,W340H200,监视
	ENVI @this.Font=10:微软雅黑
	LABE -left -trans ,L20T20W200H20,运行时间：,,0x0000cd
	LABE -trans 运行时间,L100T20W200H20
	LABE -left -trans ,L20T50W200H20,CPU使用：,,0x0000cd
	LABE -trans CPU,L100T50W300H30
	PBAR PBAR1,L20T75W290H15,0
	LABE -left -trans ,L20T105W200H30,内存使用：,,0x0000cd
	LABE -trans 内存情况,L100T105W200H30
	PBAR PBAR2,L20T130W290H15,0
	CALL 检测
	TIME HMST,1000,CALL 检测
_END

_SUB 检测
	DATE 毫秒 uptime
	CALC 秒=%毫秒%/1000#3
	TEAM CALC 分钟=%秒%/60|SED 分钟=1,\..*,,%分钟%
	TEAM CALC 余秒=%秒%-%分钟%*60|SED 余秒=1,\..*,,%余秒%
	TEAM CALC 小时=%分钟%/60|SED 小时=1,\..*,,%小时%
	TEAM CALC 分=%分钟%-%小时%*60|SED 分=1,\..*,,%分%
	ENVI @运行时间=%小时%时%分%分%余秒%秒
	FIND --pid TMS,
	MSTR I2,T2=<1*>%TMS%
	CALC #I21=%I2%-%I1%
	CALC #T21=%T2%-%T1%
	CALC P=100-100*%I21%/%T21%/%CPUS%##1
	IFEX |%P%=-0.0,ENVI P=0
	IFEX [$%P%<0 $%Last%=%P%],EXIT!TEAM ENVI Last=%P%|ENVI I1=%I2%|ENVI T1=%T2%
	ENVI @CPU=%P%%
	ENVI @PBAR1=%P%% %P%%
	IFEX MEM=?,可用内存
	CALC 已用内存=(%总内存%-%可用内存%)/1024#2
	CALC 内存百分比=100-%可用内存%/%总内存%*100#0
	ENVI @内存情况=已用：%已用内存%G	  总：%内存%G
	ENVI @PBAR2=%内存百分比%% %内存百分比%%
_END