OPCOES EM AUTOUPDATE

 Tópico anterior Próximo tópico Novo tópico

OPCOES EM AUTOUPDATE

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#424036 - 25/05/2013 23:54:16

GUSTAVOMARQUES
JOSE BONIFACIO
Cadast. em:Março/2013


Eai galera beleza

Estou com uma duvida aqui em um launcher que estou criando na parte de atualizações
exemplo:
Imports System.Net
Public Class principal
    WithEvents webclient1 As New WebClient
    WithEvents webclient2 As New WebClient
    Dim versaoatual As String = "1.0.0.1"
    Private Sub principal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim versaodosite As String = webclient1.DownloadString("http://localhost:80/versao.txt")
        If versaodosite > versaoatual Then
            Label1.Text = "Atualizando Programa..."
            Label1.ForeColor = Color.Red
            webclient2.DownloadFileAsync(New Uri("http://localhost:80/downloadclear.zip"), "Atualizacao.zip")
        Else
            Timer1.Start()
            Label1.Text = "Verificando Atualizaçoes..."
            Label1.ForeColor = Color.Gold
            
            
        End If
    End Sub

Ele atualiza si "Dim versaoatual As String = "1.0.0.1" mais eu queria que isso estivesse dentro de um txt ou ini e que quando atualizasse ele baixava a versão 1.0.0.2  e se alguém abrisse novamente ele não ia precisar atualiza porque ja esta com a versão mais nova, e se tivesse com uma versão abaixo dá mais nova ele atualizava, se alguém poder ajudar :D    



Resposta escolhida #424038 - 26/05/2013 12:36:16

PROGRAMADORVB6
LISBOA
Cadast. em:Janeiro/2004


Última edição em 26/05/2013 13:27:22 por PROGRAMADORVB6


-1º você terá que fazer um update para o servidor da versão actualizada, em um txt com o nº da versão.
-2º No servidor deverá já estar a nova versão do ficheiro Exe;Dll,Zip etc( o link terá que ser sempre o mesmo )
-3º Por último quando faz o download do txt da versão no servidor, compara o conteudo do Txt que tem na pasta de actualizações, caso esta seja < que a anterior, procede ao download pelo link do ficheiro novo.
Public Sub Checa_Actualizacoes()
Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://localhost:80/versao.txt")
Dim response As System.Net.HttpWebResponse = request.GetResponse()        
Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())        
Dim newestversion As String = sr.ReadToEnd()        
Dim currentversion As String = Application.ProductVersion        
If newestversion.Contains(currentversion) Then            
MsgBox("Não existem actualizações")        
Else : MsgBox("Há uma nova atualização")            
System.Diagnostics.Process.Start("http://localhost:80/downloadclear.zip")        
End If    
End Sub  


- Ou :
Dê uma olhada em : http://www.codeproject.com/Articles/11542/Application-Auto-Update-in-VB-NET
Até+
Programadorvb6

______________________________________________________________________________

Que minha coragem seja maior que meu medo e que minha força seja tão grande quanto minha fé.


#424173 - 28/05/2013 20:33:06

GUSTAVOMARQUES
JOSE BONIFACIO
Cadast. em:Março/2013


Sou novo em vb não entendi muito bem poderia postar em uma aplicação o exemplo que vc deu ?



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por GUSTAVOMARQUES em 15/08/2013 19:24:18