تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ممكن أعرف ما هو الخطأ فى هذا الباترين
#1
السلام عليكم اخوتى
الموضوع بقالى ساعات بحاول معاه عشان افهم ايه الخطأ ومش عارف 
مع ان الباترين فى الموقع صحيح لكن فى البرنامج بيظهر خطأ.
فمش عارف أجيب رابط الصورة وأعرضها داخل البيكتشر بوكس

كود :
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").Groups(1).Value
       PictureBox1.Load(s)

وهذا الباترين

كود :
https?:\/\/w{3}\.storiesrealistic\.com\/(.+?)\jpg

الصورة تبين ان الباترين صحيح

الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

مرحباً اخى ابو روضة
المشكلة لديك فقط فى هذا الجزء
كود :
\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

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: ابو روضة
#3
(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)
الرد }}}
تم الشكر بواسطة: elgokr
#4
الله يسلمك يارب اخى وحبيبى

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

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
Sad ممكن حل لهذا المشكل melad2002 0 239 30-01-24, 08:01 PM
آخر رد: melad2002
  ممكن استفسار عن m3u8 malekmohamed155 0 232 20-01-24, 07:47 PM
آخر رد: malekmohamed155
  شرح عن الخطأ attempted to read or write Adel27213 3 384 05-01-24, 01:01 AM
آخر رد: HALIM ELEULMA
  ممكن تعديل في كود التفقيط للارقام melad2002 2 333 01-01-24, 08:47 PM
آخر رد: melad2002
  [VB.NET] ما الخطأ فى هذا الكود - كود البحث المتعدد Ashraf Elafify 7 464 27-12-23, 10:50 PM
آخر رد: Ashraf Elafify
  [VB.NET] السلام عليكم ممكن مساعدة اخوان احتاج يكون تسجيل الدخول textbox1 + textbox2 Coder_iraqii 4 400 18-12-23, 06:46 PM
آخر رد: Kamil
  ممكن كود ترقيم تلقائي في الداتا غريد فيو المبرمج البسيط 16 10,577 08-11-23, 01:44 AM
آخر رد: الحزين اليماني
  [VB.NET] أين الخطأ فى تشغيل هذا التطبيق AhmedEissa 0 239 27-10-23, 04:05 PM
آخر رد: AhmedEissa

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم