[ابو روضة]

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

كود :

 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