أريد مشروع لكيفية تحميل ملف من الانترنت

بصراحة ما عندي علم ولم أجرب هذه الفكرة من البرامج أبداً .

ولكن أذكر في موضوع للأخ هاني يوجد أكثر من عشرة برامج تقريباً تختص في هذا الموضوع

/index.php?showtopic=108373

السلام عليكم

اتفضل تم التعديل على الملف المرفق

Ala2_VB_Downlaod.rar

بسم الله

الاخ العزيز

الميديول غير موجود مع المرفق

شكرا

الظاهر عندى مشكله فى ارفاق الملفات .

هذا الكود بيقوم بتحميل ملف من الانترنت و بدون استخدام اى اداه.

ضع الكود ده فى module

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 Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long


Private Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer

Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Const INTERNET_FLAG_EXISTING_CONNECT = &H20000000
Const INTERNET_OPEN_TYPE_DIRECT = 1
Const INTERNET_OPEN_TYPE_PROXY = 3
Const INTERNET_FLAG_RELOAD = &H80000000

Public Function Get_File(sURLFileName As String, sSaveFileName As String) As Boolean

  Dim lRet As Long
  On Error GoTo err_Fix

  lRet = InternetOpen("", INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
  lRet = URLDownloadToFile(0, sURLFileName, sSaveFileName, 0, 0)
  Get_File = True
  Exit Function
err_Fix:
  Debug.Print Err.LastDllError, lRet
  Err.Clear
  Get_File = False
End Function

و فى حدث الضغط على زر تحميل  
Private Sub Command1_Click()
Dim file As Byte
file = Get_File("مسار حفظ الملف على الكمبيوتر ", "مسار الملف على النت")
End Sub

الأخ الفاضل ...

لتوضيح أستخدام: URLDownloadToFile و URLDownloadToCacheFile، راجع كيف يمكنني عرض HTML Source Code لأي موقع؟, مباشرة بكتابة عنوان الموقع

شكراً

شكراً لكم جميعاً اخواني

والحمد لله نفع معي كود الاخ half angel

فشكراً له (ولكم)