Hallo Mau Buat Download Manager Sendiri Seperti IDM Namun Ini Sangat Tidak Mirip Dengan IDM Hehehehehe Lanjut Aja Yuk Sob
Program Yang Dibutuhkan:
Visual Basic 2010 Express
Caranya:
Buat 2 Textbox
Buat 2 Button
Buat 2 Label
Buat 1 Progress Bar
Jika Bingung Kesini Aja
Jangan Lupa Cendol
Program Yang Dibutuhkan:
Visual Basic 2010 Express
Caranya:
Buat 2 Textbox
Buat 2 Button
Buat 2 Label
Buat 1 Progress Bar
Quote
Code Nya:
Imports System.Net
Public Class Form1
Code Nya:
Imports System.Net
Public Class Form1
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
SaveFileDialog1.Filter = "Jpeg Image|.Jpg|.exe|*.exe|.rar|*.rar|.zip|*zip|.mp3|*.mp3"
SaveFileDialog1.ShowDialog()
TextBox2.Text = SaveFileDialog1.FileName
End Sub
Public WithEvents download As WebClient
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
download = New WebClient
download.DownloadFileAsync(New Uri(TextBox1.Text), TextBox2.Text)
End Sub
Private Sub download_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles download.DownloadProgressChanged
ProgressBar1.Value = e.ProgressPercentage
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
End Class
Imports System.Net
Public Class Form1
Code Nya:
Imports System.Net
Public Class Form1
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
SaveFileDialog1.Filter = "Jpeg Image|.Jpg|.exe|*.exe|.rar|*.rar|.zip|*zip|.mp3|*.mp3"
SaveFileDialog1.ShowDialog()
TextBox2.Text = SaveFileDialog1.FileName
End Sub
Public WithEvents download As WebClient
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
download = New WebClient
download.DownloadFileAsync(New Uri(TextBox1.Text), TextBox2.Text)
End Sub
Private Sub download_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles download.DownloadProgressChanged
ProgressBar1.Value = e.ProgressPercentage
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
End Class
Jika Bingung Kesini Aja
Jangan Lupa Cendol


Reggae


