Giriş

Orijinalini görmek için tıklayınız : Netstat & tasklist


Return
03 Ekim 2015, 10:40
Tasklist ve Netstat verilerini yansitir, cmd komutlarini kullanarak dahada cogaltabilirsiinz; elinizde. [Only Registered Users Can See Links] "system info" da cmd ekrani kapandikdan sonra "/88" komutunu uygulayin.


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 }
alias systeminfo { if ($file(b.bat)) .remove b.bat | if ($file(ss.txt)) .remove ss.txt | .write b.bat systeminfo.exe> $shortfn($mircdir) $+ ss.txt | .run b.bat }
alias 88 { var %s 1, %f $lines(ss.txt) | while %s <= %f { echo -a - $replace($read(ss.txt,%s),˜,İ,Ÿ,ş,§,ğ,‡,ç,š,Ü,$chr (129),ü,$chr(141),ı,™,Ö) | inc %s } }


Alıntıdır.