ENTRAR EN EL FOROHACK ANTIGUO (Muchos temas viejos y de menor nivel)
09:14:53 16/09/2019
¿No estas registrado?
Login: Clave:
5 Usuarios en línea: 0 registrados, 5 invitados.
Conéctate y verás los usuarios en línea
Tema: ViaNett-MSG,
    Responder
Todos Los Foros -> Perl / Phyton -> ViaNett-MSG,
Autor Mensaje (Ver Versión para Imprimir)
s3cure
Usuario Enfermo
Arreglando las imágenes

Mensajes: 69
Registrad@:
07/01/2010
Estado: Desconectad@
Ver último Post
ViaNett-MSG,

Hi forohack: Esta herramienta la desarrollé hace un tiempito, aún me resulta (:.

Pruebenla a ver que tal. La web para registrarse: ViaNett

CÓDIGO
#!/usr/bin/perl
# HSLTeam!
# ViaNett-MSG

use Tk;
use Net::SMS::ViaNett;

my $mw = MainWindow->new(title=>"ViaNett-MSG | HSLTeam.com");
$mw->minsize( qw(260 052));
my $frame0 = $mw->Frame(-bd => 2)->pack;
$frame0->Label(-text=>"User:")->pack(-side=>'left',-expand=>1);
my $usr = $frame0->Entry(-width => 20)->pack(-side=>'left',-expand=>1);
$frame0->Label1(-text=>"Passwd:")->pack(-side=>'left',-expand=>1);
my $passwd = $frame0->Entry(-width => 20)->pack(-side=>'right',-expand=>1);
my $frame1 = $mw->Frame(-bd => 2)->pack;
$frame1->Label(-text=>"Msg:")->pack(-side=>'left',-expand=>1);
my $msg = $frame1->Entry(-width => 20)->pack(-side=>'left',-expand=>1);
my $frame2 = $mw->Frame(-bd => 2)->pack;
$boton = $frame2->Button(-text=>"Send",-command => \&send)->pack(-side=>'bottom');
my $stat = $frame2->Text(-width => 30, -height => 1)->pack(-side=>'bottom');
sub send
{
my $obj = Net::SMS::ViaNett->new( username => $usr, password => $passwd );
if( $obj->send( to => $phone, msg => $msg ) ) {
print "Sent   - hslteam.com!";
} else {
         print "Not Sent   - hslteam.com!";
      }

}
MainLoop;



Un salu2.


Creer que todo es genial para luego ver realidad.
07/01/2010 08:03:17 
kili4n
Maestro Nivel 2
Arreglando las imágenes

Mensajes: 459
Registrad@:
22/07/2008
Estado: Desconectad@
Ir Arriba
RE: ViaNett-MSG,

Que se supone que hace? podrias explicar un poco el codigo y tal (no tengo mucha idea de python..).

Un saludo!



07/01/2010 14:37:49 
s3cure
Usuario Enfermo
Arreglando las imágenes

Mensajes: 69
Registrad@:
07/01/2010
Estado: Desconectad@
Ir Arriba
RE: ViaNett-MSG,

CITA
Que se supone que hace? podrias explicar un poco el codigo y tal (no tengo mucha idea de python..).

Un saludo!


Esto es Perl:
CITA
#!/usr/bin/perl


El código se conecta a la web mediante la librería (la web es donde dejé el link para registrar, ViaNett) y envia mensaje de texto a celulares.


Salu2.


Creer que todo es genial para luego ver realidad.
07/01/2010 17:13:51 
HeR0
Maestro Nivel 3
Arreglando las imágenes

Mensajes: 642
Registrad@:
29/10/2008
Estado: Desconectad@
Ir Arriba
RE: ViaNett-MSG,

holas ^^ seria casi lo mismo con smshttp.com ,no?

te va 10 xq ta interesante :D


07/01/2010 18:31:33 
s3cure
Usuario Enfermo
Arreglando las imágenes

Mensajes: 69
Registrad@:
07/01/2010
Estado: Desconectad@
Ir Arriba
RE: ViaNett-MSG,

Ps, el sitio parece similar her0 pero la verdad no sé si será el mismo funcionamineto, quizás si :P


thanks, salu2


Creer que todo es genial para luego ver realidad.
07/01/2010 20:39:32 
kili4n
Maestro Nivel 2
Arreglando las imágenes

Mensajes: 459
Registrad@:
22/07/2008
Estado: Desconectad@
Ir Arriba
RE: ViaNett-MSG,

xDD cierto queria decir perl aunque igual el python tampoco lo domino..perdon por la confusion.



>>> ImSomnia <<<
08/01/2010 01:08:03 


REGÍSTRATE PARA PODER ENVIAR UN MENSAJE (tardas 20 segundos)

Copyright ForoHack.com