Postado Dom Fev 22, 2015 1:38 pm
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:
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.