سوال: برداشتن قسمتی از سایت و نمایش دادن اون در فرم [بایگانی]

hosein3000

دوشنبه 31 تیر 1392, 21:24 عصر

با سلام خدمت دوستان عزیز
من می خوام فقط جدول سایت زیر رو تو فرمم نشون بدم البته چون جدول بروز رسانی میشه طوری باشه که هر چند وقت رفرش هم بشه
چطوری اینکارو انجام بدم؟؟

http://irsc.ut.ac.ir/currentearthq.php?lang=fa

hosein3000

دوشنبه 07 مرداد 1392, 22:11 عصر

با سلام خدمت دوستان عزیز
من می خوام فقط جدول سایت زیر رو تو فرمم نشون بدم البته چون جدول بروز رسانی میشه طوری باشه که هر چند وقت رفرش هم بشه
چطوری اینکارو انجام بدم؟؟

http://irsc.ut.ac.ir/currentearthq.php?lang=fa
کسی از دوستان برای مشکل من نظری نداره؟

vbhamed

چهارشنبه 09 مرداد 1392, 13:16 عصر

سلام
براي گرفتن سورس صفحه روشهاي مختلفي هست، راحت ترين اينه كه با كنترل وب بروزر نشون بدين و بعد سورس رو بخونيد و قسمت مورد نظر رو جدا كنيد

Dim t&

Private Sub Form_Load()

With WebBrowser1
t = .Top
.Top = 100000
.Navigate "http://irsc.ut.ac.ir/currentearthq.php?lang=fa"
Show
DoEvents
End With

End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

If pDisp Is WebBrowser1.Object Then
Dim s$, p&
With WebBrowser1
s = .Document.body.innerhtml
p = InStr(s, "creditcard1")
s = Mid$(s, p - 8)
.Document.body.innerhtml = "<html>" & s
.Top = t
End With
End If

End Sub