| IrCbaStarD | 08 Temmuz 2015 04:27 |
Tasklist :p
/tasklist ve /netstat komutlari bilgileri @Pencerede yansitir. Kod:
alias xx { $iif(!$window($1),window -ze $1,clear $1) | var %s 1, %f $lines(ss.txt) | while %s <= %f { inc -u %s | if ($$read(ss.txt,%s)) echo -t $1 - $gettok($replace($$read(ss.txt,%s),Ba§lantlar,Bağlantilar,Ëœl.Kr.,Metot),1,32) $chr(9) $gettok($replace($$read(ss.txt,%s),Ba§lantlar,Bağlantilar),2,32) $chr(9) $gettok($replace($$read(ss.txt,%s),Ba§lantlar,Bağlantilar),3,32) $chr(9) $chr(9) $gettok($replace($$read(ss.txt,%s),Ba§lantlar,Bağlantilar),4,32) | inc %s } }
alias xxx var %s 1, %. $lines(ss.txt) | $iif(!$window(@Tasklist),window -ze @Tasklist,clear @Tasklist) | echo @Tasklist Program Adi $chr(9) $chr(9) Bellek $chr(9) Acıklama | while %s <= %. { aline @Tasklist $remove($iif($len($regsubex($remove($read(ss.txt,%s),=,Gâ€rnt Ad pid Hizmetler),(.+)\s\d+,\1)) > 26,$left($regsubex($remove($read(ss.txt,%s),=,Gâ€rnt Ad pid Hizmetler),(.+)\s\d+,\1),23) $+ ..,$regsubex($remove($read(ss.txt,%s),=,Gâ€rnt Ad pid Hizmetler),(.+)\s\d+,\1)),Yok) $chr(9) $chr(9) $regsubex($remove($read(ss.txt,%s),=,Gâ€rnt Ad pid Hizmetler),.+\s(\d+)\s.+,\1) $chr(9) $regsubex($remove($read(ss.txt,%s),=,Gâ€rnt Ad pid Hizmetler),.+\s\d+\s(.+),4\1) | inc %s }
alias netstat { if ($file(b.bat)) .remove b.bat | if ($file(ss.txt)) .remove ss.txt | .write b.bat netstat -n> $shortfn($mircdir) $+ ss.txt | .run b.bat | .timerss 1 10 xx @NetStat }
alias tasklist { if ($file(b.bat)) .remove b.bat | if ($file(ss.txt)) .remove ss.txt | .write b.bat tasklist /svc > $shortfn($mircdir) $+ ss.txt | .run b.bat | .timerss 1 3 xxx }
|
