Resource Downloader

Iniciado por SγиtαxEяяoя, 22 Julio 2013, 22:46 PM

0 Miembros y 2 Visitantes están viendo este tema.

SγиtαxEяяoя

Hola, me preguntaba si se puede hacer un programa que descargue todos los recursos de una pagina "Juego Flash"

Tengo las "ID's" de los archivos algo asi por ejemplo


http://www.juego.com/juego/swf/id/001.swf
http://www.juego.com/juego/swf/id/002.swf
http://www.juego.com/juego/swf/id/003.swf
http://www.juego.com/juego/swf/id/004.swf
http://www.juego.com/juego/swf/id/005.swf

y se me toma muy molesto estar cambiando los "ID" de cada .swf

¿Existe alguna manera de hacerlo mas rapido? algo asi de poner todas las ID's en un "File.txt" y que el programa pase de Id, en Id y las descargue


Eleкtro

#1
No estoy delante de la IDE, si hay algun error de sintaxis corrígelo:

Código (vbnet) [Seleccionar]
' dim strarray() as string = io.file.readalllines("C:\ids.txt")

for each ID as string in io.file.readalllines("C:\ids.txt"): downloader(ID) : next

private sub downloader(byval ID as string)
' descargar ID
dim url = nothing
try : url = new uri(ID) : catch : msgbox("Enlace no válido"): end try
...
end sub








SγиtαxEяяoя

Código (vbnet) [Seleccionar]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim client As WebClient = New WebClient
        AddHandler client.DownloadProgressChanged, AddressOf client_ProgressChanged
        AddHandler client.DownloadFileCompleted, AddressOf client_DownloadCompleted
        client.DownloadFileAsync(New Uri("http://d1hmtg1vead5c8.cloudfront.net/sr/images/ships/swf_big_1.5.4/" & ListView1.SelectedItems(0).Text & ".swf"), (".\Archivos\") & ListView1.SelectedItems(0).Text & ".swf")
        Button1.Text = "Please Wait"
        Button1.Enabled = False
        'If ListView1.SelectedItems.Count > 0 Then
        '    My.Computer.Network.DownloadFile("http://d1hmtg1vead5c8.cloudfront.net/sr/images/ships/swf_big_1.5.4/" & ListView1.SelectedItems(0).Text & ".swf", (".\Archivos\") & ListView1.SelectedItems(0).Text & ".swf")
        'End If
    End Sub
    Private Sub client_ProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs)
        Dim bytesIn As Double = Double.Parse(e.BytesReceived.ToString())
        Dim totalBytes As Double = Double.Parse(e.TotalBytesToReceive.ToString())
        Dim percentage As Double = bytesIn / totalBytes * 100
        progressBar1.Value = Int32.Parse(Math.Truncate(percentage).ToString())
    End Sub
    Private Sub client_DownloadCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs)
        Button1.Text = "Start Download"
        Button1.Enabled = True
        ProgressBar1.Value = 0
    End Sub


Esto es algo de lo que llevo, como puedo integrar tu codigo con el mio.. es decir como puedo hacer que al presionar el "Button1" se descargue todo lo que hay en el "Listview1"

z3nth10n

#3
Sencillo:

Código (vbnet) [Seleccionar]
For Each ID In ListBox1.Items
           My.Computer.Network.DownloadFile(ID, ".\Archivos\" & ListView1.SelectedItems(0).Text & ".swf")
       Next


No estoy seguro si va a funcionar, pero la idea seria algo así. ;)

Interesados hablad por Discord.

Eleкtro

Haces un ciclo en la colección de items del Listbox, y listo, como te ha comentado IkillNukes.

Saludos








z3nth10n

Bieeeen, como me gusta no equivocarme cuando ayudo! :3
PD: Muy fuera del tema: Donde tás metio tol día Elektro?
PDS: Espero que se hayan arreglado tus dudas Syntax, ya sabes si tienes alguna duda más, pues posteala... ;)

Interesados hablad por Discord.

SγиtαxEяяoя

Bien, gracias por sus ayudas pero les voy arruinar la fiesta  >:D


z3nth10n

Descarga el code de fuente y usa regex para borrar lo que no quieras del archivo. :silbar:

Interesados hablad por Discord.

Eleкtro

#8
Puedes parsear un documento JSON usando > JSON.NET <

O puedes loopear todas las lineas del documento y filtrar usando > RegEx <

Código (vbnet) [Seleccionar]
       Dim json As String = <a><![CDATA["1010204": {]]></a>.Value
       Dim [RegEx] As New System.Text.RegularExpressions.Regex(<a><![CDATA[\"(\d{7})\"]]></a>.Value)
       MsgBox([RegEx].Match(json).Groups(1).ToString)


EDITO:

Código (vbnet) [Seleccionar]
       Dim JSON As String = IO.File.ReadAllText("File.json")
       Dim Pattern As String = <a><![CDATA[\"(\d{7,7})\"]]></a>.Value
       Dim Matches As Match = Regex.Match(JSON, Pattern)

       Do While Matches.Success
           MsgBox(Matches.Groups(1).ToString)
           Matches = Matches.NextMatch()
       Loop


Saludos.