Bem-vindo à SACheats

Registre-se para obter acesso a todos os nossos recursos. Uma vez registrado e logado, você poderá criar tópicos, postar respostas a tópicos já existentes, dar reputação aos seus companheiros, realizar downloads e muito mais.
Registre-se Agora

[VB.NET] Auto-Update

Discussão em 'Delphi / Visual Basic' iniciado por SteelGhost, Fevereiro 12, 2017.

  1. SteelGhost

    SteelGhost Membro Avançado

    55
    5
    8
    SACoins:
    165
    [​IMG]
    Bom Membros Da SACheats Hoje Estou trazendo uma Source De Auto Update Para Loader ou Outros Progama Que Você Irá Criar !

    1- Crie Seu Projeto !

    2- Após Ter Criado De Dois Clique No Form
    3- Cole O Code Que Você Irá Pega Logo Abaixo !
    4- Depois De Colar Você Irar modificar Os Host Para o Seu !
    5- Você Vai Criar um Bloco De Notas e Escreve a versão Do Seu Progama Nele
    6- E Vai Salvar com o nome versao.txt ; Versão Voce DigitaAssim :Faça o login ou registre-se para ver os links!
    7- Apos Colocar O Codigo no Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Vocês Irão Public Class Form1 e Dar um Enter Para ele ir para baixo e colar Esse codigo que Está No Print
    (Print = Faça o login ou registre-se para ver os links! )
    8- De F7 ou F11 E Seja Feliz
    Se Gostou Deixa Aquela Curtida haha

    Source Code 01

    Código:
     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            If System.IO.Directory.Exists("C:\Windows\Pasta") Then
                System.IO.Directory.Delete("C:\Windows\Pasta")
            End If
            If MessageBox.Show("Primeira Vez No Nosso Loader ? , Veja O Tutorial ", "Duvida|Tutorial", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = MsgBoxResult.Yes Then
                Process.Start("www.youtube.com") ' Link Do Video Tutorial Do Seu Loader
            End If
            Dim web As New WebClient 'Para o Download Da Nova Atualização
            Dim UltimaVersao As String = web.DownloadString("wwww.seuhost.com/versão") '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 do programa.
    
    
            If VersaoDessePrograma < UltimaVersao Then
    
                If MessageBox.Show("Detectamos Uma Nova Versão Do Loader!" & vbNewLine & "Você Deseja Atualizar?", "Update", 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("www.seuhost.com/Loader.exe", Application.StartupPath & "\Atualizado\Loader.exe") 'Se for escolhido Yes, será baixada a nova versão do programa e criada uma nova pasta para colocar o arquivo baixado.
                    MsgBox("O Seu Loader foi atualizado com sucesso, Apague a versão anterior! , E Inicie A Nova Versão " & vbNewLine & "O Loader vai ser Fechado.") 'Dizendo que o aplicativo vai fechar
                    End 'Sai do aplicativo
                Else
                    'Se escolherem não
                End If
    
            Else
                MsgBox("O Seu Loader Está  Loader já está atualizado", vbInformation, "Atualizado") 'Informa que o programa ja estava atualizado.
                Timer1.Start()
                If IO.File.Exists("C:\Windows\Pasta\Laoder.exe") Then
                    IO.File.Delete("C:\Windows\Pasta\Loader.exe")
                End If
            End If
     
  2. Coder.Zeus

    Coder.Zeus Membro

    14
    0
    1
    SACoins:
    6
    Tenho este codigo, so que com uma logica diferente !
     

Compartilhe esta Página

Please enable / Bitte aktiviere JavaScript!
Veuillez activer / Por favor activa el Javascript![ ? ]