Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o tema • Voltar para a ficha do tema
Ajuda :) um launcher dai preciso desse comando helpp pf ;D
Página 1 de 1
Ajuda :) um launcher dai preciso desse comando helpp pf ;D
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
malz se postei na area errada =/
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
- 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
malz se postei na area errada =/
_________________
- Spoiler:
Facebook
Skype: Lucas_biell
Atuo Nas Areas
Mapper, Eventer (rpg maker xp)
Web master e Designer
Projeto:
http://www.aldeiarpgbr.com/t8623-recrutamento-combat-mario
lucasbiell- Membro Ativo
- Mensagens : 366
Créditos : 36
Tópicos semelhantes
» Preciso desse sistema!
» [AJUDA] Preciso de ajuda para configurar meu nintendo DS Lite (desbloqueio: acekard2 ver 2.1)
» Movido:preciso de ajuda alguem porfavor me ajuda?
» ajuda a descobrir o nome desse filme
» [AJUDA] Comando
» [AJUDA] Preciso de ajuda para configurar meu nintendo DS Lite (desbloqueio: acekard2 ver 2.1)
» Movido:preciso de ajuda alguem porfavor me ajuda?
» ajuda a descobrir o nome desse filme
» [AJUDA] Comando
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos