cs_guers
Messages postés1Date d'inscriptionmardi 25 mars 2008StatutMembreDernière intervention25 mars 2008
-
25 mars 2008 à 11:23
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 2021
-
25 mars 2008 à 12:01
Bonjour,
Après avoir recherché sur le forum comment récupérer du code HTML d'un page IE, je me demande comment faire pour récupérer celui de la bonne page.
Je m'explique: voici mon code:
Sub Main()
Dim IE As Object
Dim Source As String
'crée un objet internet Explorer
Set IE = CreateObject("InternetExplorer.Application")
'le rend visible
IE.Visible = True
'ouvre une page...
IE.Navigate "http://www.site.com/test/index.php"
'attend que la page soit chargée
Do While IE.ReadyState <> 4
DoEvents
Loop
'attend que la page soit chargée
Do While IE.ReadyState <> 4
DoEvents
Loop
Source=IE.Document.Body.innerHTML
MsgBox(Source)
'fermeture explorer
'IE.Quit
'Set IE = Nothing
Exit Sub
ERREUR_CHARGEMENT:
IE.Quit
Set IE = Nothing
End Sub
Donc lorsque je récupère mon code source, j'ai le code source de la page sur laquelle je passe mes 2 paremetres et non le code source de la page ou est affiché le résultat --> OK ou KO.
Quelqu'un serait comment récupérer les info du résultat ?