طلب برنامج تحميل

اخي ,, انت تعرف واحد اسمه علاء ,, (li) صقر (li)

لو ماتعرفهو متشغلش بالك

الملف مرفق , وهو مشاركة من الاخ Half Angel ,, ولو بحثت في المنتدى هتلاقي موضوع عن كده

شكراً

File_Sender_v1_1_.0.zip

عارفك يامان وشكرا علي الرد

وكيف حالك؟

اخي بص انا قبل وضع الطلب

كنت مصمم هذا المثال وهو الموضوع اللي طالبة

انا بكتب اسم الملف وبيحمل زي الدوان لود مانجر

بس انا عايز اعمل ان انا اختار المكان اللي يحمل فيه الملف ده لاني مش عارف

هل ممكن احد يساعدني

المثال مرفق

ارجو الافادة بسرعة

New_Folder__8_.zip

ياجماعة ارجو افادتي بسرعة انا محتاجة فعلا جداااااااا

شكرا جزيلا اخوي على هذا البرنامج الطيب

يااخوان طب انا عايز حل بسرعة جدااااااا

السلام عليكم

أنظري هذا الموضوع وإن لم يشتغل أخبرينا

/index.ph...129507&st=0

آمل أن يفيدك

اولا انا شاب

ثانيا:

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

المشكلة انا عايز اختار المكان اللي يحمل فيه (بس هي دي المشكلة)

بص الصورة العامة انا عايز اعمل برنامج مستقل عن الرامج الاخري

ارجو افادتي بسرعة لان هذا البرنامج مطلوب مني اليوم لازم اخلصة

وشكرا لتعاونكم معي

أولا وقيل كل شيء آسف جدا وجدا وجدا أخي الكريم لم أنتبه إلى الاسم آسف جدا

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

استعمل الدالة 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
Public Function DownloadFile(URL As String, LocalFilename As String) 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()
	'example by Matthew Gates (Puff0rz@hotmail.com)
	DownloadFile "http://www.allapi.net", "c:\allapi.htm"
End Sub

شكرا لك

اخي بارك الله فيك

اخي ممكن طلب اخر اسف

ممكن كود يخيلي الملف بعد ما يحمل يفتح لوحده

ارجو الافاده انا هقدم البرنامج غذا الصبح ........ساعدوني

السلام عليكم

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

استعمل الدالة ShellExecute

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

هذا تعريف الدالة في General

واستعمالها ابسيط في أي Sub فلنقل Command Button

Private Sub Command1_Click()
	Dim YourFile As String

YourFile '= "Download.html" Or "any file"
	ShellExecute hwnd, "open", YourFile, vbNullString, "c:\", 1
End Sub

اهو يعم , مبسوط كده ؟؟

شكراً اخي على المعلومات المفيدة

متشكر جدا اخي الكريم بارك الله فيك