Dario APK

Hace algún tiempo, cuando andaba en locomoción colectiva, específicamente en metro de Santiago, siempre veía gente revisando el periódico nacional en sus equipos móviles,los que requiere de conexión a internet que no todos tienen o no quieren gastar. Debido a esto, se me ocurrió crear una aplicación que me permita bajar todos los archivos del periódico en cuanto tenga conexión a internet (desde mi casa antes de salir, por ejemplo). Ahora el código fuente y adjuntaré el APK.


import android.app.DownloadManager;
import android.content.Context;
import android.net.Uri;
import android.os.Environment;
import android.os.PersistableBundle;
import android.support.v7.app.AppCompatActivity;
import android.os.Bundle;
import android.util.Log;
import android.view.View;
import android.widget.Button;
import java.io.File;
import java.io.FileOutputStream;
import java.text.SimpleDateFormat;
import java.util.Date;
import java.util.Locale;

public class MainActivity extends AppCompatActivity {

    @Override
    protected void onCreate(Bundle savedInstanceState) {
        super.onCreate(savedInstanceState);
        setContentView(R.layout.activity_main);

        Button button = (Button) findViewById(R.id.botonP);

        button.setOnClickListener(new View.OnClickListener(){
            @Override
            public void onClick(View v) {
                GeneraURL();
            }
        });
    }

    public void GeneraURL(){

        SimpleDateFormat sdf = new SimpleDateFormat("dd/MM/yyyy", Locale.getDefault());
        String time = sdf.format(new Date());
        String[] separar = time.split("/");
        String dia = separar[0];
        String mes = separar[1];
        String anio = separar[2];
        String nombre;
        String URL;
        String ruta = dia + mes + anio;

        for(int l=1; l<=90; l++){
            if(l < 10) {
                URL = "http://papeldigital.info/lt/" + anio + "/" + mes + "/" + dia + "/01/jpg/04" + "/00" + l + ".jpg";
                nombre = String.valueOf(l) + ".jpg";
                downloadFile(URL,nombre,ruta);
            }else{
                URL = "http://papeldigital.info/lt/" + anio + "/" + mes + "/" + dia + "/01/jpg/04" + "/0" + l + ".jpg";
                nombre = String.valueOf(l) + ".jpg";
                downloadFile(URL,nombre,ruta);
            }
        }
    }

    public void downloadFile(String uRl, String Nombre, String Fecha) {
        File direct = new File(Environment.getExternalStorageDirectory() ,"/dario/Latercera/" + Fecha);

        if (!direct.exists()) {
            direct.mkdirs();
        }

        DownloadManager mgr = (DownloadManager) this.getSystemService(Context.DOWNLOAD_SERVICE);

        Uri downloadUri = Uri.parse(uRl);
        DownloadManager.Request request = new DownloadManager.Request(
                downloadUri);

        request.setAllowedNetworkTypes(
                DownloadManager.Request.NETWORK_WIFI
                        | DownloadManager.Request.NETWORK_MOBILE)
                .setAllowedOverRoaming(false).setTitle("Dario")
                .setDescription("Algo no salió bien.")
                .setDestinationInExternalPublicDir("/dario/Latercera/" + Fecha, Nombre);

        mgr.enqueue(request);

    }
}
PD: Los archivos se almacenan en /storage/emulated/0/dario

 Para descargar: Archivo APK

Respecto a los derechos de autor (Copesa. Derechos reservados 2009 - 2010) de prohibida su reproducción y copia, me los paso por la raja porque no es problema mío que no protejan sus datos.

rutas:
La tercera: http://papeldigital.info/lt/2016/06/05/01/jpg/04/001.jpg - Esta claro como funciona.
La cuarta: http://papeldigital.info/lacuarta/2016/06/05/01/jpg/04/001.jpg
La hora: http://papeldigital.info/lahora/2016/06/05/01/jpg/04/001.jpg
LUN: http://images.lun.com/LunContents/NewsPaperPages/2016/jun/06/LUCPR01LU0606_768.jpg
El Mercurio: http://images.elmercurio.com/MerServerContents/NewsPaperPages/2016/jun/05/MERSTPP001AA0506_768.jpg
La Segunda: esta página se preocupó un poco más y agregó sus codigos de paginas por array pero tampoco es tan dificil sacarlas: pagesData[23]={id : 'AR2UN368', category: 'Puzzle', pageNum: 23, link: ""};

Comentarios

Publicar un comentario

Entradas populares de este blog

Conexión SQL Server Macro Excel

Imagen
Para realizar una conexión Excel Macro a SQL Server se realiza de la siguiente forma: Dim cnn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim ConnectionString As String Dim StrQuery As String ConnectionString = "Provider=SQLOLEDB.1;Password=pass;Persist Security Info=True;User ID=usuario;Data Source=ruta_SQLSERVER;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Use Encryption for Data=False;Tag with column collation when possible=False;Initial Catalog=BASE_DE_DATOS" cnn.Open ConnectionString cnn.CommandTimeout = 900 StrQuery = "SELECT * FROM TABLA" rs.Open StrQuery, cnn 'para recorrer los datos obtenidos de la query se puede usar lo siguiente rs.MoveFirst Do While rs.EOF = False Debug.Print (rs!CampoSql) rs.MoveNext Loop rs.Close Set rs = Nothing 'Lo otro es pasar el los datos a un campo Variant de VBA para despues recorrerlo en un loop Dim valoresBD As Variant valoresBD = rs.GetRows valoresBD(1, X) cnn....
Leer más

Descarga revistas yumpu.com

Imagen
Como el titulo lo dice, generé un pequeño programa que realiza descargas de las revisar publicadas en yumpu.com. Necesitaba/n un archivo que había sido subido a este portal, el brillo es que se encuentra en un ember por lo que no se puede bajar o incluso siquiera revise si se podía. De igual manera, este es el código del programa por si alguien lo quiere mejorar o bajar imágenes desde otros lados y weas. Lo que hace el programa es bajar las imágenes de cada revisar que se encuentran en una ruta especifica. Para esto se debe entregar al programa el numero de la revista que se muestra en la imagenes N° 1. También se puede ver un JSON el cual nos presenta los tamaños de las imágenes y la cantidad de archivos. Una vez descargadas las imágenes, procedemos a transformar todo en un PDF y borrar las imágenes. El programa se realizo en C# con SharpDevelop en modo consola, las librerias itextSharp y NewtonSoft Json. De no ser libres estas librerías, besitos para que me perdonen de no ser a...
Leer más

XML - Download File - VBA Excel

Imagen
Tengo un archivo que es usado por distintas personas, necesito realizar una modificación a gran escala en una de las hojas. Para esto usé un archivo estándar que se encontrará online en el servidor y los archivos de las personas puedan diferenciar si tienen una versión antigua comparando el archivo estandar. Para lograr esto, en el archivo usado por el personal cree un macro que valida la versión tanto del archivo personal como del online. También se valida que tengan Internet para realizar el update. y por ultimo se valida que si no realiza la actualización, no puede usar el archivo personal. Inicio automático validación archivo personal: Sub Auto_Open() 'Ejecuta el macro cuando abrimos el archivo excel personal. GetCurrentVersionNumber End Sub Obtención de versión: Function GetCurrentVersionNumber() As String Dim doc As MSXML2.DOMDocument Dim version As String If (checkInternetConnection = True) Then 'valida conexion a internet Set ...
Leer más