Realizado

Criar em Vb um form exemplo que faz sua atualização automaticamente, baseado num exemplo já feito do site www.macoratti.net/

Publicado em 08 de Setembro de 2016 dias na TI e Programação

Sobre este projeto

Aberto

Criei um programinha em VB  e quero distribuir gratuitamente no meu site. No site do Macoratti link: http://www.macoratti.net/atual_vb.htm ensina como fazer que o programa busque uma nova versão que esteja em algum endereço. Mas deu alguns erros, Então a sua missão é fazer com que o código funcione.
Parece que está faltando um componente ou alo assim. Caso queira fazer outro código, desde que explicado também pode.

Segue o código abaixo, é só criar o proeto com form1 que terá a mesma visão que tive:

Public Class Form1

    Public Function Baixa_Versao(ByVal LocalArquivo As String, ByVal LocalURLArquivo As String) As Boolean
        On Error GoTo Baixa_erro

        Dim bt() As Byte

    Open LocalArquivo For Binary Access Write As #1
        bt() = Inet1.OpenURL(LocalURLArquivo, icByteArray)
    Put #1, , bt()
    Close #1
        Baixa_Versao = True

        Exit Function

Baixa_erro:
        Msgbox("Ocorreu um erro durante a transferência do arquivo  !", vbcritical)
        Baixa_versao = False
        Close#(1)
    End Function


    Public Function Verifica() As Boolean
        Dim Atual As Boolean
        Dim Versao As String
        Dim Versao_Atual As String
        Versao_Atual = App.Major & App.Minor & App.Revision

        Atual = False

        If Baixa_Versao("c:\versao\atual.txt", "http://www.geocities.com/macoratti/versao.txt") Then

        Open "c:\versao\atual.txt" for Input As #1
        Line Input #1 , Versao
        Close #1

            Versao = trim(Versao)

            Kill("c:\versao\atual.txt")

            If Versao <> "" And Versao_Atual < Versao Then
                Atual = Baixa_Versao("c:\versao\TEMP.EXE", "http://www.geocities.com/macoratti/seu_programa.exe")
            End If
        End If
        Verifica = Atual

    End Function


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        Call Baixa_Versao("c:\teste\baixa.dat", "http://www.geocities.com/macoratti/teste.txt")


    End Sub
End Class

Categoria TI e Programação
Subcategoria Aplicativos desktop
Qual é o alcance do projeto? Bug ou alteração pequena
Isso é um projeto ou uma posição de trabalho? Um projeto
Tenho, atualmente Eu tenho uma ideia geral
Disponibilidade requerida Conforme necessário
Experiência nesse tipo de projeto Sim (Eu já gerenciei esse tipo de projeto)
Plataformas exigidas Windows

Prazo de Entrega: 10 de Setembro de 2016

Voce gostaria de começar trabalhar neste projeto?

Entre com sua conta Workana ou faça o seu cadastro! Potencialize seu trabalho freelancer

Outro projetos publicados por ALEXSANDRO V. D. S.