ReceiveHTTPFile et code source html
Publié : mer. 08/déc./2021 11:00
Bonjour,
Lorsque je veux enregistrer et explorer le code source d'une page html, j'utilise le classique ReceiveHTTPFile qui fonctionne très bien.
Exemple :
Mais, dans ce cas concernant le site le Bon Coin, une astuce du site empêche de voir le code source de leur page via la commande ReceiveHTTPFile. Mais, en faisant un clic droit sur la page du navigateur, cela fonctionne !
Comprenez-vous, dans cet exemple, ce qui refuse de fonctionner avec ReceiveHTTPFile ?
Lorsque je veux enregistrer et explorer le code source d'une page html, j'utilise le classique ReceiveHTTPFile qui fonctionne très bien.
Exemple :
Code : Tout sélectionner
InitNetwork()
Source_File$ = GetTemporaryDirectory() + "\Source.txt"
If ReceiveHTTPFile("https://www.purebasic.com/", Source_File$)
Debug "Connexion OK"
Else
MessageRequester("Erreur","Echec de connexion au site purebasic")
End
EndIf
If Not OpenFile(0, Source_File$)
MessageRequester("Erreur","Code source de la page non chargé ?")
End
EndIf
While Not Eof(0)
Txt$ = ReadString(0, #PB_Ascii | #PB_File_IgnoreEOL)
Wend
CloseFile(0)
Debug Txt$
Comprenez-vous, dans cet exemple, ce qui refuse de fonctionner avec ReceiveHTTPFile ?
Code : Tout sélectionner
InitNetwork()
Source_File$ = GetTemporaryDirectory() + "\Source.txt"
If ReceiveHTTPFile("https://www.leboncoin.fr/", Source_File$)
Debug "Connexion OK"
Else
MessageRequester("Erreur","Echec de connexion au site Leboncoin")
End
EndIf
If Not OpenFile(0, Source_File$)
MessageRequester("Erreur","Code source de la page non chargé ?")
End
EndIf
While Not Eof(0)
Txt$ = ReadString(0, #PB_Ascii | #PB_File_IgnoreEOL)
Wend
CloseFile(0)
Debug Txt$