[Perl Tk] SerialFinder 0.2

[BigBear]

Simple programa en tk para buscar seriales de programas o juegos

Código (perl) [Seleccionar] Expandir

#!usr/bin/perl
#SerialFinder 0.2
#By Doddy H

use Tk;
use Tk::PNG;

if ($^O eq 'MSWin32') {
use Win32::Console;
Win32::Console::Free();
}

my $ventana = MainWindow->new();
$ventana->title("SerialFinder 0.2 By Doddy H");
$ventana->geometry("370x300+20+20");
$ventana->resizable(0,0);

$ventana->Label(-font=>"Impact1",-text=>"String : ")->place(-x=>20,-y=>20);
my $p = $ventana->Entry(-text=>"Nero",-width=>"31")->place(-x=>80,-y=>23);
$ventana->Button(-width=>"10",-text=>"Load",-command=>\&now)->place(-x=>278,-y=>23);

$ventana->Label(-text=>"Options",-font=>"Impact1")->place(-x=>140,-y=>70);

$ventana->Radiobutton(-text =>"serials.be", -value => "serials.be",-variable=> \$op)->place(-x=>130,-y=>130);
$ventana->Radiobutton(-text =>"serials.ws", -value => "serials.ws",-variable=> \$op)->place(-x=>130,-y=>160);
$ventana->Radiobutton(-text =>"cracks.vg", -value => "cracks.vg",-variable=> \$op)->place(-x=>130,-y=>190);
$ventana->Radiobutton(-text =>"serialportal.com", -value => "serialportal.com",-variable=> \$op)->place(-x=>130,-y=>220);
$ventana->Radiobutton(-text =>"freeserials.ws", -value => "freeserials.ws",-variable=> \$op)->place(-x=>130,-y=>250);

MainLoop;

sub now {

my $link;
my $test = $p->get;

chomp $test;

if ($op eq "serials.be") {
$link = "http://www.serials.be/search_serial.php?serial=".$test;
}
elsif ($op eq "serials.ws") {
$link = "http://www.serials.ws/?chto=".$test;
}
elsif ($op eq "cracks.vg") {
$link = "http://www.cracks.vg/search.php?query=".$test;
}
elsif ($op eq "serialportal.com") {
$link = "http://www.serialportal.com/search.php?serial=".$test;
}
elsif ($op eq "freeserials.ws") {
$link = "http://www.freeserials.ws/?q=".$test."&Search=Search";
} else {
$link = "http://www.google.com.ar/search?q=como aprender a escribir";
}

system("start firefox $link");

}

# The End ?