Kod: Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" As Long Public Function DownloadFile As Boolean Dim lngRetVal As Long lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0) If lngRetVal = 0 Then DownloadFile = True End Function Private Sub Form_Load DownloadFile "www.darkoyun.com", "c:\deneme.htm" End Sub

yaa arkadslar dowlan programı yapabilen varmı cok ugrastım ama yaapamadım

indirme yöneticisi diyor

downlan ne la

Kod: http://www.planetsourcecode.com/vb/scripts/ShowCode. asp?txtCodeId=70062&lngWId=1 Linkteki Kaynak Kodun Mantıgından Yola Cıkarak Deneyebilirsiniz.