منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تنزيل ملف من موقع علي الانترنت ؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تنزيل ملف من موقع علي الانترنت ؟ (/showthread.php?tid=45997)

الصفحات: 1 2

تنزيل ملف من موقع علي الانترنت ؟ - Abdh111 - 01-05-23

السلام عليكم ورحمة الله وبركاته
لو تكرمتم انا بعمل برنامج صغير ينزل لي نسخة احتياطية من قاعدة البيانات الخاصة بالشركة ( مع وجود يوزرنيم وباسورد للتنزيل )
فا بيعطي الرسالة دي

The request was aborted: Could not create SSL/TLS secure channel.
هل من حل وجزاكم الله خيرا
او لو فيه كود شغال اعينوني اعانكم الله
الكود|
|
|
 Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        My.Computer.Network.DownloadFile(
            "https://www.win-rar.com/download.html?&L=0",
     "D:\Odoo_Bakup\winrar-x64-621.exe", "anonymous", "")
    End Sub

RE: تنزيل ملف من موقع علي الانترنت ؟ - عبدالله الدوسري - 01-05-23

جرب تضع هذا قبل الكود

كود :
ServicePointManager.Expect100Continue = True
ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12 ' أو  SecurityProtocolType.Ssl3


RE: تنزيل ملف من موقع علي الانترنت ؟ - Abdh111 - 01-05-23

(01-05-23, 05:04 PM)عبدالله الدوسري كتب : جرب تضع هذا قبل الكود

كود :
ServicePointManager.Expect100Continue = True
ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12 ' أو  SecurityProtocolType.Ssl3

جزاكم الله خيرا اخي الفاضل / عبد الله الدوسري هاجرب وارد عليك
(01-05-23, 05:04 PM)عبدالله الدوسري كتب : جرب تضع هذا قبل الكود

كود :
ServicePointManager.Expect100Continue = True
ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12 ' أو  SecurityProtocolType.Ssl3
جزاكم الله خيرا أخي الكريم / عبد الله الدوسري الكود ظبط
لكن أريد الان ان اسمي الملف باسمه ومضاف اليه تاريخ اليوم حتي لا يحدث خطا عند تكرار تنزيل نفس الملف

RE: تنزيل ملف من موقع علي الانترنت ؟ - سعود - 01-05-23


PHP كود :
       Dim dt As String = Now.ToFileTime.ToString
        Dim fn As New IO.FileInfo(t1.Text)
        Dim folder As String = IO.Path.GetDirectoryName(fn.FullName)
        Dim newfile As String = folder & "\" & dt & fn.Name
        MsgBox(newfile) 


RE: تنزيل ملف من موقع علي الانترنت ؟ - Abdh111 - 02-05-23

[attachment=28939 كتب :سعود pid='191971' dateline='1682970638']

PHP كود :
       Dim dt As String = Now.ToFileTime.ToString
        Dim fn As New IO.FileInfo(t1.Text)
        Dim folder As String = IO.Path.GetDirectoryName(fn.FullName)
        Dim newfile As String = folder & "\" & dt & fn.Name
        MsgBox(newfile) 
============================================================
اخي الكريم سعود جزاكم الله خيرا علي ردك الكريم
انا أريد تنزيل نسخة من قاعدة البيانات واسميها باسمها مضاف اليه تاريخ اليوم
مثال : backup_2-5    -  backup_3-5
أنا ارفقت مثال لاني لم اعرف استخدام الكود الي حضرتك تكرمت وارسلته

RE: تنزيل ملف من موقع علي الانترنت ؟ - سعود - 02-05-23

الجزئية اللي انا تدخلت بها هي تخص:
PHP كود :
"D:\Odoo_Bakup\wi-621.exe" 

PHP كود :
       Dim fn As New IO.FileInfo("D:\Odoo_Bakup\wi-621.exe")
        Dim dt As String = Now.ToFileTime.ToString
        Dim folder As String = IO.Path.GetDirectoryName(fn.FullName)
        Dim newfile As String = folder & "\" & dt & fn.Name
        My.Computer.Network.DownloadFile("https://www.win-rar.com/postdownload.html?&L=0", newfile, "", "") 
لم اجرب الكود من ناحية التحميل وانما فقط عدلت ليتم صياغة مسمى للملف من الوقت الحالي بعد تحويله الى نص.

RE: تنزيل ملف من موقع علي الانترنت ؟ - ابو روضة - 02-05-23

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


PHP كود :
       My.Computer.Network.DownloadFile("رابط الملف المباشر", "C:\اسم الملف مع صيغة ملف القاعدة.mp4") 


RE: تنزيل ملف من موقع علي الانترنت ؟ - Abdh111 - 02-05-23

(02-05-23, 06:38 PM)سعود كتب : الجزئية اللي انا تدخلت بها هي تخص:
PHP كود :
"D:\Odoo_Bakup\wi-621.exe" 

