portucale
Registo: 29 Out 2005
Mensagens: 163
Localização: Porto
|
 Colocada: 29 Out 2005 01:54 Assunto: Perl + Script para ligar/desligar ligação ADSL |
 |
|
ha varias maneira de se desligar e ligar um router ADSL de forma
a podermos beneficiar as HH.
vou apresentar o meu caso, que é tao simples como usar um script que
acede a um endereço WEB especifico do router para ligar e outro
endereço para desligar. O script é feito numa linguagem de programação
(Perl) e para tal tem de instalar o interpretador da linguagem em
http://www.activestate.com/Products/ActivePerl/
este modo pode ser impossivel de realizar em alguns modem's/router's
pois é possivel que nem todos tenham um interface WEB para configurar
determinados parametros (normamente é o caso dos modem's, mas nem
todos)
ficheiro script_perl.pl
| Código: | use LWP::Simple;
$| = 1;
my $url = 'http://login:pass@192.168.123.1/Gozila.cgi?RouterStatus.htm=255&hid_returnPoint=&hid_dialAction=2';
my $content = get $url;
die "Couldn't get $url" unless defined $content;
print "deslguei router\n";
sleep(3);
print "agora vou ligar\n";
my $url = 'http://login:pass@192.168.123.1/Gozila.cgi?RouterStatus.htm=255&hid_returnPoint=&hid_dialAction=1';
my $content = get $url;
die "Couldn't get $url" unless defined $content;
print "ligado novamente\n";[quote][/quote] |
esta "configuração" esta a ser usada num router/modem da linksys
modelo WAG54G e sempre funcionou bem
Agora so falta executar o script às horas desejadas e para isso uso o
agendador de tarefas do windows que executa o programa logo a seguir à
1h e antes das 8h (HH claro está!)
mais uma vez qq coisa, apitem |
|
FAQ 
Pesquisar 
Membros 
Grupos 
Perfil 
Ligar e ver Mensagens Privadas
Registar
Entrar
