Merhaba,
-2 Text Box
-2 Button
-2 Label
TextBox1 İndirilicek Yer.
TextBox2 Yüklenecek URL
Visual Basic 2010 TF-THT DownLoad Manager - YouTube
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
My.Computer.Network.DownloadFile(TextBox1.Text, TextBox2.Text, "", "", True, "90", False)' 90 Orayı alçaltırsanız İNDİRME Bastığınızda 20 ise 20 sn bekler. False Bunu True yaparsanız İndirmeyi Göstermez eğer False Olursa İndirmeyi Gösterir...
MsgBox("Dosya indirimi başarılı", MsgBoxStyle.Information, "Başarılı")
End Sub
--------------
Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ("")
TextBox2.Text = ("")
End Sub
--------------
-2 Text Box
-2 Button
-2 Label
TextBox1 İndirilicek Yer.
TextBox2 Yüklenecek URL
Visual Basic 2010 TF-THT DownLoad Manager - YouTube
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
My.Computer.Network.DownloadFile(TextBox1.Text, TextBox2.Text, "", "", True, "90", False)' 90 Orayı alçaltırsanız İNDİRME Bastığınızda 20 ise 20 sn bekler. False Bunu True yaparsanız İndirmeyi Göstermez eğer False Olursa İndirmeyi Gösterir...
MsgBox("Dosya indirimi başarılı", MsgBoxStyle.Information, "Başarılı")
End Sub
--------------
Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ("")
TextBox2.Text = ("")
End Sub
--------------
Son düzenleme: