Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

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


Information sur la source

Catégorie :API-OLE Classé sous : annuaire, piloter, ie, internet, explorer Niveau : Débutant Date de création : 10/10/2004 Date de mise à jour : 10/10/2004 12:09:00 Vu : 4 604

Note :
Aucune note

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

Description

*==========================================
* 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

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

Historique

10 octobre 2004 12:09:01 :
.

Commentaires et avis

Aucun commentaire pour le moment.

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Internet Explorer 7 [ par PatriceJ ] Bonjour à tous, Depuis que j'ai installé Internet Explorer 7 quand je lance un programme développé avec Foxpro Windows me demande confirmer le lanceme mon application en site d'internet [ par info_maroc ] Bonjour,j'ai développé une application sous vfp9 qui gere les fichiers des clients et je veux que cette application soit accessible de n'importe quel connecter sur un database par internet [ par MVTNV ] Bonjour,Je suis en train de faire un programme qui a besoin de beaucoup de databases.Normallement quand j'ai besoin d'un database je fais "use \\nom d


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version

Photothèque Nouveau !



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,374 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.