[Perl Tk] Whois Client 0.2

« **en:** Marzo 31, 2012, 10:31:37 pm »

La version mejorada de un cliente whois que hice hace un largooooooooo tiempo.

Para usarlo tienen que instalar el modulo necesario de la siguiente manera.

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta

ppm install http://www.bribes.org/perl/ppm/Net-Whois-Raw.ppd

Una imagen del programa

El codigo es

Código: Perl

#!usr/bin/perl
#Whois Client 0.2
#Coded By Doddy H
#ppm install http://www.bribes.org/perl/ppm/Net-Whois-Raw.ppd
 
use Tk;
use Tk::ROText;
use Net::Whois::Raw;
 
if ( $^O eq 'MSWin32' ) {
    use Win32::Console;
    Win32::Console::Free();
}
 
my $color_fondo = "black";
my $color_texto = "cyan";
 
$yu =
  MainWindow->new( -background => $color_fondo, -foreground => $color_texto );
$yu->title("Whois Client 0.2 || Coded By Doddy H");
$yu->geometry("400x350+20+20");
$yu->resizable( 0, 0 );
 
$yu->Label(
    -text       => "Page : ",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 20, -No tienes permisos para ver links.
 Registrate o Entra con tu cuenta => 20 );
my $targe = $yu->Entry(
    -width      => 35,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 70, -No tienes permisos para ver links.
 Registrate o Entra con tu cuenta => 26 );
$yu->Button(
    -text             => "Get Info",
    -width            => 10,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto,
    -command          => \&whoisit
)->place( -x => 290, -No tienes permisos para ver links.
 Registrate o Entra con tu cuenta => 24 );
$yu->Label(
    -text       => "Information",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 140, -No tienes permisos para ver links.
 Registrate o Entra con tu cuenta => 85 );
my $data = $yu->Scrolled(
    "ROText",
    -width      => 40,
    -height     => 12,
    -scrollbars => "e",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 45, -No tienes permisos para ver links.
 Registrate o Entra con tu cuenta => 150 );
 
sub whoisit {
 
    $data->No tienes permisos para ver links.
 Registrate o Entra con tu cuenta( "0.1", "end" );
    $data->insert( "end", whois( $targe->get ) );
 
}
 
MainLoop;
 
#The End ?
 

Tutorial perl desde cero By: Black Poision & Painboy Iniciado por ProcessKill	Respuestas: 2 Vistas: 3156	Septiembre 02, 2011, 09:43:36 pm por blozzter
[Perl] Verificando si es root para correr un script Iniciado por c1st	Respuestas: 1 Vistas: 1472	Octubre 07, 2012, 06:01:39 pm por ANTRAX
[Perl] Counter Strike 1.6 Servers List Iniciado por BigBear	Respuestas: 0 Vistas: 1134	Noviembre 12, 2012, 07:32:11 pm por BigBear
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL] Iniciado por SkillmaX	Respuestas: 0 Vistas: 1371	Julio 04, 2010, 10:14:31 am por SkillmaX
[Perl] Half Life Servers List 0.1 Iniciado por BigBear	Respuestas: 0 Vistas: 1103	Noviembre 12, 2012, 07:31:50 pm por BigBear

Esta es una respuesta al tema: [Perl Tk] Whois Client 0.2 en La plantilla. Perl

[Perl Tk] Whois Client 0.2

BigBear

[Perl Tk] Whois Client 0.2

Similar topics (5)