Registrarse
Home
Foros
Miembros
Calendario
Normas
Ayuda

Foros de usuarios de openSUSE
Retroceder   ForoSUSE > Zona Técnica > Programación y Scripts > Scripts


Síguenos en Twitter Suscríbete a nuestras noticias Acompáñanos en Facebook

Respuesta
 
Herramientas Desplegado

AndLinux
  #1  
Antiguo 18-feb-2012, 02:20
Avatar de Defton
Defton Defton está desconectado
Miembro Senior
 
Fecha de Ingreso: 03-abril-2007
Ubicación: Mexico/SanLuisPotosi
Versión: 42.1
Mensajes: 864
Agradecimientos: 7
Agradecido 156 Veces en 98 Mensajes
Poder de Credibilidad: 12
Defton está en el buen camino
Enviar un mensaje por MSN a Defton Enviar un mensaje por Skype™ a Defton
AndLinux

Recién salido del horno, les dejo este pequeño script para interactuar con dispositivos Android utilizando La SDK. saludos y espero les guste.



Código:
#!/usr/bin/perl

##################
#
# This file was automatically generated by ZooZ.pl v1.2
# on Wed Feb  1 16:57:35 2012.
# Project: Project 1
# File:    
#
##################

##################
# Autor: DarkSpark
# web http://elblogdedarkspark.blogspot.com/
##################



#
# Headers
#
use strict;
use warnings;

use Tk 804;

#
# Global variables
#
my (
     # MainWindow
     $MW,

     # Hash of all widgets
     %ZWIDGETS,
     
    $device,);

# User-defined variables (if any)
#
my $home=`ls -la ~`;
if ($home !~/.andlinux/){mkdir "~/.andlinux";}
my $sdk="~/.andlinux/android-sdk-linux/platform-tools";
my $adb="$sdk/adb";
######################
#
# Create the MainWindow
#
######################

$MW = MainWindow->new;

######################
#
# Load any images and fonts
#
######################
ZloadImages();
ZloadFonts ();



# Widget Frame1 isa Frame
$ZWIDGETS{'Frame1'} = $MW->Frame(
   -background  => '#0000ffff0000',
   -borderwidth => 5,
  )->grid(
   -row    => 0,
   -column => 0,
  );

# Widget boton_sdk isa Button
$ZWIDGETS{'boton_sdk'} = $ZWIDGETS{Frame1}->Button(
   -activebackground => '#0000ffff0000',
   -activeforeground => '#000000000000',
   -background       => '#ffffffffffff',
   -borderwidth      => 5,
   -command          => 'main::sdk',
   -text             => 'Instalar SDK ',
  )->grid(
   -row    => 0,
   -column => 0,
   -sticky => 'ew',
  );

# Widget boton_buscar isa Button
$ZWIDGETS{'boton_buscar'} = $ZWIDGETS{Frame1}->Button(
   -activebackground => '#0000ffff0000',
   -activeforeground => '#000000000000',
   -background       => '#ffffffffffff',
   -borderwidth      => 5,
   -command          => 'main::buscar',
   -text             => 'Buscar Dispositivos',
  )->grid(
   -row    => 1,
   -column => 0,
   -sticky => 'ew',
  );

# Widget boton_subir isa Button
$ZWIDGETS{'boton_subir'} = $ZWIDGETS{Frame1}->Button(
   -activebackground => '#0000ffff0000',
   -activeforeground => '#000000000000',
   -background       => '#ffffffffffff',
   -borderwidth      => 5,
   -command          => 'main::subir',
   -text             => 'Subir Archivo',
  )->grid(
   -row    => 2,
   -column => 0,
   -sticky => 'ew',
  );

# Widget boton_bajar isa Button
$ZWIDGETS{'boton_bajar'} = $ZWIDGETS{Frame1}->Button(
   -activebackground => '#0000ffff0000',
   -activeforeground => '#000000000000',
   -background       => '#ffffffffffff',
   -borderwidth      => 5,
   -command          => 'main::bajar',
   -text             => 'Bajar Archivo',
  )->grid(
   -row    => 3,
   -column => 0,
   -sticky => 'ew',
  );

