[Tutorial] Auto Update para Launcher Versão 4 (VB6)

[Tutorial] Auto Update para Launcher Versão 4 (VB6)

[Descrição]
Este tutorial ensina como criar um Auto Update para colocar para launcher no VB6, um Auto Update serve para atualizar os arquivos do cliente de seus players sempre que necessario.

[Versão 3]
[-] Adicionado novo sistema de verificação de arquivos ja baixados
[-] Adicionado sistema de extração de arquivos rar.
[-] Opções para ativar e desativar noticias e Arquivos RAR.

[Versão 4]
[-] Adicionado sistema de Progresso de todos arquivos de Update.
[-] Adicionada novas funções para mudar as cores das progressbars.
[-] Opção para deletar arquivo RAR apos a Extração ou não.

Exemplo da nova função de colocar cor em ProgressBars:
[Somente Usuários Registrados Podem Visualizar os Links Desta PáginaClique aqui para se Registrar]

[Tutorial Desing]
1° Abra um novo projeto no VB, renomeie o form que ira aparecer para: AutoUpdate.

2° Abra o Form (AutoUpdate) como desing e adicione os seguintes controles:Modifique as seguintes propriedades dos controles:
4° Aperte CRLT + T e selecione os seguintes controles:
Clique em Aplicar.
Agora adicione os seguintes controles dentro do Form:
Mude a propriedade "Name" do Inet para: iNet

Deixe mais ou menos assim:

[Somente Usuários Registrados Podem Visualizar os Links Desta PáginaClique aqui para se Registrar]

[Tutorial Codigo]
1° Vá no Menu View clique em Code. Ira aparecer uma janela de codigo, va na primeira linha e digite o seguinte codigo:

'Declarações
Private Declare Sub InitCommonControls Lib "comctl32.dll" ()
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

'IMPORTANTE !!! ENDEREÇO DO ARQUIVO DE INFORMAÇÃO DO UPDATE
Private Const sEndereço As String = "http://127.0.0.1:8090/update/"
'IMPORTANTE !!! ENDEREÇO DO ARQUIVO DE INFORMAÇÃO DO UPDATE

'Verificação de Noticias ou Extração de Arquivos .RAR
Private Const Noticias As Boolean = True
Private Const ArquivosRAR As Boolean = True

Private Type tAtualização
    sArquivo As String
    sData_Arquivo As String
    sData_Atualização As String
    sEndereço As String
End Type

Private sTamanho_do_Arquivo As String
Private uInformaçao() As tAtualização

Private Sub cmdCancelar_Click()
Unload Me
End Sub

Private Sub cmdPronto_Click()
Unload Me
End Sub

Private Sub Form_Initialize()
InitCommonControls
End Sub

Private Sub Form_Load()

If Noticias Then
txtPrincipal.Visible = False
lblAtualização.Top = 100
ProgressBar1.Top = 350
cmdPronto.Top = 700
cmdCancelar.Top = 700
Me.Height = 1700
End If

'Desativa o Botão cmdPronto
cmdPronto.Enabled = False
'Verifica de a Pasta update existe
Me.Show
'Inicia o Update
ComeçarAtualização
End Sub

Private Sub Form_Unload(Cancel As Integer)
'Ao fechar o Programa, o download sendo feito pelo Inet e cancelado assim previnindo de erros ou problemas.
iNet.Cancel
End Sub

