::: automation internet explorer avec vfp ::: annuaire inverse à partir de votre application vfp ::::

Commenter

Contenu du snippet

  • ==========================================
  • 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 / Exemple : 




  •  ===============================================

  •  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.

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.

Du même auteur (olivierhamou)