1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| #!/usr/bin/perl
use strict;
use warnings;
my $phone_number = $ARGV[0];
my $text_to_send = $ARGV[1];
#Crée un nouveau navigateur virtuel
use WWW::Mechanize;
my $browser = WWW::Mechanize->new();
#On va sur la page de portail sms
$browser->env_proxy();
$browser->get('http://google.com');
print $browser->content;
#Le get ne fait que télécharger la page, maintenant on va la remplir et appuyer sur le bouton submit
#$browser->form(1);
$browser->form_number(1);
$browser->field("DEST", $phone_number);
$browser->field("SHORT_MESSAGE", $text_to_send);
$browser->click(); |
Partager