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

(16-07-18, 12:10 AM)elgokr كتب : [ -> ]

ارفق المشروع لاختبار نتائج القيم

أو قم باستخدام التالى

كود :

MsgBox(item.InnerText)

بدلاً من 

كود :

ListBox1.Items.Add(item.InnerText)

وشوف عند عمل اختبار هل تظهر رسالة واحدة فقط

او تعدد الرسائل ... واذا كانت تعدد الرسائل

ارفق لى صورة للرسالة التى تعرض لك

لمعرفة شكل الرسالة التى تظهر فى كل مرة

وان ارفقت المشروع سيسهل علي كتابة الكود المفيد

لاتمام تنفيذ المطلوب

تحياتى لك

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

(16-07-18, 01:19 AM)elgokr كتب : [ -> ]

بعد رؤية الصورة

كانت الصورة لوحدها تكفي

ولكن حسباً حتى لا يحدث اى اخطاء معك

تم الاطلاع على السورس ولتجنباً من اخطاء ضغط الزر قبل اتمام تحميل الصفحة

وايضاً الاسطر التى لا تحتوى على اى نصوص

تم حلها جميعها فى الكود التالى

فقط استخدم الكود داخل الزر

كود :

       ListBox1.Items.Clear()
       If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then
           Dim input As HtmlElementCollection
           input = WebBrowser1.Document.GetElementsByTagName("div")
           For Each item As HtmlElement In input
               If item.GetAttribute("className").Contains("col6 prayertable mobile") Then
                   Dim GetItem_ As String() = item.InnerText.Split(vbNewLine)
                   For ii As Integer = 0 To GetItem_.Length - 1
                       If GetItem_(ii).Count > 1 Then
                           ListBox1.Items.Add(GetItem_(ii))
                       End If
                   Next
               End If
           Next
       End If

تحياتى لك

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