[ابو روضة]

(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] 


شكرا لك اخى...مقصدى