# Widget boton_instalar isa Button
$ZWIDGETS{'boton_instalar'} = $ZWIDGETS{Frame1}->Button(
   -activebackground => '#0000ffff0000',
   -activeforeground => '#000000000000',
   -background       => '#ffffffffffff',
   -borderwidth      => 5,
   -command          => 'main::install',
   -text             => 'Instalar Aplicacion',
  )->grid(
   -row    => 4,
   -column => 0,
   -sticky => 'ew',
  );

# Widget boton_desinstalar isa Button
$ZWIDGETS{'boton_desinstalar'} = $ZWIDGETS{Frame1}->Button(
   -activebackground => '#0000ffff0000',
   -activeforeground => '#000000000000',
   -background       => '#ffffffffffff',
   -borderwidth      => 5,
   -command          => 'main::uninstall',
   -text             => 'Desinstalar Aplicacion',
  )->grid(
   -row    => 5,
   -column => 0,
   -sticky => 'ew',
  );



###############
#
# MainLoop
#
###############

MainLoop;

#######################
#
# Subroutines
#
#######################

sub ZloadImages {
}

sub ZloadFonts {
}

sub install {
my $apk;
my $ven=MainWindow->new();
$ven->Entry(-textvariable=>\$apk, -width=>30)->grid(-column=>0 , -row=>0);
$ven->Button(-text=>"Buscar", -command=>sub{
                        my $types = [ ['Android Pakage', '.apk'],['All Files',   '*'],];
                        $apk=$ven->getOpenFile(-filetypes => $types, -initialfile => 'test', -defaultextension => '.apk')
                        })->grid(-column=>1 , -row=>0);
                        

$ven->Button(-text=>"Instalar", -command=>sub{system ("$adb install $apk");
                         my $dialog=$MW->Dialog(-buttons => ["Aceptar"],-text=>"Aplicacion Instalada");
                         my $item = $dialog->Show();
                         })->grid(-column=>0, -row=>1);
$ven->Button (-text=>"Cancelar" , -command=>sub{$ven->destroy;})->grid(-column=>1 , -row=>1);
MainLoop
}

sub sdk {
system("cd ~/.andlinux ; xterm -e wget http://dl.google.com/android/android-sdk_r16-linux.tgz");
system ("cd ~/.andlinux ; xterm -e tar xvzf  android-sdk_r16-linux.tgz");
#system ("cd ~/.andlinux ; rm android-sdk_r16-linux.tgz");
my $vtn=MainWindow->new();
$vtn->Label(-text=>"Es necesario instalar las herramientas del SDK.\n Seleccione los paquetes \"Android SDK Tools\" y \"Android SDK Platform-tools\" y presione el botón de instalar\n cuando termine cierre el SDK Manager para continuar con la instalación")->pack();
$vtn->Button(-text=>"Aceptar",-command=>sub {
                         $vtn->destroy;
                         system("~/.andlinux/android-sdk-linux/tools/android");
                         my $test=`ls ~/.andlinux/android-sdk-linux/platform-tools/`;
                         if ($test=~/adb/){
                                   my $dialog=$MW->Dialog(-buttons => ["Aceptar"],-text=>"El SDK Se a Instalado Exitosamente");
                                   my $item = $dialog->Show();
                                  }
                         else{my $dialog=$MW->Dialog(-buttons => ["Aceptar"],-text=>"El SDK No se Instalo Correctamenet, Intente Otra vez");
                          my $item = $dialog->Show();
                         }
                    })->pack();
MainLoop;
}

sub uninstall {
my @list=`$adb shell ls /system/app`;
chop(@list);
chop(@list);
my $venta=MainWindow->new();
my $lista=$venta->Listbox(-width=>35)->grid(-column=>0 , -row=>0);
    for (my $i=0;$i<@list;$i++) {
    if ($list[$i] =~/.apk/){
            $lista->insert('end', $list[$i]);
        }
    }
$venta->Button(-text=>"Desinstalar", -command=>sub{
                          my $un=$lista->get( $lista->curselection );
                          system ("$adb uninstall $un");
                          my $dialog=$MW->Dialog(-buttons => ["Aceptar"],-text=>"La Applicacion Se Desinstalo");
                          my $item = $dialog->Show();
                          })->grid(-column=>0 , -row=>1);
MainLoop;
}

