antiblock
Rodnia | Alpha & Omega

luisperninhas

Membro
  • Content Count

    1
  • Joined

  • Last visited

Everything posted by luisperninhas

  1. 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