uso Visual basic 6

qui' cerca il link

Dim WithEvents IEst As SHDocVw.InternetExplorer
On Error Resume Next
If IEst Is Nothing Then 'creo solo la 1a volta
Set IEst = CreateObject("InternetExplorer.Application")
End If
IEst.Navigate STMsitotah

e quì esegue le operazioni non appena scarica i dati

Private Sub IEst_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
Dim doc As MSHTML.HTMLDocument, b As MSHTML.IHTMLBodyElement