Xhtml

Commenter

Contenu du snippet

Qui n'a jamais révé de récupérer le contenu d'une page HTML sans l'afficher afin d'en récupérer des données. On peut imaginer d'utiliser ce procédé pour extraire des cadres par exemple ou d'exécuter une page qui renvoit un résultat non affichable.
Cela est possible à l'aide de XHTML.
Il faut référencer la DLL msxml4.dll en utilisant le choix références dans le menu Projet.
voici la fonction à inclure dans votre code :

j'y ai inclus un petit test pour ne récupérer l'information qu'après le premier '<'.

Bon codage.

ldm001.

Source / Exemple : 


Public Function GetHTMLPage(url As Variant) As String
    On Error GoTo GetHTMLPageError
    Dim xmlH As XMLHTTP40
    Dim pos As Integer
    Set xmlH = New XMLHTTP40
    
    xmlH.open "POST", url, False
    
    xmlH.send
    
    
    pos = InStr(1, xmlH.responseText, "<")
    If pos = 0 Then
        pos = 1
    End If
    GetHTMLPage = Right$(xmlH.responseText, Len(xmlH.responseText) - pos + 1)
    'MsgBox GetHTMLPage
    
    Exit Function
GetHTMLPageError:
    GetHTMLPage = "ERROR"
End Function

Conclusion :


roadnotes.ifrance.com

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.