[aldery]

(08-03-20, 12:32 PM)ابو روضة كتب :

اتفضل أخى بعد ما ترفع الصورة ضع زر لينسخ لك الرابط المباشر للصورة

كود :

 Dim input As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
       For Each item As HtmlElement In input
           If item.GetAttribute("value").Contains("downloadf-") AndAlso (Not item.GetAttribute("value").Contains("[url=")) Then
               TextBox1.Text = (item.GetAttribute("value"))
           End If
       Next item

زادك الله فضل , ولكن أخي الكود لم يقم بنسخ اتوقع السبب يرجع لعدم تحديد اسم مكان الرابط ؟