[Abdh111]

(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

الكود اللي انا كتبته لك يقوم بتحويل التاريخ الى نص وتستطيع اعادته الى تاريخ لاحقا لكن الاهم الان ان تضع الاسم بين رمزين لتستخلصه لاحقا.

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

[سعود]

(04-05-23, 04:08 PM)Abdh111 كتب : السلام عليكم
اخواني الكريم رجاء المساعدة
الملف بينزل لكن بحجم صغير جدا بما يعني انه اما تالف او مانزلش اصلا
مش عارف فين المشكلة ؟

هذا الملف لو تفتحه بالمفكرة تلقاه صفحة عادية.
هذي حماية للملفات على السيرفر  ... شي طبيعي يعني.
و هذا اللي جعلني لم اتطرق له .....لان حتى لو انك تمكنت من تحميل البرنامج بالشكل الصحيح بعد كم يوم ستجد ان تلك الطريقة لم تعد تنفع.

[ramy alfoly]

(01-05-23, 03:20 PM)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

"https://www.win-rar.com/postdownload.html?&L=0"
هذا الرابط ليس رابط تنزيل الملف المباشر وإنما رابط صفحة تنزيل الملف

هذا هو رابط الملف المباشر
"https://www.win-rar.com/fileadmin/winrar-versions/winrar/winrar-x64-621.exe"

كود :

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12 ' أو  SecurityProtocolType.Ssl3
    My.Computer.Network.DownloadFile("https://www.win-rar.com/fileadmin/winrar-versions/winrar/winrar-x64-621.exe", "D:\Odoo_Bakup\winrar-x64-621.exe", "anonymous", "")
End Sub