Discussion :

[Nickname]

Yop all,

j'avais fais un programme récupérant une liste de proxy a partir d'une url défini tel les sites samair.ru proxy.org ....

Seulement, je veux reprendre mon ancien script qui marchai auparavant pour améliorer et mettre des fonctionnalités en +
Mais ca ne marche plus >_<
L'interface ne se lance même plus (problème avec les nouvelles versions de activeperl ?)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
 
#!/usr/bin/perl -w       
# Greetz CodeursSoH   
#                               
################
 
####DECLAR####
use Tk;
use tk::Balloon;
use Tk::Dialog;
use Tk::NoteBook;
$host ="";
$coche =0;
use LWP::Simple;
$url = "http://www.samair.ru";
##############
 
####SUB####
sub Quit {
$quitfen = $fenetre -> Dialog (
                -title => 'Quitter',
                -text => 'Voulez vous quittez petit H4x0r ?',
                -bitmap => 'question',
                -default_button => 'Oui' ,
                -buttons => [ 'Oui','Non' ] );
    $rep = $quitfen -> Show ();
    if ($rep eq 'Oui')
    {
        exit ( 0 ) ;
    }
}
sub getProxies {   
  my @proxiesList;
  my $content = get( $url . "/proxy/proxy-02.htm") 
    or die "Pas réussi à avoir l'adresse !\n";    
  push( @proxiesList, "ip: $1.$2.$3.$4 port: $5\n" ) 
    while ($content =~ /(\d+).(\d+).(\d+).(\d+):(\S+)/gi);
  return @proxiesList;
}
###########
 
$fenetre = new MainWindow ();
$fenetre -> title ("Scan proxy By Nickname");
$bienvenue = $fenetre -> Label ( -text => "Entrez l'host ci dessous");
$bienvenue -> pack ();
$urla = $fenetre -> Entry  (  -textvariable => \$host);
$urla -> pack();
$clic = $fenetre -> Checkbutton (  -text => "Utilisation d'un proxy",
                                   -variable => \$coche);
$clic -> pack();
$quit = $fenetre -> Button (  -text => 'Quit',
                    -command => \&Quit,
               -underline => 0)
               -> pack ( -side => 'right' , -padx => 20);
$infoquit = $fenetre -> Balloon ();
$infoquit -> attach ($quit, -balloonmsg => 'Cliquer ici pour quitter',
                            -state => 'balloon');
$scan = $fenetre -> Button (  -text => 'Scan',
               -underline => 0)
               -> pack ( -side => 'left' , -padx => 20);
$infoscan = $fenetre -> Balloon ();
$infoscan -> attach ($scan, -balloonmsg => 'Cliquer ici pour Scanner les proxy',
                            -state => 'balloon');
$fenetre -> bind ("<Alt-Key-q>",\&Quit);
 
#~ $img = $fenetre -> Label ( -bitmap => '@/perl/site/lib/tk/Tk.xbm');
#~ $img -> pack ();
 
$tex = $fenetre -> Scrolled (  'Text',
                                 -scrollbars => 'se' ,
                                 -width => 30 , -height => 10 , -tabs => [ '50' ]);
$tex -> pack ();
@bla = getProxies();
foreach $ligne (@bla)
{
    $tex->Insert($ligne)
}
MainLoop ();
#############################
#####MOVE YOUR BODY YEAH########
##########NICKNAME############
############PERL##############
#############IS###############
##########FABULOUS############
#############################

Merci pour votre aide

[Arioch]

Regarde si tu as bien les 3 extensions Tk que tu indiques par ton use, peut être ne sont-elles pas fournies en standard avec la distrib Perl d'Active State

[Jedai]

Chez moi ça marche. Y a-t-il une erreur indiquée ou ça tourne dans le vide sans rien afficher ?

--
Jedaï

[Nickname]

ca tourne sans rien afficher lol et apres la console dos se ferme

Je pense que ca doit venir des modules comme m'a indiquer Arioch.

Je test a la maison ce soir et je vous tient au courant

Merci bcp

[Nickname]

ah enfait une personne a pu tester de chez lui

Le script se lance bien seulement lorsque il appuie sur scan rien ne se passe (enfin erreur)

Donc la fonction du recup proxy doit avoir un petit problème

Ps: voici l'erreur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Tk::Error: impossible de contacter le site
 main::getproxy at C:\Documents and Settings\Administrateur\Bureau\test.pl line
18
 main::prox at C:\Documents and Settings\Administrateur\Bureau\test.pl line 24
 Tk callback for .button
 Tk::__ANON__ at C:/Perl/site/lib/Tk.pm line 252
 Tk::Button::butUp at C:/Perl/site/lib/Tk/Button.pm line 111
 <ButtonRelease-1>
 (command bound to event)