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

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

(30-10-17, 10:45 AM)Mohamad Anan كتب : [ -> ]و عليكم السلام و رحمة الله و بركاته

PHP كود :

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        If (WebBrowser1.Document IsNot Nothing) Then
            For Each PageElement As HtmlElement In WebBrowser1.Document.All
                If PageElement.InnerText = "البقرة" Then
                    MessageBox.Show(PageElement.InnerText)
                End If
            Next
        End If

    End Sub 


وباقى النصوص اخى ؟ هذا يستخرج البقرة فقط

(30-10-17, 12:05 PM)Mohamad Anan كتب : [ -> ]

PHP كود :

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        If (WebBrowser1.Document IsNot Nothing) Then
            For Each PageElement As HtmlElement In WebBrowser1.Document.All
                If PageElement.TagName = "SPAN" Then
                    MessageBox.Show(PageElement.InnerText)
                End If
            Next
        End If

    End Sub
End Class 


(30-10-17, 12:18 PM)Mohamad Anan كتب : [ -> ]

PHP كود :

[align=center]    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click[/align]
[align=center] [/align]
[align=center]        If (WebBrowser1.Document IsNot Nothing) Then[/align]
[align=center]            For Each PageElement As HtmlElement In WebBrowser1.Document.All[/align]
[align=center]                If PageElement.TagName = "SPAN" And Not IsNumeric(PageElement.InnerText) Then[/align]
[align=center]                    MessageBox.Show(PageElement.InnerText)[/align]
[align=center]                End If[/align]
[align=center]            Next[/align]
[align=center]        End If[/align]
[align=center][/align]
[align=center]    End Sub[/align] 


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

أخي الكريم:
هل جربت آخر كود؟

(30-10-17, 12:29 PM)Mohamad Anan كتب : [ -> ]السلام عليكم و رحمة الله و بركاته

أخي الكريم:
هل جربت آخر كود؟

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

أخي الكريم


الكود عندي يظهر الاسماء فقط

في هذه الحالة لا يوجد حل سوى ارفاق مشروع للتعديل عيه