Buona sera,
lo so che è un discorso vecchio ed in effetti non ho problemi nello scaricare il sorgente da una qualsiasi web page ma da una in particolare. Ovvero, fino a ieri ci riuscivo senza problemi ma da oggi mi scarica solo un trafiletto in cui mi si dice Accesso negato. Pero', se entro in un browser e clicco su visualizza sorgente me lo fa fare senza problemi.
Quello di seguito è il codice che utilizzo per scaricare la pagina ma ho anche provato a scaricare con altri codici e sempre con lo stesso problema.
#Public Sub carica_sito(url)
Info.Text = "Caricamento dati on line"
On Error Resume Next
Dim hOpen As Long
Dim hOpenUrl As Long
Dim sURL As String
Dim bDoLoop As Boolean
Dim bRet As Boolean
Dim sReadBuffer As String * 2048
Dim lNumberOfBytesRead As Long
Sbuffer = ""
sURL = url
Call DeleteUrlCacheEntry(url)
hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
hOpenUrl = InternetOpenUrl(hOpen, sURL, vbNullString, 0, INTERNET_FLAG_RELOAD, 0)
bDoLoop = True
While bDoLoop
DoEvents
sReadBuffer = vbNullString
bRet = InternetReadFile(hOpenUrl, sReadBuffer, Len(sReadBuffer), lNumberOfBytesRead)
Sbuffer = Sbuffer & Left$(sReadBuffer, lNumberOfBytesRead)
If Not CBool(lNumberOfBytesRead) Then bDoLoop = False
Wend
If hOpenUrl <> 0 Then InternetCloseHandle (hOpenUrl)
If hOpen <> 0 Then InternetCloseHandle (hOpen)
Info.Text = "Processo terminato"
End Sub#
Tutto quello che mi ritrovo nella variabile Sbuffer è il seguente codice html:
<
<HTML><HEAD>
<TITLE>Access Denied</TITLE>
</HEAD><BODY>
<H1>Access Denied</H1>
You don't have permission to access "http://it.soccerway.com/national/italy/serie-a/20192020/regular-season/r54890/matches/?" on this server.<P>
Reference #18.6e2b1102.1588698335.500fd83
</BODY>
</HTML>
>
Il sito non richiede Id e passworddi accesso ed è:
https://it.soccerway.com
Sapete darmi una risposta?
Grazie
Rispondi quotando
