iai pessoal da aldeia
estou precisando de ajuda como sempre
bom eu tou criando um launcher com autoupdate no Visual basic 2008 express , porem
eu queria fazer uma coisa so que n tenho a minima noção !!! alguem me ajuda
bom eu queria colocar aquela "Progress bar" para mostrar o tamanhado do download , o tempo
que falta e talz :/ so q n consigo
, eu estou usando o codigo de baixar arquivo e talz
alguem poderia me explicar
fazer um tutorialzinho de como eu faço isso?! pf
eu achei isso na internet
ta falando "BAIXAR ARQUIVOS DA INTERNET E EXIBIR O PROGRESSO VB" o codigo abaixo
vlw pela atenção obrigado
malz se postei na area errada =/
![Ajuda :) um launcher dai preciso desse comando helpp pf ;D 1071211947](https://2img.net/u/1813/22/04/00/smiles/1071211947.gif)
bom eu tou criando um launcher com autoupdate no Visual basic 2008 express , porem
eu queria fazer uma coisa so que n tenho a minima noção !!! alguem me ajuda
bom eu queria colocar aquela "Progress bar" para mostrar o tamanhado do download , o tempo
que falta e talz :/ so q n consigo
![Ajuda :) um launcher dai preciso desse comando helpp pf ;D 1071211947](https://2img.net/u/1813/22/04/00/smiles/1071211947.gif)
![Ajuda :) um launcher dai preciso desse comando helpp pf ;D 1371890812](https://2img.net/u/1813/22/04/00/smiles/1371890812.gif)
![Ajuda :) um launcher dai preciso desse comando helpp pf ;D 1071211947](https://2img.net/u/1813/22/04/00/smiles/1071211947.gif)
![Ajuda :) um launcher dai preciso desse comando helpp pf ;D 1071211947](https://2img.net/u/1813/22/04/00/smiles/1071211947.gif)
![Ajuda :) um launcher dai preciso desse comando helpp pf ;D 1071211947](https://2img.net/u/1813/22/04/00/smiles/1071211947.gif)
- Código:
Private Function DownloadFileWithProgress(ByVal SourceURL As String, _
ByVal DestinationPath As String, _
ProgressControl As Object, _
InetControl As Object) As Boolean
Const CHUNK_SIZE As Long = 1024
Dim lBytesReceived As Long
Dim lFileLength As Long
Dim sHeader As String
Dim b() As Byte
Dim i As Integer
DoEvents
ProgressControl.Value = 0
ProgressControl.Min = 0
ProgressControl.Max = 100
DoEvents
With InetControl
.url = SourceURL
.Execute , "GET", , "Range: bytes=" & CStr(lBytesReceived) & "-" & vbCrLf
While .StillExecuting
DoEvents
Wend
sHeader = .GetHeader
End With
sHeader = InetControl.GetHeader("Content-Length")
lFileLength = Val(sHeader)
DoEvents
lBytesReceived = 0
Open DestinationPath For Binary Access Write As #1
Do
b = InetControl.GetChunk(CHUNK_SIZE, icByteArray)
Put #1, , b
lBytesReceived = lBytesReceived + UBound(b, 1) + 1
ProgressControl.Value = (Round((lBytesReceived / lFileLength) * 100))
DoEvents
Loop While UBound(b, 1) > 0
Close #1
End Function
![Ajuda :) um launcher dai preciso desse comando helpp pf ;D 3912376022](https://2img.net/u/1813/22/04/00/smiles/3912376022.gif)
malz se postei na area errada =/