Ajuda :) um launcher dai preciso desse comando helpp pf ;D Hitskin_logo Hitskin.com

Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o temaVoltar para a ficha do tema

Aldeia RPG
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Ajuda :) um launcher dai preciso desse comando helpp pf ;D

Ir para baixo

Ajuda :) um launcher dai preciso desse comando helpp pf ;D Empty Ajuda :) um launcher dai preciso desse comando helpp pf ;D

Mensagem por lucasbiell Ter Abr 17, 2012 10:16 pm

iai pessoal da aldeia Ajuda :) um launcher dai preciso desse comando helpp pf ;D 1071211947 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 Ajuda :) um launcher dai preciso desse comando helpp pf ;D 1071211947, eu estou usando o codigo de baixar arquivo e talz Ajuda :) um launcher dai preciso desse comando helpp pf ;D 1371890812 alguem poderia me explicar Ajuda :) um launcher dai preciso desse comando helpp pf ;D 1071211947 fazer um tutorialzinho de como eu faço isso?! pf Ajuda :) um launcher dai preciso desse comando helpp pf ;D 1071211947 eu achei isso na internet Ajuda :) um launcher dai preciso desse comando helpp pf ;D 1071211947 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
porem não sei se ta certo nem sei como usar alguem poderia me ajudar nisso Ajuda :) um launcher dai preciso desse comando helpp pf ;D 3912376022 vlw pela atenção obrigado

malz se postei na area errada =/

_________________
Spoiler:
lucasbiell
lucasbiell
Membro Ativo
Membro Ativo

Mensagens : 366
Créditos : 36

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

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