Newsgroup: it.comp.appl.access
Titolo: Interazione con internet explorer

Salve a tutti,
come si fa da access VBA a:
-aprire una sessione di internet explorer
-passargli un indirizzo web
-intercettare l'errore nell'indirizzo del tipo scritta in basso a
sinistra "operazione completata" ma pagina completamente bianca
-passargli un altro indirizzo web
grazie
BR1

 ha scritto nel messaggio
news:1156773723.2...@m79g2000cwm.googlegroups.com...

prova a dare unocchiata q questo link
http://www.unisyn.com/automate4/User/Learning/BASIC/
Ciao
Paolo

 ha scritto nel messaggio 
news:1156773723.2...@m79g2000cwm.googlegroups.com...

Prova con:
'---
'-->
'--> inserire i riferimenti alla libreria:
'--> Microsoft WinHTTP Services
'-->
Dim HttpReq As New WinHttpRequest
Dim strUrl(4) As String, xIndice As Integer
strUrl(1) = "http://micasaràmicrosoft.com"
strUrl(2) = "
http://www.vattelapesca.com
"
strUrl(3) = "
http://www.alessandrobaraldi.it
"
strUrl(4) = "
http://www.xsitocomune.com
"
On Error Resume Next
For xIndice = 1 To UBound(strUrl)
    HttpReq.Open "GET", strUrl(xIndice), False
    HttpReq.Send
    If Err.Number <> 0 Then
        Debug.Print strUrl(xIndice) & ", non va da nessuna parte!"
    Else
        Debug.Print strUrl(xIndice) & ", Link Ok!"
    End If
    Err.Clear
    HttpReq.abort
Next
Set HttpReq = nothing
'---
Con questo codice non vedi la finestra del browser.
E' uguale o no?
Ciao.
-- 
Sergio MAZZA 

Sergio MAZZA ha scritto:

Mi va bene che non si apra la finestra del browser, ma la funzione da
sempre ", non va da nessuna parte!" (codice errore: -
2147012867
) forse
perchè c'è il proxy e il firewall, devo provarlo da casa.
grazie
BR1

 ha scritto nel messaggio 
news:1156851477....@i42g2000cwa.googlegroups.com...
Mi va bene che non si apra la finestra del browser, ma la funzione da
sempre ", non va da nessuna parte!" (codice errore: -
2147012867
) forse
perchè c'è il proxy e il firewall, devo provarlo da casa.
grazie
BR1
[risposta]
Ho provato ora e funziona; occhio che l'errore potrebbe arrivare dopo un po' 
di tempo...
Ciao.
-- 
Sergio MAZZA 

BR1 ha scritto:

Oltre a quanto detto da Sergio, puoi provare ad usare API:
InternetOpenUrl
Declare Function InternetOpenUrl Lib "wininet" Alias "InternetOpenUrlA"
(ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal
lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As
Long, ByVal dwContext As Long) As Long
Ricorda che devi prima aprire una sessione con API: InternetOpen
altrimenti
non vai molto lontano....
Private Declare Function InternetOpen Lib "wininet" Alias
"InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long,
ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags
As Long) As Long
Ed alla fine chiudere gli Hwnd sia della sessione che dell'istanza.
Quindi riassumendo:
hwndSession=InternetOpen (.....)
hwndIstance=InternetOpenUrl (hwndSession, URL.......)
hwndIstance ritornerà l'Handle della sessione nel caso di Indirizzo
OK, altrimenti ritorna un numero se non ricordo male <32 ma che puoi
discriminare con API:GetLastError
Dovrebbe fare quello che dici.... ma non l'ho provato, in ogni caso
trovi molta documentazione anche in rete.
@Alex