none
Ajuda PFV RRS feed

  • Pergunta

  • Bom dia eu fiz um auto update para meu programa mas na hora que eu clico para atualizar ele baixa o arquivo atualixado (exe) mas nao substitui o original vou deixar o SRC em baixo para dar uma analizada eu quero que quando ele baixa a versao att ele substitui o outro mas n consegui se poder ajudar eu vou agradecer muito

    Imports System.Net
    Imports System.IO
    
    Public Class Update
    
        Public WithEvents Client As New WebClient
        Public Dir As String = Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\BugRAT[ATTS]\"
    
        Private Sub btn_Verificar_Click(sender As Object, e As EventArgs) Handles btn_Verificar.Click
            Try
                Dim PegarVersao As String = Client.DownloadString("https://docs.google.com/uc?authuser=0&id=1JQPbu0hF4Q9LDEAOCKcMIW6nBybQWT7O&export=download")
                Dim VersaoAtual As String = Application.ProductVersion
                If PegarVersao.Contains(VersaoAtual) Then
                    Label2.Text = "BugRAT Atualizado"
                    Timer1.Interval = 3000 'ms
                    Timer1.Start()
                    My.Computer.Audio.Stop()
                Else
                    If MsgBox("Nova versão disponível, deseja fazer o download?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
                        If File.Exists(Dir & "BugRAT.exe") Then
                            File.Delete(Dir & "BugRAT.exe")
                            ProgressBar1.Visible = True
                            Client = New WebClient
                            Client.DownloadFileAsync(New Uri("https://docs.google.com/uc?authuser=0&id=1cJS8lYgW2VMbJY56ZRhEimByJkIIdjnuW2VMbJY56ZRhEimByJkIIdjnu&export=download"), Dir & "BugRAT.exe")
                        Else
                            ProgressBar1.Visible = True
                            Client = New WebClient
                            Client.DownloadFileAsync(New Uri("https://docs.google.com/uc?authuser=0&id=1cJS8lYgW2VMbJY56ZRhEimByJkIIdjnuW2VMbJY56ZRhEimByJkIIdjnu&export=download"), Dir & "BugRAT.exe")
                        End If
                    End If
                End If
            Catch ex As Exception
    
            End Try
        End Sub
    
        Private Sub DownloadCompleto(sender As Object, e As System.ComponentModel.AsyncCompletedEventArgs) Handles Client.DownloadFileCompleted
            Label2.Text = "Download completo"
            Button1.Visible = True
            ProgressBar1.Visible = False
            btn_Verificar.Visible = False
        End Sub
    
        Private Sub DownloadProgresso(sender As Object, e As DownloadProgressChangedEventArgs) Handles Client.DownloadProgressChanged
            ProgressBar1.Value = e.ProgressPercentage
            Label2.Text = "Baixando nova versão..."
        End Sub
    
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Process.Start(Dir & "BugRAT.exe")
            Close()
        End Sub
    
        Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
            Timer1.Stop()
            Login.Show()
            Me.Hide()
        End Sub
    
        Private Sub Update_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            My.Computer.Audio.Play(My.Resources.Lil_Xan___Betrayed, AudioPlayMode.BackgroundLoop)
        End Sub
    End Class
    

    sábado, 23 de junho de 2018 17:37

Respostas

  • Este executável "BugRAT.exe" é o arquivo que está sendo executado?

    Caso sim, aí está o problema, ele não vai deixar você apagar como está fazendo. Você deve renomeá-lo para depois baixar a nova versão.

    Sugiro que você crie um padrão, por exemplo trocar o "exe" por "old" e nesta mesma rotina de update você exclua o "old", caso exista.

    Espero ter ajudado.

    • Marcado como Resposta XN-DUMP terça-feira, 26 de junho de 2018 23:23
    terça-feira, 26 de junho de 2018 10:54

Todas as Respostas

  • Bom dia.

    Como assim ele fica com os dois arquivos?

    Ele ao menos renomeia o atual?


    MARIANO1776

    terça-feira, 26 de junho de 2018 09:23
  • Este executável "BugRAT.exe" é o arquivo que está sendo executado?

    Caso sim, aí está o problema, ele não vai deixar você apagar como está fazendo. Você deve renomeá-lo para depois baixar a nova versão.

    Sugiro que você crie um padrão, por exemplo trocar o "exe" por "old" e nesta mesma rotina de update você exclua o "old", caso exista.

    Espero ter ajudado.

    • Marcado como Resposta XN-DUMP terça-feira, 26 de junho de 2018 23:23
    terça-feira, 26 de junho de 2018 10:54
  • obrigado eu ja estou trabalhando em um novo update onde o programa update vai ser executado dai quando ele baixar a versao att dai ele automaticamente executa o outro programa
    terça-feira, 26 de junho de 2018 23:23