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

Terminado

Publicado: Hace un año Plazo: 2 días Propuestas: 5 Freelancers interesados: 5

Abierto

Descripción:

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 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: IT & Programação
Subcategoria: Desktop Applications
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
Experiência nesse tipo de projeto: Sim (Eu já gerenciei esse tipo de projeto)
Disponibilidade requerida: Conforme necessário
Plataformas exigidas: Windows

Freelancers que ya aplicaron para este trabajo

José R. Analista de sistemas, graduado em estatística, com especialização em produção multimídia e planejamento de ambientes virtuais de aprendizagem. Inglês técnico. Levantamento de informações junto a usuários, utilização d... + detalles

Fabricio S. Desenvolvedor de sistemas com habilidade em Levantamento de Requisitos, Modelagem de Dados, Criação de Casos de Uso, Treinamento em Programação e Business Intelligence. Programação em .NET, Visual Basic, ASP, PHP, Bo... + detalles

Bruno C. Desenvolvedor de sistemas atuando há 6 anos no mercado de trabalho com projetos que variam desde pequeno até grande porte. Amplo conhecimento em integração entre sistemas, arquitetura de software e desenvolvimento de... + detalles

Thales V. Sou analista de sistemas, bacharel em sistemas de informação, e atualmente trabalho com análise, desenvolvimento e sustentação, a um sistema de faturamento em uma multinacional, utilizando as tecnologias VB.NET, C#, V... + detalles

Daniel I. Sou Pós graduado em Gerencia de Projetos e também em Gerenciamento de Ti e comércio eletrônico com ênfase em Educação Superior. Programador desde 1989. Analista desde 1996. Site www.devoo.com.br + detalles

Crea tu propio proyecto

¿Buscas un freelancer para realizar un proyecto similar? Crea tu propio proyecto y recibirás ofertas de los mejores freelancers.


Método de pago: Verificado