Aldeia RPG

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

Suporte ao desenvolvimento de jogos


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

    lucasbiell
    lucasbiell
    Membro Ativo
    Membro Ativo


    Mensagens : 366
    Créditos : 36

    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:

      Data/hora atual: Qui Abr 25, 2024 7:46 am