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$