OBTER TEMPERATURA NA WEB

TmpString = WebBrowser1.Document.body.innerHTML

Option Explicit

Private Declare Function GetTickCount Lib [Ô]kernel32[Ô] () As Long

Private Sub Command1_Click()
    Dim lStart As Long
    lStart = GetTickCount

    Dim obj As MSXML2.ServerXMLHTTP
    Set obj = New MSXML2.ServerXMLHTTP

    obj.open [Ô]GET[Ô], [Ô]http://br.tempo.yahoo.com/[Ô]
    obj.send

    [ô]se ocorreu um erro HTTP
    If obj.Status >= 400 And obj.Status <= 505 Then
        MsgBox [Ô]Erro Ocorrido : [Ô] & obj.Status & [Ô] - [Ô] & obj.statusText
    Else
        Dim objDocument As MSHTML.HTMLDocument
        Set objDocument = New MSHTML.HTMLDocument

        objDocument.body.innerHTML = obj.responseText
        Call Filtrar(objDocument.body.innerText)
        Set objDocument = Nothing
    End If
    Set obj = Nothing
    
    Label1.Caption = GetTickCount - lStart
End Sub

Private Sub Command2_Click()
    Dim lStart As Long
    lStart = GetTickCount
    
    Dim objHTML1 As New MSHTML.HTMLDocument
    Dim objHTML2 As MSHTML.HTMLDocument
    Set objHTML2 = objHTML1.createDocumentFromUrl([Ô]http://br.tempo.yahoo.com/[Ô], [Ô]null[Ô])
    Do Until objHTML2.readyState = [Ô]complete[Ô]
        DoEvents
    Loop
    Call Filtrar(objHTML2.body.innerText)
    
    Label1.Caption = GetTickCount - lStart
End Sub

Private Sub Filtrar(ByVal sHTML As String)
    Dim i As Integer
    Dim arrHTML() As String

    arrHTML = Split(sHTML, vbCrLf)

    For i = 0 To UBound(arrHTML)
        If InStr(1, arrHTML(i), [Ô]Procurar Reports Tempo[Ô]) <> 0 Then
            [ô]Faça seu filto aqui
            
            Exit For
        End If
    Next    [ô]i

    For i = 0 To UBound(arrHTML)
        Debug.Print arrHTML(i)
    Next    [ô]i

End Sub