sub bajar {
my $dir2=`ls ~/`;
if ($dir2 !~/AndLinux/){
   system("mkdir ~/AndLinux");
   }
my $ven=MainWindow->new();
my $entry2=$ven->Entry(-width=>30)->grid(-column=>0 , -row=>0);
my $archivo=$entry2->get();
$ven->Button(-text=>"Bajar", -command=>sub{ my $archivo=$entry2->get();
                        system ("$adb pull $archivo ~/AndLinux/");
                        my $dialog=$MW->Dialog(-buttons => ["Aceptar"],-text=>"Archivo Bajado");
                        my $item = $dialog->Show();
                         })->grid(-column=>0, -row=>1);
$ven->Button (-text=>"Cancelar" , -command=>sub{$ven->destroy;})->grid(-column=>1 , -row=>1);
MainLoop;
}

sub subir {
my $dir=`$adb shell ls /sdcard/`;
if ($dir !~/AndLinux/){
   system("$adb shell mkdir /sdcard/AndLinux");
   }
my $ven=MainWindow->new();
my $file;
$ven->Entry(-textvariable=>\$file, -width=>30)->grid(-column=>0 , -row=>0);
$ven->Button(-text=>"Buscar", -command=>sub{
                        my $types = [ ['All Files',   '*']];
                        $file=$ven->getOpenFile(-filetypes => $types, -initialfile => 'test')
                        })->grid(-column=>1 , -row=>0);
                        

$ven->Button(-text=>"Subir", -command=>sub{system ("$adb push $file /sdcard/AndLinux/");
                         my $dialog=$MW->Dialog(-buttons => ["Aceptar"],-text=>"Archivo Subido");
                         my $item = $dialog->Show();
                         })->grid(-column=>0, -row=>1);
$ven->Button (-text=>"Cancelar" , -command=>sub{$ven->destroy;})->grid(-column=>1 , -row=>1);
MainLoop;

}



sub buscar { 
my @dev=`$adb devices`;
if ($dev[1] =~/device/){
$device="$dev[1]";

}
else {
$device="No Se Encontraron Dispositivos";
}

my $ven=MainWindow->new();
$ven->Label(-text=>"Dispositivos Encontrados:")->pack();
$ven->Label (-textvariable=>\$device)->pack();
MainLoop;
}
__________________
__________________________________________________

Mi Blog:
http://elblogdedarkspark.blogspot.mx/
Canales de Youtube:
http://www.youtube.com/user/DarkSpark2099
http://www.youtube.com/user/defton En des-uso
Responder Citando
Los Siguientes 2 Usuarios Han Dado las Gracias a Defton Por Este Mensaje:
DiabloRojo (18-feb-2012), Holmes (18-feb-2012)
  #2  
Antiguo 18-feb-2012, 02:56
Avatar de Holmes
Holmes Holmes está desconectado
Miembro Junior
 
Fecha de Ingreso: 17-febrero-2011
Ubicación: en un lugar del universo...
Versión: ...
Mensajes: 668
Agradecimientos: 85
Agradecido 66 Veces en 60 Mensajes
Poder de Credibilidad: 8
Holmes está en el buen camino
Enviar un mensaje por MSN a Holmes
gracias compa por compartir.

saludos...

vlw fwi, Holmes
__________________
Creador de Chakra Brasil
Creador de Manjaro Brasil
Responder Citando
  #3  
Antiguo 18-feb-2012, 08:30
Avatar de DiabloRojo
DiabloRojo DiabloRojo está desconectado
Super Moderador
 
Fecha de Ingreso: 19-marzo-2005
Ubicación: En un lugar del planeta Tierra
Versión: La ultima estable
Mensajes: 16.978
Agradecimientos: 633
Agradecido 2.700 Veces en 1.837 Mensajes
Poder de Credibilidad: 10
DiabloRojo llegará a ser famoso muy pronto
A mi me falla en la linea 25 del script "use Tk 804;" y eso que tengo instalado el paquete tk, no se como se soluciona.

