Andrea_RBRW
26-03-2013, 21:28
Da visual basic leggo una pagina con scritto solo ed esclusivamente
ok
ma la pagina visualizzata dal visual basic (con la funzione ke poi riporto...) mi da
<html><head></head><body> ok</body></html>
Dim oggetto As New MSHTML.HTMLDocument
Dim documento As MSHTML.HTMLDocument
Set documento = oggetto.createDocumentFromUrl(sURL, vbNullString)
Do While documento.ReadyState <> "complete"
DoEvents
Loop
GetURLSource = documento.documentElement.outerHTML
Set documento = Nothing
Set oggetto = Nothing
provando con altra funzione
'prendo l'handle della connessione corrente
lSession = InternetOpen("vb wininet", 1, vbNullString, vbNullString, 0)
'prendo l'handle dell'URL
If lSession Then
lInternet = InternetOpenUrl(lSession, sURL, vbNullString, 0, IF_NO_CACHE_WRITE, 0)
End If
'se c'è l'handle dell'URL passo alla lettura della pagina
If lInternet Then
Call InternetReadFile(lInternet, sBuffer, BUFFER_LEN, lReturn)
sData = sBuffer
Do While lReturn <> 0
Call InternetReadFile(lInternet, sBuffer, BUFFER_LEN, lReturn)
sData = sData + Mid$(sBuffer, 1, lReturn)
Loop
End If
'chiudo l'URL
Call InternetCloseHandle(lInternet)
GetURLSource = Replace(sData, Chr(0), "")
mi restituisce risultati strani... okok oppure okok0... :muro: :muro:
ok
ma la pagina visualizzata dal visual basic (con la funzione ke poi riporto...) mi da
<html><head></head><body> ok</body></html>
Dim oggetto As New MSHTML.HTMLDocument
Dim documento As MSHTML.HTMLDocument
Set documento = oggetto.createDocumentFromUrl(sURL, vbNullString)
Do While documento.ReadyState <> "complete"
DoEvents
Loop
GetURLSource = documento.documentElement.outerHTML
Set documento = Nothing
Set oggetto = Nothing
provando con altra funzione
'prendo l'handle della connessione corrente
lSession = InternetOpen("vb wininet", 1, vbNullString, vbNullString, 0)
'prendo l'handle dell'URL
If lSession Then
lInternet = InternetOpenUrl(lSession, sURL, vbNullString, 0, IF_NO_CACHE_WRITE, 0)
End If
'se c'è l'handle dell'URL passo alla lettura della pagina
If lInternet Then
Call InternetReadFile(lInternet, sBuffer, BUFFER_LEN, lReturn)
sData = sBuffer
Do While lReturn <> 0
Call InternetReadFile(lInternet, sBuffer, BUFFER_LEN, lReturn)
sData = sData + Mid$(sBuffer, 1, lReturn)
Loop
End If
'chiudo l'URL
Call InternetCloseHandle(lInternet)
GetURLSource = Replace(sData, Chr(0), "")
mi restituisce risultati strani... okok oppure okok0... :muro: :muro: