السلام عليكم ورحمة الله وبركاته
لو تكرمتم انا بعمل برنامج صغير ينزل لي نسخة احتياطية من قاعدة البيانات الخاصة بالشركة ( مع وجود يوزرنيم وباسورد للتنزيل )
فا بيعطي الرسالة دي
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
(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
جزاكم الله خيرا أخي الكريم / عبد الله الدوسري الكود ظبط
لكن أريد الان ان اسمي الملف باسمه ومضاف اليه تاريخ اليوم حتي لا يحدث خطا عند تكرار تنزيل نفس الملف
[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
أنا ارفقت مثال لاني لم اعرف استخدام الكود الي حضرتك تكرمت وارسلته
الجزئية اللي انا تدخلت بها هي تخص:
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, "", "")
لم اجرب الكود من ناحية التحميل وانما فقط عدلت ليتم صياغة مسمى للملف من الوقت الحالي بعد تحويله الى نص.
لتحميل ملف من على الانترنت يتم من خلال هذا الكود على سبيل المثال
PHP كود :
My.Computer.Network.DownloadFile("رابط الملف المباشر", "C:\اسم الملف مع صيغة ملف القاعدة.mp4")
(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")
جزاكم الله خيرا أخي الكريم أبو روضة
(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
الكود اللي انا كتبته لك يقوم بتحويل التاريخ الى نص وتستطيع اعادته الى تاريخ لاحقا لكن الاهم الان ان تضع الاسم بين رمزين لتستخلصه لاحقا.
