CISA FotoGallery

Statistiche

Tot. visite contenuti : 928357
Home Articoli tecnici Access & Web Compilare le imputbox di una pagina web

Compilare le imputbox di una pagina web

On Error GoTo scriviSuInternetExplorer_err
Dim oApp As InternetExplorer
Dim oDocument As IHTMLDocument

Set oApp = CreateObject("InternetExplorer.Application")
oApp.Navigate2 "http://www.google.it"

Do
DoEvents
If oApp.ReadyState = READYSTATE_COMPLETE Then
Exit Do
End If
Loop

oApp.Visible = True
oApp.Document.Forms(0).item("q").Value = "ciccio"
oApp.Document.Forms(0).submit

scriviSuInternetExplorer_exit:
Set oDocument = Nothing
Set oApp = Nothing
Exit Sub

scriviSuInternetExplorer_err:
oApp.Quit
Set oDocument = Nothing
Set oApp = Nothing
MsgBox Application.AccessError(Err.Number) & ", " & Err.Number