Option Compare Database

Sub Main()
Dim WebBrowser1 As HTMLObjectElement

'what is the page you want to pull up in your browser (ie icq.com/sms)
WebBrowser1.navigate "http://www.google.com"


'sometimes there are timing issues, so issue a couple of doevents so the browser responds
DoEvents: DoEvents: DoEvents

Do While WebBrowser1.Busy   'wait until the page loads by looping
  DoEvents
Loop


Set doc = WebBrowser1.Document    'access the document properties of the current page
DoEvents

Do While WebBrowser1.Busy
DoEvents
Loop

'if you pull your page up in IE and you view the source,
'you can find the form variables that you want to fill in
'I'm sure there are other ways to iterate through the form
' to get them, but I never could figure it out.

returnValue = FillForm("q", "this is my search criteria", False)

WebBrowser1.Document.Forms(0).submit


End Sub


Public Sub ClickLink(doc, LinkText As String)
For i = 0 To doc.links.length - 1
   If InStr(LTrim(RTrim(doc.links(i).outerText)), LinkText) > 0 Then
    doc.links(i).Click
    Exit For
  End If
Next i
End Sub


Function FillForm(ByVal formtag, ByVal FillValue, ByVal isCombo As Boolean) As Boolean
Dim elemcollection As IHTMLElementCollection
Dim obj As Object
Dim element2 As HTMLInputElement
Dim element As HTMLInputElement


If Not isCombo Then

WebBrowser1.Document.Forms(0).elements(formtag).Value = FillValue

Else
WebBrowser1.Document.Forms(0).elements(formtag).selectedIndex = Val(FillValue)

End If


End Function

html.getElementsByClassName("ref")(0).innerHTML

<b>Travessa da Fé, Quiaios, 3080 Figueira da Foz, Coimbra</b>

<b>Travessa da</b> Fé, Quiaios, <b>3080 Figueira da Foz, Coimbra</b>

Private Sub Comando17_Click()
    WebBrowser1.navigate ("http://maps.google.com/maps?f=q&source=s_q&hl=pt-PT&authuser=0&q=loc:" & Rua.Value & "," & Cidade.Value & "," & Concelho.Value & "," & Pais.Value)
    
    Do While WebBrowser1.readyState <> 4
        DoEvents
    Loop
    
    Dim html As MSHTML.HTMLDocument
    Set html = WebBrowser1.Document
    
    If ListStreet.ListCount > "0" Then
        Call RemoveAllItemList
    End If
    
    totalstreet = html.getElementsByClassName("ref").length
    For i = 1 To totalstreet
        AddItemToEnd ListStreet, i & "," & html.getElementsByClassName("ref").Item(i - 1).getElementsByTagName("B").Item(0).innerHTML
    Next i
    MsgBox (html.getElementsByClassName("ref")(0).innerHTML)
End Sub

Function AddItemToEnd(ListStreet As ListBox, _
        ByVal strItem As String)
    strItem = Replace(strItem, ",", ";", "1", "3")
    ListStreet.AddItem Item:=strItem

End Function

Private Sub RemoveAllItemList()
    Do While ListStreet.ListCount
        ListStreet.RemoveItem ListStreet.ItemData(0)
    Loop
End Sub