[ابو روضة]

(28-10-18, 11:03 PM)elgokr كتب :

وعليكم السلام ورحمة الله وبركاته

مرحباً اخى ابو روضة

المشكلة لديك فقط فى هذا الجزء

كود :

\j

ويفضل استخدام الكود بهذا الشكل

كود :

       Dim wc As New WebClient
       Dim sourceString As String = wc.DownloadString("https://www.storiesrealistic.com/قصص-واقعية-عن-الظلم/".Replace("\", ""))
       Dim s As String = Regex.Match(sourceString, "https?:\/\/w{3}\.storiesrealistic\.com\/(.+?).jpg").Value
       PictureBox1.Load(s)

تم حذف .Groups(1) لاتمام جلب الرابط كاملاً للصورة

الا اذا كنت ستقوم بتحميل الصورة بجانب البرنامج من ثم عرضها فى PictureBox1

تحياتى لك

وتمنياتى لك التوفيق

حمدلله على السلامة أخى...

أظن أن الحل كان فى الترميز أخى لذا قمت بفضل الله بعملها هكذا بعد تعب كبير

كود :

 Dim wc As New WebClient
       wc.Encoding = Encoding.UTF8
       Dim sourceString As String = wc.DownloadString(TextBox3.Text)
       Dim patren As String = Regex.Match(sourceString, "https?:\/\/\w{3}\.\w+\.\w+\/\w+-\w+\/\w+\/\d{4}\/\d{2}\/[ء-ي].+\.\w{3}").Value
       PictureBox1.Load(patren)