Cita:
perl andlinux.pl
Can't locate Tk.pm in @INC (@INC contains: /usr/lib/perl5/site_perl/5.12.3/x86_64-linux-thread-multi /usr/lib/perl5/site_perl/5.12.3 /usr/lib/perl5/vendor_perl/5.12.3/x86_64-linux-thread-multi /usr/lib/perl5/vendor_perl/5.12.3 /usr/lib/perl5/5.12.3/x86_64-linux-thread-multi /usr/lib/perl5/5.12.3 .) at andlinux.pl line 25.
BEGIN failed--compilation aborted at andlinux.pl line 25.
__________________
NORMAS A CUMPLIR EN LOS FOROS (Lectura obligatoria) Lo siento, no contesto privados sobre problemas con GNU/Linux.
Síguenos en TWITTER y en FACEBOOK
Código:
Buscador de   Alojamiento      Alojamiento     Otros
 paquetes:    de imágenes:     de ficheros:    buscadores:
Search        TinyPic          Ifile Wuala     Simple y Facil
Webpinstant   Paste Suse       SendSpace       TextSnip  Cl1p
Responder Citando
  #4  
Antiguo 18-feb-2012, 10:55
jcsl jcsl está desconectado
Miembro FOROSuSE
 
Fecha de Ingreso: 18-mayo-2008
Versión: Tumbleweed
Mensajes: 2.104
Agradecimientos: 0
Agradecido 973 Veces en 587 Mensajes
Poder de Credibilidad: 13
jcsl llegará a ser famoso muy pronto
Hola.

