منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : ظهور الاسماء بشكل غريب
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم اخوتى.
جلبت مواضيع من هذا الموقع https://www.muhtwa.com/aqwal/amthal/


 لكن الكلام ظهر بشكل غريب هكذا






وهكذا الكود المستعمل


كود :
  Dim url As String = ("https://www.muhtwa.com/aqwal/amthal/") '& i
       Dim wc As New WebClient
       wc.Headers.Add("user-agent", "Mozilla/5.0")
       wc.Encoding = Encoding.Default
       Dim html As String = wc.DownloadString(url)
       Dim doc As New HtmlAgilityPack.HtmlDocument
       doc.LoadHtml(html)
       For Each n As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//h2[@class='entry-title']/a")
           ListBox1.Items.Add(n.InnerText.Trim)
           lst.Add("https://www.muhtwa.com/" & n.Attributes("href").Value)

           Me.Text = ListBox1.Items.Count
       Next


وكلما حاولت بالويب براوزر يتم اغلاق البرنامج حين الدخول للموقع
وعليكم السلام ورحمة الله وبركاته

احببت ان اضع حل لتلك امشكلة بطرية مختلفة
عن لفكرة الاعتيادية بطريقة الـ Replace
حتى تتمكن من الاستادة منها فى اى شى اخر ليس فى امور الويب فقط

اليك الكود بعد التعدل عليه : مرفق الكود لتجنب جمل ترميز windows-1252

تحياتى لك
وتمنياتى لك التوفيق
(20-12-18, 06:04 PM)elgokr كتب : [ -> ]
وعليكم السلام ورحمة الله وبركاته

احببت ان اضع حل لتلك امشكلة بطرية مختلفة
عن لفكرة الاعتيادية بطريقة الـ Replace
حتى تتمكن من الاستادة منها فى اى شى اخر ليس فى امور الويب فقط

اليك الكود بعد التعدل عليه : مرفق الكود لتجنب جمل ترميز windows-1252

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

جزاك الله كل خير اخى الجوكر...
انظر ماذا حدث

السبب يرجع لكونك اخت الكود من امتصفح
بعد عرض محتوى المرفق بالمتصفح لديك

الافضل ان تقوم بتحميل الملف
وفتح الملف بالجهاز ومن ثم نسخ ما بداخل الملف
لتتجنب الرموز كما ظهر معك بالصورة  Big Grin

على اى حال تم عمل مثال مرفق + السورس
مع بعض اللمسات على الكود ستجد الشرح باعلى كل جزء مضاف ومعدل بالكود

السورس (2015)

تحياتى لك
وتمنياتى لك التوفيق
(20-12-18, 10:55 PM)elgokr كتب : [ -> ]
السبب يرجع لكونك اخت الكود من امتصفح
بعد عرض محتوى المرفق بالمتصفح لديك

الافضل ان تقوم بتحميل الملف
وفتح الملف بالجهاز ومن ثم نسخ ما بداخل الملف
لتتجنب الرموز كما ظهر معك بالصورة  Big Grin

على اى حال تم عمل مثال مرفق + السورس
مع بعض اللمسات على الكود ستجد الشرح باعلى كل جزء مضاف ومعدل بالكود

السورس (2015)

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

ماشاء الله عليك أخى انت فعلا رجل المهمات الصعبة..
بارك الله فيك وجزاك كل الخيرات.
تقبل الله منك الدعاء
والامر بسيط اخى ابو روضة
فقط يحتاج الى بعض التركيز فقط
لذلك احب ان انوع معك بعض الردود المختلفة احياناً 
لتعداد على حلول مختلة تساعدك مستقبلياً

تحياتى لك
وتمنياتى لك التوفيق
(21-12-18, 12:23 AM)elgokr كتب : [ -> ]
تقبل الله منك الدعاء
والامر بسيط اخى ابو روضة
فقط يحتاج الى بعض التركيز فقط
لذلك احب ان انوع معك بعض الردود المختلفة احياناً 
لتعداد على حلول مختلة تساعدك مستقبلياً

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

حبيبى قلبى يا ايها الجوكر والله ربنا يحفظك