الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

بدأه ensert.net2000 في 28 يوليو 2010 · 5 رد · 522 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

--.

اريد مثال لتحميل ملف من الانترنت

انا عندي مثال بس على الفيجوال بيسك 6 فاريد المثال على الدوت نت

المثال الموجود تبع الفيجوال بيسك 6 

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
    On Error Resume Next
    Dim lngRetVal As Long
    lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
    If lngRetVal = 0 Then DownloadFile = True
End Function


Private Sub SaveCharts_Click()
    On Error Resume Next
        diag.DialogTitle = "Save As.."
        diag.Filter = "Image Files (*.gif)|*.gif"
        diag.CancelError = False
        diag.ShowSave
        DownloadFile vList.LocationURL, diag.FileName
End Sub

ارجوا الرد سريعا

حقيقة الانسان تاجر الحياة لماذا ؟

السعادة لها ثمن يحددها الانسان

الفرحة لها ثمن يحددها الانسان

الحزن لة ثمن يحدده الانسان

يا انسان ( يابنى ادم )

انت تأكل وتلبس وتشرب لكى تغذى الجسد اما الروح فين دى جعاااااااااااااانة من زمان غذى الروح كمان عارف ولا اعرفك (هعرفك )

قول ورايا ( لا اله الا الله :: محمد رسول الله ) انت اكلت روحك كمل انت بئة ( شربها ولبسها .......)

#2

يمكنك استخدام نفس الكود أو يمكنك استخدام هذا السطر

My.Computer.Network.DownloadFile(url, destination)

تم تعديل هذه المشاركة بواسطة GHOST2010 في 28 يوليو 2010 في 16:01

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#3

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

هذا مثال لتحميل صورة من موقع وجدته على أحد المواقع :

Dim imageAddress As String = String.Empty
Dim filename As String = String.Empty
Try
Dim fileReader As New WebClient()
imageAddress = http://i.techrepublic.com.com/images/200609/go_search_button.gif
filename = imageAddress.Substring(imageAddress.LastIndexOf("/") + 1)
If Not (System.IO.File.Exists("c:\" + filename)) Then
fileReader.DownloadFile(imageAddress, "c:\" + filename)
End If
Catch ex As HttpListenerException
Console.WriteLine("Error accessing " + imageAddress + " - " + ex.Message)
Catch ex As Exception
Console.WriteLine("Error accessing " + imageAddress + " - " + ex.Message)
End Try

طبعا ستحتاج إلى استيراد المجال System.Net بكتابة الأمر التالي أعلى الملف :

Imports System.Net

تحياتي

#4

اولا شكرا على اجابتكم

----------------------------------

ثانيا

يريت توضح اكثر مع ارفاق مثال مستخدما اداة SaveFileDialog1

عند حفظ الصورة او الملف

وشكررااا

حقيقة الانسان تاجر الحياة لماذا ؟

السعادة لها ثمن يحددها الانسان

الفرحة لها ثمن يحددها الانسان

الحزن لة ثمن يحدده الانسان

يا انسان ( يابنى ادم )

انت تأكل وتلبس وتشرب لكى تغذى الجسد اما الروح فين دى جعاااااااااااااانة من زمان غذى الروح كمان عارف ولا اعرفك (هعرفك )

قول ورايا ( لا اله الا الله :: محمد رسول الله ) انت اكلت روحك كمل انت بئة ( شربها ولبسها .......)

#5 
        Dim dlg As New SaveFileDialog
        With dlg
            .RestoreDirectory = True
            .OverwritePrompt = True
            .Filter = "All Files"
            If .ShowDialog = Windows.Forms.DialogResult.OK Then
                My.Computer.Network.DownloadFile(url, .FileName)
            End If
            .Dispose()
        End With
1

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#6
اقتباس

        Dim dlg As New SaveFileDialog 
        With dlg 
            .RestoreDirectory = True 
            .OverwritePrompt = True 
            .Filter = "All Files" 
            If .ShowDialog = Windows.Forms.DialogResult.OK Then 
                My.Computer.Network.DownloadFile(url, .FileName) 
            End If 
            .Dispose() 
        End With

مشكور اخى العزيز على هذا المثال

حقيقة الانسان تاجر الحياة لماذا ؟

السعادة لها ثمن يحددها الانسان

الفرحة لها ثمن يحددها الانسان

الحزن لة ثمن يحدده الانسان

يا انسان ( يابنى ادم )

انت تأكل وتلبس وتشرب لكى تغذى الجسد اما الروح فين دى جعاااااااااااااانة من زمان غذى الروح كمان عارف ولا اعرفك (هعرفك )

قول ورايا ( لا اله الا الله :: محمد رسول الله ) انت اكلت روحك كمل انت بئة ( شربها ولبسها .......)

مواضيع مشابهة