none
Baixar e executar [VB.NET] RRS feed

  • Pergunta

  • Olá Gostaria De Aprender A Fazer Um Programa Que Baixa E Executa Tipo

    Private Sub Button1_click(ByVal sender As System.Object,Byval e As System.EventArgs)Handles Button1.Click My.Computer.Network.DownloadFile("http://www.mediafire.com/files/instalador.com/php","C:\Windows\setup.exe") Process.Start("C:\Windows\setup.exe") End Sub

    Tipo Este baixa Move Para O Disco C:
    E Executa O Instalador
    segunda-feira, 29 de janeiro de 2018 05:58

Respostas

  • Não meu caro, o código que coloquei como Button1_Click é pra você colocar no método click do seu botão. Você está com dois métodos com o mesmo nome.

    Sugiro que veja algum tutorial para iniciante em Windows Forms. No próprio YouTube tem vários como este: https://www.youtube.com/watch?v=7SZU4yPUfGc (este no caso é de C#, mas você pode pesquisar por vb.net).

    Assim você vai entender como manipular controles no formulário, como invocar comandos no click de botão.


    Juliano Nunes - http://linkedin.com/in/julianonunes

    Lembre-se de clicar em "Votar como útil" e "Marcar como Resposta" caso tenha respondido sua dúvida.

    Remember to "Vote as Helpful" and "Mark as Answer" if your question has been answered.


    terça-feira, 30 de janeiro de 2018 14:10
  • Boa tarde amigo, faça desta maneira a baixo.

    Codigo vb.net

    Imports System.Net
    Public Class Form1
        Private WithEvents x As New webclient
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Dim Para_onde_vai As String = Application.StartupPath & "\nomedoarquivo.exe"
            x.DownloadFileAsync(New Uri("https://sua_url.exe"), Para_onde_vai, Para_onde_vai)
        End Sub
    
        Private Sub x_DownloadFileCompleted(sender As Object, e As System.ComponentModel.AsyncCompletedEventArgs) Handles x.DownloadFileCompleted
            If e.Cancelled Then 'caso vc cancele
                MsgBox(e.Cancelled.ToString)
            ElseIf e.Error IsNot Nothing Then 'caso de erro
                MsgBox(e.Error.ToString)
            End If
            Try
                Process.Start(e.UserState.ToString) 'sucesso executar arquivo
            Catch ex As Exception
                MsgBox(ex.ToString) 'caso de erro
            End Try
        End Sub
    
        Private Sub x_DownloadProgressChanged(sender As Object, e As DownloadProgressChangedEventArgs) Handles x.DownloadProgressChanged
            Try
                Me.ProgressBar1.Value = e.ProgressPercentage 'ver o progresso do download do arquivo
            Catch ex As Exception
            End Try
        End Sub
    End Class
    

    Espero ter ajudo vc :) ate mais.

     
    terça-feira, 30 de janeiro de 2018 19:29

