برنامه دانلود از اينترنت

اگر دوستان موردي دارن كه به من كمك كنن ممنون مي شم
من يك برنامه ميخوام كه لينك رو بهش بدي و بعد شروع به دانلود كنه ممنون

از تابع URLDownloadToFile می تونی استفاده کنی

اگر ميشه توضيح بدين چون اين تابع رو بلد نيستم

کد:

---

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Sub Form_Load()
Dim Url As String, Filename As String
Url = "http://www.google.com"
Filename = "c:\Test.htm"
URLDownloadToFile 0, Url, LocalFilename, 0, 0
End Sub

---

کد:

---

Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long

Private Sub Form_Load()
DoFileDownload StrConv("http://www.google.com/", vbUnicode)
End Sub

---

downloader :

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

ممنون اين برنامه براي فرمت هاي ديگه هم كار ميكنه مثل zip rar exe
و اينكه فر ق اولي با دومي هم اگر ميشه بگيد

(يك سوال Romina2006 به چه معني است)