01-05-23, 03:20 PM (آخر تعديل لهذه المشاركة : 01-05-23, 04:49 PM {2} بواسطة Abdh111.)
السلام عليكم ورحمة الله وبركاته
لو تكرمتم انا بعمل برنامج صغير ينزل لي نسخة احتياطية من قاعدة البيانات الخاصة بالشركة ( مع وجود يوزرنيم وباسورد للتنزيل )
فا بيعطي الرسالة دي
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, 07:16 PM (آخر تعديل لهذه المشاركة : 01-05-23, 07:31 PM {2} بواسطة Abdh111.)
(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
جزاكم الله خيرا أخي الكريم / عبد الله الدوسري الكود ظبط
لكن أريد الان ان اسمي الملف باسمه ومضاف اليه تاريخ اليوم حتي لا يحدث خطا عند تكرار تنزيل نفس الملف
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)
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
[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
أنا ارفقت مثال لاني لم اعرف استخدام الكود الي حضرتك تكرمت وارسلته
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, "", "")
لم اجرب الكود من ناحية التحميل وانما فقط عدلت ليتم صياغة مسمى للملف من الوقت الحالي بعد تحويله الى نص.
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
02-05-23, 07:16 PM (آخر تعديل لهذه المشاركة : 02-05-23, 07:17 PM {2} بواسطة 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
(02-05-23, 06:44 PM)ابو روضة كتب :
لتحميل ملف من على الانترنت يتم من خلال هذا الكود على سبيل المثال
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: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 ك ب وطبعا مابيشتغلش ؟