[Perl] Funcion killprocess()

BigBear · Julio 03, 2011, 09:44:12 PM

Hola a todos , aca les traigo un funcion para
cerrar el proceso que odien marcando el nombre y el pid

Código: perl


use Win32::Process;

sub killprocess {

my ($numb,$pid) = @_;

if (Win32::Process::KillProcess($pid,$numb)) {
return true;
} else {
return false;
}
}

Ejemplo de uso

Código: perl


if (killprocess("deamon.exe","4052")) {
print "chau\n\a";
}

[Perl] Funcion killprocess()

BigBear

Julio 03, 2011, 09:44:12 PM Ultima modificación: Marzo 14, 2015, 10:00:56 AM por Expermicid