Private Sub txtPrincipal_GotFocus()
cmdCancelar.SetFocus
End Sub
Public Sub ComeçarAtualização()
'On Error Resume Next
'Declarações do Codigo
Dim iCnt As Integer
Dim sAtualização As String
Dim sNoticias As String
Dim sSplit_a() As String, sSplit_b() As String
Dim bByte_Atualização() As Byte
Dim iInt As Integer
Dim iArquivo As Integer
Dim iBinary As Integer
Dim sTemp As String
Dim lTamanho As Long, lRestante As Long, lTamanhoAgora As Long
Dim bChunk() As Byte
Dim iProgresso As Integer
Dim sPastas() As String
Dim iMax As Integer
Dim sAtualizacaoINI As String
Dim sNoticiasINI As String
Dim sPastasINI As String
Dim lRar As Long
'Fim das declarações


 sAtualização = iNet.OpenURL(sEndereço & "Informacoes.ini", icString)  'Baixando arquivo das informações do update
 'Escrevendo o arquivo de verificação dos arquivos de update
 Open App.Path & "\Informacoes.ini" For Append As #1
 Print #1, sAtualização
 Close #1
 
 lblAtualização.Caption = "Checando Atualizaçoes..."
 
 'Inserindo dados nas strings
 sAtualizacaoINI = ReadINI(App.Path & "\Informacoes.ini", "Informacoes", "Atualizacao")
 sNoticiasINI = ReadINI(App.Path & "\Informacoes.ini", "Informacoes", "Noticias")
 sPastasINI = ReadINI(App.Path & "\Informacoes.ini", "Informacoes", "Pastas")
 Kill App.Path & "\Informacoes.ini"
 
 'Baixando arquivo de atualização e Noticias
 sAtualização = iNet.OpenURL(sEndereço & sAtualizacaoINI, icString)
 sNoticias = iNet.OpenURL(sEndereço & sNoticiasINI, icString)
 
 txtPrincipal.Text = sNoticias
 sAtualização = sAtualização
 sSplit_a = Split(sAtualização, vbCrLf)

 ReDim uInformaçao(UBound(sSplit_a)) 'Re-declarando uInformação

    'Selecionando Informações dos arquivos a serem baixados
    For iCnt = LBound(sSplit_a) To UBound(sSplit_a)
    sSplit_b = Split(sSplit_a(iCnt), ", ")
        With uInformaçao(iCnt)
           .sArquivo = Trim$(sSplit_b(0))
           .sData_Atualização = Trim$(sSplit_b(1))
           .sEndereço = Trim$(sSplit_b(2))
       End With
    Next iCnt
    'Fim da seleção

 'Essa parte vai verificar as pastas, baixar o arquivo, muda a porcetagem do arquivo ja baixado.
 For iCnt = 0 To UBound(uInformaçao)
        'Verifica se o arquivo ja foi baixado
        If VerificarAtualizaçao(uInformaçao(iCnt).sArquivo, uInformaçao(iCnt).sData_Atualização) = False Then
            'Coloca informações na Label
            lblAtualização.Caption = "Baixando " & uInformaçao(iCnt).sArquivo & ", Aguarde..."
            'Verifica as pastas a serem criadas
            sPastas() = Split(sPastasINI, "|")
            For iMax = LBound(sPastas) To UBound(sPastas)
            VerificarPasta (sPastas(iMax))
            Next
            DoEvents
            'Seleciona o arquivo a ser baixado pelo Inet
            bByte_Atualização() = iNet.OpenURL(uInformaçao(iCnt).sEndereço, icByteArray)
            'Verifica se o Inet esta Executando
            Do While iNet.StillExecuting = True
            DoEvents
            Loop
            'Muda o maximo da progressbar para 100
            ProgressBar1.Max = 100
            'Pega o Tamanho do Arquivo e muda os porcentos da progress bar e do Caption do Form
            lTamanho = CLng(iNet.GetHeader("Content-Length"))
            lRestante = lTamanho
            lTamanhoAgora = 0
            Do Until lRestante = 0
                If lRestante > 1024 Then
                    bChunk = iNet.GetChunk(1024, icByteArray)
                    lRestante = lRestante - 1024
                Else
                    bChunk = iNet.GetChunk(lRestante, icByteArray)
                    lRestante = 0
                End If
                lTamanhoAgora = lTamanho - lRestante
                iProgresso = CInt((100 / lTamanho) * lTamanhoAgora)
                ProgressBar1.Value = iProgresso
                AutoUpdate.Caption = iProgresso & "%" & " Baixado" & " - Auto Update - Para ********BR"
        Loop
            'Escreve o arquivo baixado
            iBinary = FreeFile
            If VerificarArquivo(App.Path & "\" & uInformaçao(iCnt).sArquivo) Then
            Kill App.Path & "\" & uInformaçao(iCnt).sArquivo
            End If
            Open App.Path & "\" & uInformaçao(iCnt).sArquivo For Binary Access Write As #iBinary
            Put #iBinary, , bByte_Atualização()
            Close #iBinary
            'Escreve no arquivo de update
            iArquivo = FreeFile
            Open App.Path & sArquivoUPD For Append As iArquivo
            If Not uInformaçao(iCnt).sArquivo = "" Then
            Print #iArquivo, vbNewLine & "(" & iNumero + 1 & ") = " & uInformaçao(iCnt).sArquivo & "|" & uInformaçao(iCnt).sData_Atualização
            Call WriteINI(App.Path & sArquivoUPD, "Atualizações", "Numero", iNumero + 1)
            End If
            Close #iArquivo
            End If
            
            'Verificando se a extração dos arquivos rar esta ativado.
            If ArquivosRAR And VerificarRAR(uInformaçao(iCnt).sArquivo) Then
            'Abrindo arquivo RAR
            Call Rar.Open(App.Path & "\" & uInformaçao(iCnt).sArquivo)
            'Extraindo arquivo RAR
            lRar = Rar.Unrar(App.Path & "\")
            lblAtualização = "Extraindo Arquivo " & uInformaçao(iCnt).sArquivo
            'Se ocorrer tudo bem na extração do rar mostra uma mensagem.
            If lRar <> 0 Then
            lblAtualização = "Arquivo extraido com sucesso."
            End If
            End If
Next iCnt

'Informação ao Completar a Atualização
If iNet.StillExecuting = False Then
lblAtualização.Caption = "Finalizado..."
End If
AutoUpdate.Caption = "Auto Update"
'Ativa o Botão cmdPronto
cmdPronto.Enabled = True
End Sub

2° Vá no menu Project depois clique em Add Module. Depois Adicione o seguinte codigo nele:

Public Const sArquivoUPD As String = "\Updates.upd"

Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Public Ret As String
Public iNumero As Integer

Public Function VerificarArquivo(Arquivo As String) As Boolean
If Len(Dir$(Arquivo, vbNormal)) > 0 Then
    VerificarArquivo = True
    Exit Function
Else
    VerificarArquivo = False
    Exit Function
End If
End Function

Public Function VerificarPasta(Pasta As String)
If Len(Dir$(Pasta, vbDirectory)) > 0 Then
Else
MkDir App.Path & "\" & Pasta
End If
End Function

Public Function VerificarRAR(sArquivo As String)
If Right(sArquivo, 3) = "rar" Then
VerificarRAR = True
Else
VerificarRAR = False
End If
End Function

Public Sub WriteINI(filename As String, Section As String, Key As String, Text As String)
    WritePrivateProfileString Section, Key, Text, filename
End Sub
Public Function ReadINI(filename As String, Section As String, Key As String)
    Dim RetLen As String
    Ret = Space$(255)
    RetLen = GetPrivateProfileString(Section, Key, "", Ret, Len(Ret), filename)
    Ret = Left$(Ret, RetLen)
    ReadINI = Ret
End Function


Public Function VerificarAtualizaçao(sArquivo As String, sData As String) As Boolean
Dim i As Integer
Dim sResultado As String
Dim sSplit() As String
VerificarAtualizaçao = False

iNumero = ReadINI(App.Path & sArquivoUPD, "Atualizações", "Numero")

For i = 1 To iNumero
sResultado = ReadINI(App.Path & sArquivoUPD, "Atualizações", "(" & i & ")")
If Not IsNull(sResultado) Then
sSplit() = Split(sResultado, "|", , vbTextCompare)
If sSplit(0) = sArquivo And sSplit(1) = sData Then
VerificarAtualizaçao = True
End If
End If
Next
End Function

[Configurando]
Bom.. Esta parte e um pouco complicada então leia com atenção para não ter nenhum problema.

1° Você precisa ter um Host, este sera ultilizado para guardar as informações do update e os arquivos que seram baixados pelo mesmo.

2° No host crie um pasta chamada "update". Dentro dessa pasta crie os seguintes arquivos:
3° O modelo do "Informacoes.ini" e este:

[Informacoes]
Atualizacao = Atualizacoes.txt
Noticias = Noticias.txt
Pastas =

Atualizacao = neste local coloque o nome do arquivos de atualizações onde ficaram os arquivos a serem atualizados.
Noticias = neste local coloque o nome do arquivo de Noticias, onde ficaram as noticias que serão mostradas no programa.
Pastas = neste local você deve colocar as pastas que precisam ser criadas, neste formato: Pasta1|Pasta2|Pasta3

4° O modelo do "Atualizacoes.txt" e este:
As informações são separadas por "," (virgulas).
Se você quiser colocar mais um arquivo e so colocar ele na proxima linha.

5° O modelo do "Noticias.txt" e um texto normal, para mostrar as informações das ultimas atualizações.

6° Depois de ja ter os arquivos de update configurados, você vai precisar mudar a URL no programa.
Procure no Form AutoUpdate:

Private Const sEndereço As String = "http://127.0.0.1:8090/update/"

Troque "http://127.0.0.1:8090/update/" pelo Endereço do seu host.

7° No Form AutoUpdate se encontram duas Const, essas consts dependedo do valor ativa ou não certas opções.

Private Const Noticias As Boolean = True

True: Ativa as noticias, False: Desativa as noticias.

Private Const ArquivosRAR As Boolean = True

True: Ativa a extração de arquivos .rar, False: Desativa a extração de arquivos .rar.

Private Const DeletarRAR As Boolean = False

True: Deleta o arquivo.rar apos extração., False: Não deleta.

8° A nova função da Source, a função que muda as cores das progressbars são muito faceis de se ultilizar, primeiro e preciso procurar no Form_Load as seguintes linhas:

'Mudando a Cor da ProgreessBar1
Call ProgressBar_ForeColor(ProgressBar1.hwnd, "0000FF")
'Mudando a Cor da ProgreessBar2
Call ProgressBar_ForeColor(ProgressBar2.hwnd, "8B7500")

No codigo: Call ProgressBar_ForeColor(ProgressBar1.hwnd, "0000FF")
O "0000FF" Representa uma cor em HTML, essa representação de cor pode ser encontrada em varios editores de imagem inclusive o Photoshop.
Lembrando: O Primeiro codigo representa a ProgressBar de baixo, e o segundo Representa a ProgressBar de Cima.

Indicação de site para encontrar uma cor desejada:
[Somente Usuários Registrados Podem Visualizar os Links Desta PáginaClique aqui para se Registrar] (Otimo ;))

[Source]
Download V3: [Somente Usuários Registrados Podem Visualizar os Links Desta PáginaClique aqui para se Registrar]
Download V4: [Somente Usuários Registrados Podem Visualizar os Links Desta PáginaClique aqui para se Registrar]

[Source Launcher & Update]
[Somente Usuários Registrados Podem Visualizar os Links Desta PáginaClique aqui para se Registrar]

[Observações]
Se durante o teste o Update der algum erro porfavor venha neste post, e poste o Numero do Erro, Descrição e Linha (Clicando em Debug).

[Creditos]
EneMy - Equipe System

Venho Informa que os Links estão Off e se alguem Tiver o Programa Por Favor nos Mande o Link para Algum Moderador.
Pois o dono do tutorial Deletou o Tópico melhor guardar muito bem Este

[John-X]

Acho que não é necessário, pois no tutorial já é explicado como fazer o auto-update, mais se for necessário posso refazer e upar.

É Necessário, pois os links do Tutorial esta todos Off e creio que o autor deste tópico não irá reupá-los, e este é uns dos unicos tutoriais ainda existente de se criar o Launcher, sendo que o Original Foi deletado..

[islandex]

:D, como colocar dentro do Launchher? :S

[John-X]

Assim que eu instalar, o visual basic, vou fazer o re-upload. Por favor aguardem.

[FRCA]

link para download tudo off =\

[rensilva]

Miranda revisa o topico e ativa os links....

[LolMaster]

Infelizmente os links se encontram offline.
O tópico permanecerá trancado até que sejam fornecidos novos links válidos.
Caso alguém possua os arquivos, por favor entrar em contato comigo via [Somente Usuários Registrados Podem Visualizar os Links Desta PáginaClique aqui para se Registrar] .

Abraços.