عمل داونلود

بدأه مبرمج مبتدا في 16 مارس 2008 · 4 رد · 691 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

#116 مارس 2008 في 05:24 صاحب الموضوع

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

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

اظن الدالة DOWNLOADA فيها اخطاء اذا الفايروال مشغل لذلك احتاج الى كود بدون اخططاء

#216 مارس 2008 في 09:43

بص يا أخي موضوع الـ Download قد إكتسبت من المنتدي من قبل طريقتين ، إما إستخدام الدالة URLDownload ، وهذه الدالة تستخدم في تحميل الملفات الصغيرة ، أما في حالة التعامل مع الملفات الكبيرة يمكننا إستخدام الدالة DoFileDownload التي تعرض لنا نافذة حفظ بإسم المعتادة !!!

URLDownLoad :
-------------



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

Dim lngRetVal As String

Private Sub Command1_Click()

lngRetVal = URLDownloadToFile(0, "http://www.website.com/ip.txt", "c:\ip.txt", 0, 0)

End Sub

DoFileDownload :
----------------
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

شكراً

لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي

ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك

أنت وتصرفاتك

ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه

اشد آلام ... فصمتي أنا عنوان

عصر التكنولوجيا المعلوماتية(مدونتي الخاصة)

My FaceBook