[TÜRK]

alias nekul {
var %bg = bg $+ $ticks, %+ = + $+ $ticks, %/ = mud $+ $ticks
.comopen %bg WbemScripting.SWbemLocator
.comclose %bg $com(%bg,ConnectServer,1,dispatch* %+)
.comclose %+ $com(%+,ExecQuery,1,bstr*,SELECT WorkingSetSize $&
FROM Win32_Process WHERE Name = $+(",$1,"),dispatch* %/)
var %m = 1, %zc
while ($comval(%/,%m,WorkingSetSize)) {
%zc = %zc + $v1
inc %m
}
.comclose %/
return $+($int($bytes($calc($gettok(%zc,$iif(!$2,1-,$2),43)),$iif($3,$3,b))),MB)
}
Tarih: 05/02/2017 / 23:24:07 , Kod sahibi: Zadrich
alias nekul {
var %bg = bg $+ $ticks, %+ = + $+ $ticks, %/ = mud $+ $ticks
.comopen %bg WbemScripting.SWbemLocator
.comclose %bg $com(%bg,ConnectServer,1,dispatch* %+)
.comclose %+ $com(%+,ExecQuery,1,bstr*,SELECT WorkingSetSize $&
FROM Win32_Process WHERE Name = $+(",$1,"),dispatch* %/)
var %m = 1, %zc
while ($comval(%/,%m,WorkingSetSize)) {
%zc = %zc + $v1
inc %m
}
.comclose %/
return $+($int($bytes($calc($gettok(%zc,$iif(!$2,1-,$2),43)),$iif($3,$3,b))),MB)
}
//echo -a $nekul(program.exe) ; diye kullanılır.