OPCOES EM AUTOUPDATE
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
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
-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
Sou novo em vb não entendi muito bem poderia postar em uma aplicação o exemplo que vc deu ?
Tópico encerrado , respostas não são mais permitidas