گرفتن متن از سایت با وینسوک یا وب بروزر

[سید حمید حق پرست]

سلام علیکم
بنده میخوام از یه سایت متنهایی رو بگیرم و در لیبیل نشون بدم که با مشکل برخوردم . مشکل این هست که این سایت از id استفاده نکرده و من هم با وب بروزر و وینسوک بلد هستم از طریق id اون متن بدستش بیارم
اما این id نداره . میخواستم دوستان زحمت بکشن کمک کنن چه جوری بدست بیارم
این یکی از متنهاشه :

<tr> <td width="190" height="41" align="left"><div class="counter"><span class="rts-counter" rel="current_population">بازيابي اطلاعات . . .</span></div></td> <td width="290" align="left"><div align="right" class="style9">کل :</div></td> <td width="45">&nbsp;</td> </tr> <tr>

میخوام متن بازيابي اطلاعات . . . رو در تکست نشون بدم

یا علی (ع)

[سید حمید حق پرست]

من برای کد زیر در وی بی (بدست اوردن 1000) :

<td align="center" style="height: 20px" id="ghaymat">1000</td> <td align="center" >قیمت</font></td>
از اینت به صورت زیر استفاده میکنم :
Text1.Text = Inet1.OpenURL("address saite", icString)
p = Len(Text1.Text) - InStr(1, Text1.Text, "ghaymat")
Text1.Text = Right(Text1.Text, p)
h = Split(Text1.Text, ">")(1)
k = Len(h) - 4
h = Left(h, k)
Label2.Caption = h
اما این روش برای کد بالا جواب نداد
ممنون میشم راهنمایی کنید

یا علی (ع)

[سید حمید حق پرست]

سلام غلیکم
کسی نیست جواب بده
من هر تاپیکی زدم بدون جواب مونده به خدا:متعجب:
فقط بگید چرا کد زیر برای بعضی سایتها جواب نمده و سورس سایت رو کامل در تکست نمیریزه :
Text1.Text = Inet1.OpenURL("address saite", icString)

یا علی (غ)

[ho3ein.3ven]

سلام . این کامپوننت رو بررسی کن ببین جواب نمیده.

89689

[سید حمید حق پرست]

سلام علیکم
ممنون از شما ولی با این هم نشد
دوستان الان فرض کنید بنده تو کامپوننت وب بروزر یک سایت لود کردم حالا روش بدست اوردن سورس وب بروزر چی هست من تمام خصوصیاتشو امتحان کردم اما یا نداشت یا من پیدا نکردم
ممنون میشم راهنمایی کنید


یا علی (ع)

[just4froum]

بفرمایید : (فثط باید وب بروزر کاملا لود شده باشه)

Form1.browser.Document.documentElement.innerHTML

[just4froum]

از وینسوک به صورت زیر استفاده میکنم :


آقای حق پرست ببخشید ولی این کد که برای وینسوک نیست برای Inet یا همون 6.0 Microsoft Internet Transfer Control هست.

[سید حمید حق پرست]

سلام علیکم
ممنون از شما
بله از inet استفاده کردم . اون موقه اصلا هواسم نبود چی نوشتم . چون با هردوشون داشتم کار میکردم اشتباهی نوشتم :گیج:

یا علی (ع)

[just4froum]

بفرمایید جناب حق پرست اینم از سورسی که می خواستین :

Private Sub Command1_Click()
Dim lvl As Byte: lvl = 1
Dim s As String
For n = 0 To Web.Document.All.length - 1
Select Case lvl
Case 1
If Web.Document.All(n).tagName = "SPAN" Then If Web.Document.All(n).classname = "rts-counter" Then lvl = 2
Case 2
If Web.Document.All(n).tagName <> "SPAN" Then lvl = 1: txt = txt & vbNewLine: GoTo Miss
s = Web.Document.All(n).innerHTML
txt = txt & s
Miss:
End Select
Next
End Sub

Private Sub Form_Load()
Web.Navigate "http://www.worldometers.info/fa/"
Web.Silent = True
End Sub