Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - SγиtαxEяяoя

#11
Oye puedes darte una vuelta por aqui en este post :)

http://foro.elhacker.net/software/programa_screentool-t394696.0.html;msg1870314

Talvez sea lo que busques, si necesitas el sorce me mandas un MP y te lo paso con gusto ^^
#12
Cita de: Ikillnukes en  2 Agosto 2013, 21:37 PM
Syntax, no quiero que te cabrees conmigo
Juas... Espero que no te cabrees... :P
Espero que sepas aceptar criticas... ;)
Pero por igual, gracias por la molestia. :)

No me voy a enojar por eso  ;) e igual no veo ninguna critica hacia mi  :silbar: y de nada solo queria ayudar :) aunque puedes usar esto para lo del progressbar

Código (vbnet) [Seleccionar]

        If ProgressBar1.Value < ProgressBar1.Maximum Then
            ProgressBar1.Value += 1
        Else
            ProgressBar1.Value = ProgressBar1.Minimum = 99
        End If
#13
Y que tal si yo doy mi aporte  :rolleyes:

Código (vbnet) [Seleccionar]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
        Label1.Text = ("Working")
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       
        If ProgressBar1.Value < ProgressBar1.Maximum Then
            ProgressBar1.Value += 1
        Else
            ProgressBar1.Value = ProgressBar1.Minimum = 99
            Timer1.Stop()
            Label3.Text = ("Success")
'Aqui puedes agregar algún evento, algo como mostrar un Form al completar la barra al 100%
'Siempre la barra se resetea a 0% cuando llega a su tope, y no se reinicia
        End If
    End Sub


Espero que te funcione :)
#14
Hola, ¿Alguna sugerencia de como arreglo este problema?



Desde ya, Gracias  ;)
#15
:huh: :huh: Hace un par de dias tube una pelea aqui en el foro, y ahora otra  :silbar: :silbar: la programacion nos esta volviendo locos  >:D

#16
Opss  :o



Es la unica manera en que me deja ver el foro :P mi compañia de internet es una ***** me bloqueo hasta la pagina de Tumblr Imageshacks.us y otras cuantas mas  :silbar: :¬¬
#17
¿Y que el uso de proxy?  :silbar: Digo, pss usar filtros para navegar ananonimamente

Justo en este momento tengo dos secciones activas de Hotmail y ni una de las dos se a cerrado :P

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

#19
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"
#20
.NET (C#, VB.NET, ASP) / Resource Downloader
22 Julio 2013, 22:46 PM
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