// Classe de pilotage de Internet Explorer
CiExplore est une classe
m_sActiveX est une chaîne // Nom de l'ActiveX contenant l'explorateur
m_pActiveX est un objet OLE dynamique // ActiveX contenant l'explorateur
m_pCollectionInput est un objet OLE dynamique // Collection d'objets de type Input
m_nNbInput est un entier // Nombre d'objets de la collection
m_pCollectionSelect est un objet OLE dynamique // Collection d'objets de type Select
m_nNbSelect est un entier // Nombre d'objets de la collection
m_pCollectionTextArea est un objet OLE dynamique// Collection d'objets de type TextArea
m_nNbTextArea est un entier // Nombre d'objets de la collection
m_pDisp est un objet OLE dynamique
m_bCharge est un booléen
m_sTexte est une chaîne
m_sNomTag est une chaîne
m_sType est une chaîne
m_sNom est une chaîne
m_sValeur est une chaîne
m_nHauteur est un entier
m_nLargeur est un entier
m_nX est un entier
m_nY est un entier
m_nOccurrence est un entier
FIN
PROCEDURE Constructeur(psActiveX)
// psActiveX est le NOM du champ ActiveX (de type chaîne)
:m_sActiveX = psActiveX
PROCEDURE InitActiveX()
// Initialisation du champ ActiveX
// L'ActiveX est-il installé ?
SI PAS RegistreExiste("HKEY_CLASSES_ROOT\Shell.Explorer") ALORS
Erreur("Cette application nécessite Internet Explorer 4 minimum")
FinProgramme()
FIN
// Chargement de l'ActiveX
{:m_sActiveX}="Shell.Explorer"
// Instanciation OK ?
:m_pActiveX = {:m_sActiveX}
SI :m_pActiveX=Null ALORS
FinProgramme("L'ActiveX Internet Explorer n'a pas pu être chargé.")
FIN
// Evénement de début de chargement de page
ActiveXEvénement(":XWEB_DownloadBegin",:m_sActiveX,"DownloadBegin")
// Evénement de fin de chargement de page
ActiveXEvénement(":XWEB_DownloadComplete",:m_sActiveX,"DownloadComplete")
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=14&topic_id=2523&post_id=10826