Cita:
Iniciado por DiabloRojo Ver Mensaje
A mi me falla en la linea 25 del script "use Tk 804;" y eso que tengo instalado el paquete tk, no se como se soluciona. :adios:
Instala perl-Tk que es el que proporciona Tk.pm que aparece en el error (Can't locate Tk.pm). No sé si hará falta algo más.

Un saludo.
Responder Citando
  #5  
Antiguo 18-feb-2012, 11:25
Avatar de DiabloRojo
DiabloRojo DiabloRojo está desconectado
Super Moderador
 
Fecha de Ingreso: 19-marzo-2005
Ubicación: En un lugar del planeta Tierra
Versión: La ultima estable
Mensajes: 16.978
Agradecimientos: 633
Agradecido 2.700 Veces en 1.837 Mensajes
Poder de Credibilidad: 10
DiabloRojo llegará a ser famoso muy pronto
Cita:
Iniciado por jcsl Ver Mensaje
Instala perl-Tk que es el que proporciona Tk.pm que aparece en el error (Can't locate Tk.pm). No sé si hará falta algo más.
Gracias, jcsl. Era eso.
__________________
NORMAS A CUMPLIR EN LOS FOROS (Lectura obligatoria) Lo siento, no contesto privados sobre problemas con GNU/Linux.
Síguenos en TWITTER y en FACEBOOK
Código:
Buscador de   Alojamiento      Alojamiento     Otros
 paquetes:    de imágenes:     de ficheros:    buscadores:
Search        TinyPic          Ifile Wuala     Simple y Facil
Webpinstant   Paste Suse       SendSpace       TextSnip  Cl1p
Responder Citando
  #6  
Antiguo 18-feb-2012, 13:07
Avatar de arag
arag arag está desconectado
Miembro FOROSuSE
 
Fecha de Ingreso: 08-agosto-2010
Ubicación: Venezuela
Versión: Ultima estable con kde
Mensajes: 2.371
Agradecimientos: 204
Agradecido 380 Veces en 327 Mensajes
Poder de Credibilidad: 11
arag está en el buen camino
Enviar un mensaje por MSN a arag Enviar un mensaje por Skype™ a arag
gracias por compartir
__________________
Mi blog Entre inyecciones y tuxes

La observación es una virtud capital que debemos cultivar por encima de todo pues solo de ella se deriva el éxito en nuestras jugadas.
Responder Citando
  #7  
Antiguo 18-feb-2012, 15:02
Avatar de jesusx
jesusx jesusx está desconectado
Miembro FOROSuSE
 
Fecha de Ingreso: 06-enero-2008
Ubicación: Almazora
Versión: Leap 42.3 KDE
Mensajes: 3.460
Agradecimientos: 360
Agradecido 508 Veces en 416 Mensajes
Poder de Credibilidad: 14
jesusx está en el buen camino
Hola, ese script es para poder conectar e intercambiar archivos con el android? Verás, estoy interesado en poder conectar el movil al pc pero no se como hacerlo, lo enchufo mediante usb pero no se que tengo que hacer para pasarme archivos de un lado a otro. Por bluetooch lo vinculo pero tampoco puedo pasar archivos me dice que está vinculado pero sin conexión... Gracias...
__________________
Si tienes el vibrato de BB King, el tapping de Van Halen, la velocidad de Malmsteen y la guitarra de Vai... enhorabuena eres un gran imitador.
Responder Citando
  #8  
Antiguo 18-feb-2012, 20:24
Avatar de Defton
Defton Defton está desconectado
Miembro Senior
 
Fecha de Ingreso: 03-abril-2007
Ubicación: Mexico/SanLuisPotosi
Versión: 42.1
Mensajes: 864
Agradecimientos: 7
Agradecido 156 Veces en 98 Mensajes
Poder de Credibilidad: 12
Defton está en el buen camino
Enviar un mensaje por MSN a Defton Enviar un mensaje por Skype™ a Defton
Cita:
Iniciado por jesusx Ver Mensaje
Hola, ese script es para poder conectar e intercambiar archivos con el android? Verás, estoy interesado en poder conectar el movil al pc pero no se como hacerlo, lo enchufo mediante usb pero no se que tengo que hacer para pasarme archivos de un lado a otro. Por bluetooch lo vinculo pero tampoco puedo pasar archivos me dice que está vinculado pero sin conexión... Gracias...
si, tiene esa funcion, de intercambiar archivos, aparte de instalar apps. funciona conectandolo por usb, y tener la SDK instalada ( primer boton ) y en el dispositivo tiene que estar activado el modo de depuración USB ( ajustes/aplicaciones/desarrollo ) para que funcione. Saludos y cualquier duda aquí andamos.

PD: a ver si para la siguiente versión le agrego la conexión por wifi.
__________________
__________________________________________________

Mi Blog:
http://elblogdedarkspark.blogspot.mx/
Canales de Youtube:
http://www.youtube.com/user/DarkSpark2099
http://www.youtube.com/user/defton En des-uso
Responder Citando
El Siguiente Usuario Ha Dado las Gracias a Defton Por Este Mensaje:
jesusx (18-feb-2012)
  #9  
Antiguo 18-feb-2012, 22:41
Avatar de jesusx
jesusx jesusx está desconectado
Miembro FOROSuSE
 
Fecha de Ingreso: 06-enero-2008
Ubicación: Almazora
Versión: Leap 42.3 KDE
Mensajes: 3.460
Agradecimientos: 360
Agradecido 508 Veces en 416 Mensajes
Poder de Credibilidad: 14
jesusx está en el buen camino
Cita:
Iniciado por Defton Ver Mensaje
si, tiene esa funcion, de intercambiar archivos, aparte de instalar apps. funciona conectandolo por usb, y tener la SDK instalada ( primer boton ) y en el dispositivo tiene que estar activado el modo de depuración USB ( ajustes/aplicaciones/desarrollo ) para que funcione. Saludos y cualquier duda aquí andamos.

PD: a ver si para la siguiente versión le agrego la conexión por wifi.
Descargando, gracias!! Salu2
__________________
Si tienes el vibrato de BB King, el tapping de Van Halen, la velocidad de Malmsteen y la guitarra de Vai... enhorabuena eres un gran imitador.
Responder Citando
Respuesta

Marcadores


(0 miembros y 1 visitantes)
 
Herramientas
Desplegado

Normas de Publicación
No puedes crear nuevos temas
No puedes responder mensajes
No puedes subir archivos adjuntos
No puedes editar tus mensajes

Los Códigos BB están Activado
Las Caritas están Activado
[IMG] está Activado
El Código HTML está Desactivado

Ir al Foro



Síguenos en Twitter Suscríbete a nuestras noticias Acompáñanos en Facebook


La franja horaria es GMT +2. Ahora son las 21:02.
Powered by vBulletin™
Copyright © vBulletin Solutions, Inc. All rights reserved.

Esta página está bajo una licencia de Creative Commons, salvo que no se indique lo contrario.
Creative Commons License

Valid CSS!

Diseño por:Designed by: vbdesigns.devbdesigns.de 
Contáctenos - ForoSUSE - Archivo - Declaración de Privacidad - Arriba