Test Foro de elhacker.net SMF 2.1

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 (perl) [Seleccionar]
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) [Seleccionar]
if (killprocess("deamon.exe","4052")) {
print "chau\n\a";
}