Você não está conectado. Conecte-se ou registre-se

Ver o tópico anterior Ver o tópico seguinte Ir para baixo Mensagem [Página 1 de 1]

#1
unknown

unknown
Administrador
Administrador
Adicione:
2 Buttons
1 ProgressBar


Em Properties em Text:
Button 1 para Baixar Arquivo
Button 2 para Sair

De 2 cliques no Form1 e adicione esse codigo:

Código:

Imports System.Net

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Button1.Enabled = False
        download = New WebClient
        download.DownloadFileAsync(New Uri("http://az310865.vo.msecnd.net/arcticcombat/InstallArcticCombat_2.exe"), "C:\Documents and Settings\All Users\Desktop\InstallArcticCombat_2.exe")
    End Sub


    Public WithEvents download As WebClient
    Private Sub download_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles download.DownloadFileCompleted
        MessageBox.Show("Mensagem a ser dita quando o download terminar")
    End Sub


    Private Sub download_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles download.DownloadProgressChanged
        ProgressBar1.Value = e.ProgressPercentage
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub

End Class

Obs: Eu coloquei o download do ArcticCombat so como exemplo mais vocês podem adicionar qualquer tipo de download na sourcer codigo pode ser programas ou musica ou ate mesmo jogos.







https://invisionvirus.directorioforuns.com

Ver o tópico anterior Ver o tópico seguinte Ir para o topo Mensagem [Página 1 de 1]


Permissões neste sub-fórum
Não podes responder a tópicos