PHP كود :
       Dim fn As New IO.FileInfo("D:\Odoo_Bakup\wi-621.exe")
        Dim dt As String = Now.ToFileTime.ToString
        Dim folder As String = IO.Path.GetDirectoryName(fn.FullName)
        Dim newfile As String = folder & "\" & dt & fn.Name
        My.Computer.Network.DownloadFile("https://www.win-rar.com/postdownload.html?&L=0", newfile, "", "") 
لم اجرب الكود من ناحية التحميل وانما فقط عدلت ليتم صياغة مسمى للملف من الوقت الحالي بعد تحويله الى نص.
جزاك الله خيرا اخي الكريم / سعود
كدة تمام ولكن هل يمكن ان اسمي الملف كما هو محمل من الانترنت مضاف اليه تاريخ اليوم ؟
مع العلم كدة تمام بس للتفرقة بين الملفات المحملة اريد تسمية الملف المحمل باسمه مضاف اليه تاريخ اليوم 
مثال file_name_2-5  ,  file_name_3-5
(02-05-23, 06:44 PM)ابو روضة كتب :
لتحميل ملف من على الانترنت يتم من خلال هذا الكود على سبيل المثال


PHP كود :
       My.Computer.Network.DownloadFile("رابط الملف المباشر", "C:\اسم الملف مع صيغة ملف القاعدة.mp4") 

جزاكم الله خيرا أخي الكريم أبو روضة

RE: تنزيل ملف من موقع علي الانترنت ؟ - سعود - 02-05-23

(02-05-23, 07:16 PM)Abdh111 كتب :
(02-05-23, 06:38 PM)سعود كتب : الجزئية اللي انا تدخلت بها هي تخص:
PHP كود :
"D:\Odoo_Bakup\wi-621.exe" 

PHP كود :
       Dim fn As New IO.FileInfo("D:\Odoo_Bakup\wi-621.exe")
        Dim dt As String = Now.ToFileTime.ToString
        Dim folder As String = IO.Path.GetDirectoryName(fn.FullName)
        Dim newfile As String = folder & "\" & dt & fn.Name
        My.Computer.Network.DownloadFile("https://www.win-rar.com/postdownload.html?&L=0", newfile, "", "") 
لم اجرب الكود من ناحية التحميل وانما فقط عدلت ليتم صياغة مسمى للملف من الوقت الحالي بعد تحويله الى نص.
جزاك الله خيرا اخي الكريم / سعود
كدة تمام ولكن هل يمكن ان اسمي الملف كما هو محمل من الانترنت مضاف اليه تاريخ اليوم ؟
مع العلم كدة تمام بس للتفرقة بين الملفات المحملة اريد تسمية الملف المحمل باسمه مضاف اليه تاريخ اليوم 
مثال file_name_2-5  ,  file_name_3-5
الكود اللي انا كتبته لك يقوم بتحويل التاريخ الى نص وتستطيع اعادته الى تاريخ لاحقا لكن الاهم الان ان تضع الاسم بين رمزين لتستخلصه لاحقا.

RE: تنزيل ملف من موقع علي الانترنت ؟ - Abdh111 - 03-05-23

(02-05-23, 07:26 PM)سعود كتب :
(02-05-23, 07:16 PM)Abdh111 كتب :
(02-05-23, 06:38 PM)سعود كتب : الجزئية اللي انا تدخلت بها هي تخص:
PHP كود :
"D:\Odoo_Bakup\wi-621.exe" 

PHP كود :
       Dim fn As New IO.FileInfo("D:\Odoo_Bakup\wi-621.exe")
        Dim dt As String = Now.ToFileTime.ToString
        Dim folder As String = IO.Path.GetDirectoryName(fn.FullName)
        Dim newfile As String = folder & "\" & dt & fn.Name
        My.Computer.Network.DownloadFile("https://www.win-rar.com/postdownload.html?&L=0", newfile, "", "") 
لم اجرب الكود من ناحية التحميل وانما فقط عدلت ليتم صياغة مسمى للملف من الوقت الحالي بعد تحويله الى نص.
جزاك الله خيرا اخي الكريم / سعود
كدة تمام ولكن هل يمكن ان اسمي الملف كما هو محمل من الانترنت مضاف اليه تاريخ اليوم ؟
مع العلم كدة تمام بس للتفرقة بين الملفات المحملة اريد تسمية الملف المحمل باسمه مضاف اليه تاريخ اليوم 
مثال file_name_2-5  ,  file_name_3-5
الكود اللي انا كتبته لك يقوم بتحويل التاريخ الى نص وتستطيع اعادته الى تاريخ لاحقا لكن الاهم الان ان تضع الاسم بين رمزين لتستخلصه لاحقا.

السلام عليكم ورحمة الله وبركاته
جزاك الله خيرا علي تعبك معي
لكن انا الان تم تنزيل الملف ولكن بحجم صغير مثلا 295 ك ب وطبعا مابيشتغلش ؟