Foro de elhacker.net

Programación => Scripting => Mensaje iniciado por: BigBear en 11 Octubre 2011, 18:09 pm



Título: [Perl] Funcion killprocess()
Publicado por: BigBear en 11 Octubre 2011, 18:09 pm
Hola a todos , aca les traigo un funcion para cerrar el proceso que odien marcando el nombre y el pid

Código
  1. use Win32::Process;
  2.  
  3. sub killprocess {
  4.  
  5. my ($numb,$pid) = @_;
  6.  
  7. if (Win32::Process::KillProcess($pid,$numb)) {
  8. return true;
  9. } else {
  10. return false;
  11. }
  12. }

Ejemplo de uso


Código
  1. if (killprocess("deamon.exe","4052")) {
  2. print "chau\n\a";
  3. }
  4.