Fazer com que seu programa se atualize automaticamente pela internet pode ser vital em algumas situações, tais como os exemplos:
- Mudei meu IP e meu Trojan / Keylogger perdeu as vitimas
- Correções e atualizações remotas
- Execução de comandos especiais
Neste método, a atualização é feita com o suporte de um arquivo .txt, que armazena a versão atual do programa, e também serve de comparação para averiguar a necessidade de atualizar.
Além disso, também é necessário armazenar o mesmo arquivo .txt em um servidor na internet, este sendo o arquivo de referencia, ou seja, aquele que vai propor a atualização. Exemplificando:
Código: Importações necessárias.
Imports System.IO
Imports System.Net
Código: Verifica conexão com a internet e baixa o arquivo do site para o local especificado.
If My.Computer.Network.IsAvailable Then
HTTPClient.DownloadFile(New Uri("http://www.site.com/novaversao.txt"), ("novaversao.txt"))
Código: Aqui o programa carrega a versão atual do programa.
Reader = IO.File.OpenText("versaoatual.txt")
Dim versao() As String = Reader.ReadToEnd.Split(" ")
Reader.Close()
Reader.Dispose()
versaoatual = versao(0)
Código: E agora ele carrega a versão baixada da internet.
Reader = IO.File.OpenText("novaversao.txt")
Dim versao As String = Reader.ReadToEnd.Split(" ")
Reader.Close()
Reader.Dispose()
novaversao = versao(0)
Código: Após isso, efetuamos a comparação de versões baixadas e, caso necessário, executamos os comandos desejados.
If versaoatual <> novaversao Then
"AQUI VEM SEU CÓDIGO"
Código: Para finalizarmos, o programa deve aderir a nova versão em seu arquivo .txt.
Dim Writer As New IO.StreamWriter("versaoatual.txt", False)
Writer.WriteLine(novaversao)
Writer.Close()
Writer.Dispose()
A partir daqui, o resto vai de acordo com suas necessidades.
No meu caso, o meu arquivo .txt possui muito mais informações que apenas a versão do programa. Isso permite a substituição remota de valores, executáveis, adição de módulos...
Ter um programa que se atualiza sozinho pela internet é um grande simbolo de profissionalismo!
- Mudei meu IP e meu Trojan / Keylogger perdeu as vitimas
- Correções e atualizações remotas
- Execução de comandos especiais
Neste método, a atualização é feita com o suporte de um arquivo .txt, que armazena a versão atual do programa, e também serve de comparação para averiguar a necessidade de atualizar.
Além disso, também é necessário armazenar o mesmo arquivo .txt em um servidor na internet, este sendo o arquivo de referencia, ou seja, aquele que vai propor a atualização. Exemplificando:
Código: Importações necessárias.
Imports System.IO
Imports System.Net
Código: Verifica conexão com a internet e baixa o arquivo do site para o local especificado.
If My.Computer.Network.IsAvailable Then
HTTPClient.DownloadFile(New Uri("http://www.site.com/novaversao.txt"), ("novaversao.txt"))
Código: Aqui o programa carrega a versão atual do programa.
Reader = IO.File.OpenText("versaoatual.txt")
Dim versao() As String = Reader.ReadToEnd.Split(" ")
Reader.Close()
Reader.Dispose()
versaoatual = versao(0)
Código: E agora ele carrega a versão baixada da internet.
Reader = IO.File.OpenText("novaversao.txt")
Dim versao As String = Reader.ReadToEnd.Split(" ")
Reader.Close()
Reader.Dispose()
novaversao = versao(0)
Código: Após isso, efetuamos a comparação de versões baixadas e, caso necessário, executamos os comandos desejados.
If versaoatual <> novaversao Then
"AQUI VEM SEU CÓDIGO"
Código: Para finalizarmos, o programa deve aderir a nova versão em seu arquivo .txt.
Dim Writer As New IO.StreamWriter("versaoatual.txt", False)
Writer.WriteLine(novaversao)
Writer.Close()
Writer.Dispose()
A partir daqui, o resto vai de acordo com suas necessidades.
No meu caso, o meu arquivo .txt possui muito mais informações que apenas a versão do programa. Isso permite a substituição remota de valores, executáveis, adição de módulos...
Ter um programa que se atualiza sozinho pela internet é um grande simbolo de profissionalismo!