ممكن كود وضع رابط لتحميل ملف

استعمل أخي هذا الكود

بخصوص الملفات

Shell "explorer http:\\www.XXX.com\SetupDI.zip"

بخصوص صفحات الانترنيت

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

   DoFileDownload StrConv("http://www.allapi.net/", vbUnicode)
End Sub

الف شكر بس الكود هذا لتحميل ملف عند الضغط على زر الامر يظهر الصفحه لتحميل الملف ثم يظهر مربع الحوار

هل من الممكن عدم اظهار صفحه تحميل الملف فقط يظهر مربع الحوار للحفظ

جزاك الله خيرا

هناك طريقة

بس إن شاء الله اشرحها في وقت ثاني

لاني الان مشغول

آسف أخي لا أستطيع المساعدة

في الحقيقة لا أعتقد أنني فهمت ما ترمي إليه لأنني أستعمل IDM ولا أرى أي صفحة أو أي شيء

ولكن

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


Private Sub Form_Load()

   DoFileDownload "http://www.m5zn.com/uploads/bf9eb8f384.JPG"
End Sub

من هنا تحميل المثال

اضغط هنا

او تحميل الملف من المرفقات

آمل التعديل على الكود اخي العزيز

c7.zip

السلام عليكم آسف على تأخري

نعم لقد فهمت الان

ولكن هل جربت الكود الثاني نفسه

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


Private Sub Form_Load()

   DoFileDownload "http://www.m5zn.com/uploads/bf9eb8f384.JPG"
End Sub

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

WithIEDialog.rar

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


Private Sub Form_Load()

   DoFileDownload "http://www.m5zn.com/uploads/bf9eb8f384.JPG"
End Sub

استبدل "http://www.m5zn.com/uploads/bf9eb8f384.JPG"

بالرابط المراد تحميله

طبعا على ما اظن ان هناك مشكلة في هذه الطريقة وهي انك لا تستطيع تحميل ملف كبير الحجم

أخي لا مشكلة عندي على الاطلاق

هل يمكنك وضع الكود كاملا مع كود لتحديد مكان التحميل (comman dialog)

والافضل الشرح لاني لا افهم هذا الكود فقط اعرفه

السلام عليكم ورحمة اله تعالى وبركاته

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

Private Sub CmdIE_Click()
   DoFileDownload StrConv(TxtURL, vbUnicode)
End Sub

أخي الكريم الدالة DoFileDownload هي دالة API

API = Application programming interface

وهو استدعاء لدوال النظام فمثلا إذا أردت أن ترسل ملفا إلى Recycle Bin

فستستدعي الدلة SHFileOperation

فلنعد إلى دالتنا السهلة DoFileDownload

أنت تعرف أن هذا يحدث عندما تضغط على Save as في IE

فنحن نستدعي هذه الدالة كما يفعل IE

وهذه الدالة تحتاج إلى وسيطة واحدة وهي URL أما بالنسبة لل IE فهو يأخد عنوان الصفحة الحالية

الان إلى الدالة

: Private

لاننا سنستدعي الدالة من نفس الفورم وإلا كنا لنضعها في موديل ونقوم بالتصريح بPublic

: DoFileDownload

إسم الدالة

: Lib

Library وهو ملف DLL الذي يحتوي على الدالة

shdocvw.dll الدالة موجودة في هذا الملف

ByVal lpszFile As String الوسيطة الوحيدة للدالة هو عنوان الصفحة

آمل أن أكون قد وفقت في توصيل المعنى ولو قليلا جدا وآمل وهذه بعض المواقع لهذه الدالة السهلة جدا وبعض الدوال الاخرى

وهذه بعض المواقع بخصوص الAPI و DoFileDownload

AllApi

الافضل بخصوص الـ API

والافضل على الاطلاق المطلق

ولا كود منهم عمل صح كما قال اخي يوجد مشكله بالكود

آسف أخي الكود يعمل بشكل جيد

ماذا عن هذا الكود هنا

يا إخوان ألم يجرب أحدكم الكود ماذا عن المواقع في الاعلى ألا تعمل أيضا

أخ مبرمج مبتدا ألا يعمل معك الكود

حسن

ضع أخي الخطأ وسنرى: كل كل عليك فعله هو عندما تظهر رسالة الخطأ قم بالضغط على Ctrl + C

بلصقها في NotePad أو في الرد أو أي مكان

وهذا المثال مرفق وهو جيد جدا آمل أن يعمل لأنه يعمل معي .

Cunstem_DoFileDownload__Work_.rar

كود الاخ micheal يعمل 100%

او ان المشكلة لديك هي firwall يمنع التحميل و هذا ما كان يحدث معي لكن اذهب الى centrol panel ثم secrurity centre ثم اختر من قائمةcheak status اختر ....recomend ثم لا تضع في ال cheak box علامة صح

اذا كانت هذه مشكلتك