Bienvenido a Tecnohackers

Tecnohackers » General del foro » Area de Programacion » Scripting. VBS, Batch, Bash, JavaSript. (Moderador: Doddy)
»

[Perl] Manager 0.3

Imprimir

Páginas: [1] Ir Abajo

Autor Tema: [Perl] Manager 0.3 (Leído 12 veces)

Doddy

Moderator
Veterano
Mensajes: 267
Slow Mind

[Perl] Manager 0.3

« en: Enero 19, 2012, 05:28:20 pm »

Un simple script para manejar los procesos en Windows.

Código: No puedes ver links Registrate o Login

#!usr/bin/perl
#Manager 0.3
#Written By Doddy H

use Color::Output;
Color::Output::Init;
use Win32::OLE qw(in);
use Win32::Process;

&clean;
&options;

sub clean {
    cprint "\x0313";
    print
"\nManager 0.3\nCopyright 2012 Doddy Hackman\nMail:lepuke[at]hotmail[com]\n\n";
    cprint "\x0x30\n\n";
    my %process = getprocess();
    chomp %process;
    $limit = "";
    for my $pid ( keys %process ) {
        if ( $pid ne "" ) { $limit++ }
        push( @procer, $process{$pid} );
        push( @pids,   $pid );
        chomp( @procer, @pids );
    }
    $limit--;
    for my $n ( 1 .. $limit ) {
        cprint "\x037";
        print
          "Process Number: [$n]\tProcess name : $procer[$n]\tPID : $pids[$n]\n";
        cprint "\x037";
    }
}

sub options {
    cprint "\0035";
    print
"\n\nOptions :\n\n[a] : Close a process\n[b] Clean Console\n[c] Exit\n\n\n[+] Write you options : ";
    $t = <STDIN>;
    chomp $t;
    if ( $t eq "a" ) {
        &close;
    }
    elsif ( $t eq "b" ) {
        reload();
    }
    elsif ( $t eq "c" ) {
        print "\n\n[+] Written By Doddy H\n\n";
        <stdin>;
        exit(1);
    }
    else {
        reload();
    }
}

sub close {
    print "\n[+] Write the number of the process : ";
    $numb = <STDIN>;
    chomp $numb;
    Win32::Process::KillProcess( @procer[$numb], "" );
    print "\n\n[+] OK , Process Closed\n\n";
    <stdin>;
    reload();
}

sub reload {
    system("cls");
    system($0);
    &clean;
    &options;
}

sub getprocess {

    my %procesos;

    my $uno = Win32::OLE->new("WbemScripting.SWbemLocator");
    my $dos = $uno->ConnectServer( "", "root\\cimv2" );

    foreach my $pro ( in $dos->InstancesOf("Win32_Process") ) {
        $procesos{ $pro->{Caption} } = $pro->{ProcessId};
    }
    return %procesos;
}

# The End ?

En línea

No puedes ver links Registrate o Login

Imprimir

Páginas: [1] Ir Arriba

Tags:

Related Topics

		Asunto / Iniciado por	Respuestas	Último mensaje
		[Perl] FTP Manager Iniciado por Doddy Scripting. VBS, Batch, Bash, JavaSript.	0 Respuestas 29 Vistas	Mayo 27, 2011, 11:42:33 pm por Doddy
		[Perl] Manager Iniciado por Doddy Scripting. VBS, Batch, Bash, JavaSript.	0 Respuestas 36 Vistas	Mayo 27, 2011, 11:43:32 pm por Doddy
		[Perl] USB Manager 0.2 Iniciado por Doddy Scripting. VBS, Batch, Bash, JavaSript.	0 Respuestas 17 Vistas	Diciembre 01, 2011, 06:58:46 pm por Doddy
		[Perl Tk] Mysql Manager 0.6 Iniciado por Doddy Scripting. VBS, Batch, Bash, JavaSript.	0 Respuestas 60 Vistas	Abril 14, 2012, 03:47:46 pm por Doddy

SMF 2.0.2 | SMF © 2011, Simple Machines
Paginas Afiliadas
InfraBios - i-hacker - Twitter - FaceBook - Troyanosyvirus - LaWebDeGoku - daraxblog

Designed by Smf Personal