[justforit]

بصراحة وجدت طريقة افضل من اللتي لدي و حصلت  عليها من قوقل قديما

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

كود :

Using client As New WebClient()
   Dim uri As New Uri("http://example.com/download")
   Dim data As Byte() = client.DownloadData(uri)

   Dim filename As String = ""
   If client.ResponseHeaders("Content-Disposition") IsNot Nothing Then
       Dim contentDisposition As String = client.ResponseHeaders("Content-Disposition")
       ' Parse the contentDisposition string to extract the filename
       ' For example: attachment; filename="document.pdf"
       Dim parts As String() = contentDisposition.Split(";")
       For Each part As String In parts
           If part.Trim().StartsWith("filename=") Then
               filename = part.Trim().Replace("filename=", "").Replace("""", "")
               Exit For
           End If
       Next
   End If

   ' Use the extracted filename or a default one
   If String.IsNullOrEmpty(filename) Then
       filename = "default_download.bin"
   End If

   ' Save the data to the file
   System.IO.File.WriteAllBytes(filename, data)
End Using