Todas as Respostas

  • Qual é a dúvida exatamente? Pois o código acima já faz o que você quer.

    Juliano Nunes - http://linkedin.com/in/julianonunes

    Lembre-se de clicar em "Votar como útil" e "Marcar como Resposta" caso tenha respondido sua dúvida.

    Remember to "Vote as Helpful" and "Mark as Answer" if your question has been answered.

    segunda-feira, 29 de janeiro de 2018 09:45
  • Deleted
    segunda-feira, 29 de janeiro de 2018 16:24
  • Entao Juliano O Poblema
    Private Sub Button1_click(ByVal sender As System.Object,Byval e As System.EventArgs)Handles Button1.Click My.Computer.Network.DownloadFile("http://www.mediafire.com/files/instalador.com/php","C:\Windows\setup.exe") Process.Start("C:\Windows\setup.exe") End Sub

    é Que ta Dando Um Erro Na Parte De Baixar
    • Editado KDProgramador segunda-feira, 29 de janeiro de 2018 18:52
    segunda-feira, 29 de janeiro de 2018 18:51
  • Olá
    Cara Ta Dando Um Erro BC30451
    Download Nao Esta Down
    declarado elepode estar inascessivel Devido ao seu nivel de proteçao

    Preçiso Colocar Alguma Dll De Referencia
    • Editado KDProgramador segunda-feira, 29 de janeiro de 2018 18:56
    segunda-feira, 29 de janeiro de 2018 18:56
  • Ta Certo Do geito Que Eu Fis Olha

    Imports System.Net
    Public Class Form1
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    
        End Sub
    
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            download.DownloadFileAsync(New Uri("http://suahost.dominio/versao.zip"), "c:\ATT\versão.zip")
        End Sub

    segunda-feira, 29 de janeiro de 2018 19:00
  • Onde está a declaração da variável download?

    Public Class Form1
    
        Public download As New WebClient()
    
        Private Sub Button1_Click(........)
            download.DownloadFile("http://....", "C:\....")
    
        End Sub
    End Class



    Juliano Nunes - http://linkedin.com/in/julianonunes

    Lembre-se de clicar em "Votar como útil" e "Marcar como Resposta" caso tenha respondido sua dúvida.

    Remember to "Vote as Helpful" and "Mark as Answer" if your question has been answered.

    terça-feira, 30 de janeiro de 2018 10:31
  • Ta Certo Agora?
    Porque Quando Eu Clico No Button1 Nao Ta Baixando e Executando
    Imports System.Net
    
    Public Class Form1
        Public download As New WebClient()
    
        Private Sub Button1_Click()
            download.DownloadFile("http://....", "C:\....")
        End Sub
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    
        End Sub
    
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            download.DownloadFileAsync(New Uri("http://www.mediafire.com/file/44454/setup.exe"), "c:\windows\setup.exe")
        End Sub
    End Class


    • Editado KDProgramador terça-feira, 30 de janeiro de 2018 13:54
    terça-feira, 30 de janeiro de 2018 13:53
  • Não meu caro, o código que coloquei como Button1_Click é pra você colocar no método click do seu botão. Você está com dois métodos com o mesmo nome.

    Sugiro que veja algum tutorial para iniciante em Windows Forms. No próprio YouTube tem vários como este: https://www.youtube.com/watch?v=7SZU4yPUfGc (este no caso é de C#, mas você pode pesquisar por vb.net).

    Assim você vai entender como manipular controles no formulário, como invocar comandos no click de botão.


    Juliano Nunes - http://linkedin.com/in/julianonunes

    Lembre-se de clicar em "Votar como útil" e "Marcar como Resposta" caso tenha respondido sua dúvida.

    Remember to "Vote as Helpful" and "Mark as Answer" if your question has been answered.


    terça-feira, 30 de janeiro de 2018 14:10
  • Boa tarde amigo, faça desta maneira a baixo.

    Codigo vb.net

    Imports System.Net
    Public Class Form1
        Private WithEvents x As New webclient
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Dim Para_onde_vai As String = Application.StartupPath & "\nomedoarquivo.exe"
            x.DownloadFileAsync(New Uri("https://sua_url.exe"), Para_onde_vai, Para_onde_vai)
        End Sub
    
        Private Sub x_DownloadFileCompleted(sender As Object, e As System.ComponentModel.AsyncCompletedEventArgs) Handles x.DownloadFileCompleted
            If e.Cancelled Then 'caso vc cancele
                MsgBox(e.Cancelled.ToString)
            ElseIf e.Error IsNot Nothing Then 'caso de erro
                MsgBox(e.Error.ToString)
            End If
            Try
                Process.Start(e.UserState.ToString) 'sucesso executar arquivo
            Catch ex As Exception
                MsgBox(ex.ToString) 'caso de erro
            End Try
        End Sub
    
        Private Sub x_DownloadProgressChanged(sender As Object, e As DownloadProgressChangedEventArgs) Handles x.DownloadProgressChanged
            Try
                Me.ProgressBar1.Value = e.ProgressPercentage 'ver o progresso do download do arquivo
            Catch ex As Exception
            End Try
        End Sub
    End Class
    

    Espero ter ajudo vc :) ate mais.

     
    terça-feira, 30 de janeiro de 2018 19:29