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 ^^

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

        If ProgressBar1.Value < ProgressBar1.Maximum Then
            ProgressBar1.Value += 1
        Else
            ProgressBar1.Value = ProgressBar1.Minimum = 99
        End If
 

Y que tal si yo doy mi aporte 

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

Hola, ¿Alguna sugerencia de como arreglo este problema?



Desde ya, Gracias 

Opss 



Es la unica manera en que me deja ver el foro mi compañia de internet es una ***** me bloqueo hasta la pagina de Tumblr Imageshacks.us y otras cuantas mas 

¿Y que el uso de proxy?  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

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

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"

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