Eu tenho um pedido a fazer alguem qeu saiba de VB que me ajude porque não encontro em lado nemhum um auto updater
Eu qeuro um auto updater da minha aplicação no VB
Eu encontrei ulguns mas nao estão assim como eu quero....Eu queria que quando ouvesse uma nova versão para o meu programa, aparece-se esta mensagem "Existe uma nova versão do programa caregue ok para atualizar" ao iniciares o programa..depois qeu fosse baixado a nova versão do programa e apagar a antiga versão e no fim iniciar o programa com a nova versão..Mas não encontro se alguem souber agradeço muito..
ola Via eu não sou muito bom com VB mas experimenta isto pode ser que ajude
Imports System.Net 'Para ser habilitado de usar a internet
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim web As New WebClient 'Para habilitar o download da ultima versão do arquivo.
Dim UltimaVersao As String = web.DownloadString("http://localonde esta o ficheiro /versão.txt") 'Para verificar a versão atual e decidir se há ou não updates.
Dim VersaoDessePrograma As String = My.Application.Info.Version.ToString 'Encontra a versão deste programa.
If VersaoDessePrograma < UltimaVersao Then 'Se a versão deste programa for mais antiga que a nova versão, ele irá atualizar, caso contrario nada será feito.
If MessageBox.Show("Um novo update está disponivel!" & vbNewLine & "Você quer atualizar?", "Atualizador", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then 'Messagebox perguntando se a atualização deve ou não ser feita.
My.Computer.Network.DownloadFile("Http://ocalonde esta o ficheiro /SeuArquivo.exe", Application.StartupPath & "\Atualizado\Programa Atualizado") 'Se for escolhido Yes, será baixada a nova versão do programa e criada uma nova pasta para colocar o arquivo baixado.
MsgBox("The update has been downloaded!" & vbNewLine & "O aplicativo será fechado.") 'Dizendo que o aplicativo vai fechar
End 'Sai do aplicativo
Else
'Se escolherem não
End If
Else
MsgBox("O programa ja está atualizado") 'Informa que o programa ja estava atualizado.
[Ajuda] Auto Updater
in Programação
Posted
ola Via eu não sou muito bom com VB mas experimenta isto pode ser que ajude
Imports System.Net 'Para ser habilitado de usar a internet
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim web As New WebClient 'Para habilitar o download da ultima versão do arquivo.
Dim UltimaVersao As String = web.DownloadString("http://localonde esta o ficheiro /versão.txt") 'Para verificar a versão atual e decidir se há ou não updates.
Dim VersaoDessePrograma As String = My.Application.Info.Version.ToString 'Encontra a versão deste programa.
If VersaoDessePrograma < UltimaVersao Then 'Se a versão deste programa for mais antiga que a nova versão, ele irá atualizar, caso contrario nada será feito.
If MessageBox.Show("Um novo update está disponivel!" & vbNewLine & "Você quer atualizar?", "Atualizador", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then 'Messagebox perguntando se a atualização deve ou não ser feita.
My.Computer.Network.DownloadFile("Http://ocalonde esta o ficheiro /SeuArquivo.exe", Application.StartupPath & "\Atualizado\Programa Atualizado") 'Se for escolhido Yes, será baixada a nova versão do programa e criada uma nova pasta para colocar o arquivo baixado.
MsgBox("The update has been downloaded!" & vbNewLine & "O aplicativo será fechado.") 'Dizendo que o aplicativo vai fechar
End 'Sai do aplicativo
Else
'Se escolherem não
End If
Else
MsgBox("O programa ja está atualizado") 'Informa que o programa ja estava atualizado.
End If
End Sub
End Class
Comprimentos e bons Estudos
Luís Araujo
Friends For The Game