سئوال درباره کار با WebKitBrowser

[behnami.mehdi]

با سلام
کسی از دوستان هست با WebKitBrowser و دستورات Getelement کار کرده باشه ؟
از سایت زیر :
http://www.tsetmc.com/Loader.aspx?ParTree=15131F#
عدد یکی از ستونهای جلوی یکی از سهم ها رو بخونم

اگه از دوستان کسی راهنمایی کنه ممنون میشم

پلت فرم VB.net , با استفاده از کنترل روی فرم .
با تشکر

[Reza Safa]

سلام دوست عزیز من با وب کیت یکسری اطلاعات از وب سایت ها خوندم .... یه جور ربات برای خواندن اطلاعات
اگر سیستم شما 64بیتی هست باید پردازش تو برنامه را رو x86 قرار بدی
کد زیر هم بخشی از او کد مربوط به رباته

امیدوارم موفق باشی و این کد کار شما رو راه بیاندازه

With WebKitBrowser1.Document.GetElementById("PART_OF_PAGE")
For Main1 As Integer = 0 To WebKitBrowser1.Document.GetElementById("PART_OF_PAGE").ChildNodes.Count - 1
If .ChildNodes.Item(Main1).NodeName <> "#comment" And .ChildNodes.Item(Main1).NodeName <> "#text" Then
ListBox1.Items.Add(vbTab & .ChildNodes.Item(Main1).NodeName)
For i2 As Integer = 0 To .ChildNodes.Item(Main1).ChildNodes.Count - 1
If .ChildNodes.Item(Main1).ChildNodes.Item(i2).NodeNa me <> "#comment" And .ChildNodes.Item(Main1).ChildNodes.Item(i2).NodeNa me <> "#text" Then
ListBox1.Items.Add(vbTab & vbTab & .ChildNodes.Item(Main1).ChildNodes.Item(i2).NodeNa me)
For i3 As Integer = 0 To .ChildNodes.Item(Main1).ChildNodes.Item(i2).ChildN odes.Count - 1
If .ChildNodes.Item(Main1).ChildNodes.Item(i2).ChildN odes.Item(i3).NodeName <> "#comment" And .ChildNodes.Item(Main1).ChildNodes.Item(i2).ChildN odes.Item(i3).NodeName <> "#text" Then
ListBox1.Items.Add(vbTab & vbTab & vbTab & .ChildNodes.Item(Main1).ChildNodes.Item(i2).ChildN odes.Item(i3).NodeName)
Dim aElement As WebKit.DOM.Element
aElement = DirectCast(.ChildNodes.Item(Main1).ChildNodes.Item (i2).ChildNodes.Item(i3), WebKit.DOM.Element)
If aElement.GetAttribute("class") = "ng-scope" Then
lbLink.Items.Add(aElement.GetAttribute("href"))
ListBox1.Items.Add(vbTab & vbTab & vbTab & aElement.GetAttribute("href"))
End If
For i4 As Integer = 0 To .ChildNodes.Item(Main1).ChildNodes.Item(i2).ChildN odes.Item(i3).ChildNodes.Count - 1
If .ChildNodes.Item(Main1).ChildNodes.Item(i2).ChildN odes.Item(i3).ChildNodes.Item(i4).NodeName <> "#comment" And .ChildNodes.Item(Main1).ChildNodes.Item(i2).ChildN odes.Item(i3).ChildNodes.Item(i4).NodeName <> "#text" Then
ListBox1.Items.Add(vbTab & vbTab & vbTab & vbTab & .ChildNodes.Item(Main1).ChildNodes.Item(i2).ChildN odes.Item(i3).ChildNodes.Item(i4).NodeName)
For i5 As Integer = 0 To .ChildNodes.Item(Main1).ChildNodes.Item(i2).ChildN odes.Item(i3).ChildNodes.Item(i4).ChildNodes.Count - 1
If .ChildNodes.Item(Main1).ChildNodes.Item(i2).ChildN odes.Item(i3).ChildNodes.Item(i4).ChildNodes.Item( i5).NodeName <> "#comment" And .ChildNodes.Item(Main1).ChildNodes.Item(i2).ChildN odes.Item(i3).ChildNodes.Item(i4).ChildNodes.Item( i5).NodeName <> "#text" Then
ListBox1.Items.Add(vbTab & vbTab & vbTab & vbTab & vbTab & .ChildNodes.Item(Main1).ChildNodes.Item(i2).ChildN odes.Item(i3).ChildNodes.Item(i4).ChildNodes.Item( i5).NodeName)
For i6 As Integer = 0 To .ChildNodes.Item(Main1).ChildNodes.Item(i2).ChildN odes.Item(i3).ChildNodes.Item(i4).ChildNodes.Item( i5).ChildNodes.Count - 1
If .ChildNodes.Item(Main1).ChildNodes.Item(i2).ChildN odes.Item(i3).ChildNodes.Item(i4).ChildNodes.Item( i5).ChildNodes.Item(i6).NodeName <> "#comment" And .ChildNodes.Item(Main1).ChildNodes.Item(i2).ChildN odes.Item(i3).ChildNodes.Item(i4).ChildNodes.Item( i5).ChildNodes.Item(i6).NodeName <> "#text" Then
ListBox1.Items.Add(vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & .ChildNodes.Item(Main1).ChildNodes.Item(i2).ChildN odes.Item(i3).ChildNodes.Item(i4).ChildNodes.Item( i5).ChildNodes.Item(i6).NodeName)
If .ChildNodes.Item(Main1).ChildNodes.Item(i2).ChildN odes.Item(i3).ChildNodes.Item(i4).ChildNodes.Item( i5).ChildNodes.Item(i6).NodeName.ToLower = "span" Then lberae.Items.Add(.ChildNodes.Item(Main1).ChildNode s.Item(i2).ChildNodes.Item(i3).ChildNodes.Item(i4) .ChildNodes.Item(i5).ChildNodes.Item(i6).TextConte nt)
ListBox1.Items.Add(vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & .ChildNodes.Item(Main1).ChildNodes.Item(i2).ChildN odes.Item(i3).ChildNodes.Item(i4).ChildNodes.Item( i5).ChildNodes.Item(i6).TextContent)
Dim el As WebKit.DOM.Element
el = DirectCast(.ChildNodes.Item(Main1).ChildNodes.Item (i2).ChildNodes.Item(i3).ChildNodes.Item(i4).Child Nodes.Item(i5).ChildNodes.Item(i6), WebKit.DOM.Element)
If .ChildNodes.Item(Main1).ChildNodes.Item(i2).ChildN odes.Item(i3).ChildNodes.Item(i4).ChildNodes.Item( i5).ChildNodes.Item(i6).NodeName.ToLower = "div" Then
If el.GetAttribute("class") = "count ng-binding" And el.GetAttribute("itemprop") = "offerCount" Then
lbTedad.Items.Add(el.TextContent)
End If
If el.GetAttribute("class") = "price ng-binding" And el.GetAttribute("itemprop") = "lowPrice" Then
lbGheymat.Items.Add(el.TextContent)
End If
If el.GetAttribute("class") = "EARTH_linetitle ng-binding ng-scope" Then
lbHavapeyma.Items.Add(el.TextContent)
End If
If el.GetAttribute("class") = "session_-spec time ng-binding" And el.GetAttribute("itemprop") = "departureTime" Then
lbSaat.Items.Add(el.TextContent)
End If
If el.GetAttribute("class") = "session_-spec session_No ng-binding" And el.GetAttribute("itemprop") = "session_Number" Then
lbParvaz.Items.Add(el.TextContent)
End If
If el.GetAttribute("class") = "session_-spec day-name ng-binding" Then
lbRooz.Items.Add(el.TextContent)
End If
If el.GetAttribute("class") = "session_-spec full-date ng-binding" Then
lbdt.Items.Add(el.TextContent)
End If
If el.GetAttribute("class") = "session_-spec EARTH_plane ng-binding" Then
lbhmodel.Items.Add(el.TextContent)
End If
If el.GetAttribute("class") = "ng-binding" Then
lbAjans.Items.Add(el.TextContent)
End If
End If
If .ChildNodes.Item(Main1).ChildNodes.Item(i2).ChildN odes.Item(i3).ChildNodes.Item(i4).ChildNodes.Item( i5).ChildNodes.Item(i6).NodeName.ToLower = "text" Then
If el.GetAttribute("class") = "session_-comment-text ng-binding" And el.GetAttribute("itemprop") = "description" Then
lbDescr.Items.Add(el.TextContent)
End If
End If
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End With

[behnami.mehdi]

تشکر رضا ی عزیز
عالی بود :تشویق: