::: AUTOMATION INTERNET EXPLORER AVEC VFP ::: ANNUAIRE INVERSE À PARTIR DE VOTRE APPLICATION VFP ::::

---

Commentaire sur cette source (0)
Ajouter un commentaire et/ou une note

*==========================================
* Annuaire Inverse à partir de votre application VFP
*==========================================

Nous avions besoin de simplifier certaines taches au sein de notre application vfp
pour les secrétaires.
Il fallait piloter IE à travers notre appli vfp pour afficher des données à l'utilisateur.

Cet exemple vous permet de piloter IE afin de saisir des formulaires IE en vfp.
(Nous vous proposons une recherche inverse sur l'annuaire téléphonique français.)

Olivier ,

* ===============================================
* Source Unviversalthread.com
* Ce programme permet de faire un recherche inverse
* sur l'annuaire téléphonique à partir de votre application vfp
* ===============================================

oIE = CREATEOBJECT("InternetExplorer.Application")
oIE.Navigate("http://www.infobel.com/france/wp/revsearch/default.asp")

INKEY(1)
nStartSeconds = SECONDS()
DO WHILE oIE.Document.ReadyState <> "complete" AND (SECONDS()-nStartSeconds < 30)
ENDDO

IF oIE.Document.ReadyState <> "complete"
	MESSAGEBOX("Votre site est Inaccessible")
	oie.Visible = .T.  
	RETURN .F.
ENDIF

&& attention dans cette exemple j'ai mis form(2) mais tout depend
&& du nombre de form que vous disposez dans l'objet Document.
&& l'indice commence à zero

oIE.Document.Forms(2).qphone.Value = "0164460660"
oIE.Document.Forms(2).Submit()
oIE.Visible = .T.

10 octobre 2004 12:09:01 :

.

• ::: OBTENIR LE NUMERO DE SERIE DU DISQUE DUR D'UN PC EN VFP :::
• UNE CLASSE CALENDRIER EN FOXPRO (À PARTIR DE VFP6 ET +)

• LISTER LES ADRESSES IP DE LA MACHINE
• OUVRIR UN DOCUMENT WORD PAR AUTOMATION ET FAIRE UNE FUSION AVEC DES DONNÉES FOXPRO
• [VFP]CLASSE SYSTEMTIME
• SPLASHSCREEN TYPE ALERTE D'OUTLOOK2003
• METTRE UN OBJET FOX PAR DESSUS UN ACTIVEX

• CRÉER UN INSTANCE DE INTERNET EXPLORER