ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Ajouter AtoutFox au menu favoris d'Internet explorer   



L'auteur

ybenam
Algérie Algérie
Membre Simple
# 0000002080
enregistré le 21/04/2008


Fiche personnelle


Note des membres
pas de note

Contributions > 09 - Automation > Internet Explorer

Ajouter AtoutFox au menu favoris d'Internet explorer
# 0000000599
ajouté le 03/06/2008 19:17:55 et modifié le 03/06/2008
consulté 7601 fois
Niveau débutant

Version(s) Foxpro :
VFP 6.0

Description
Deux petits scripts pour ajouter par programmation deux items avec deux méthodes différentes au menu Favoris du navigateur Iexplore.
Code source :
cr=chr(13)
&&Ajouter un lien internet aux favoris méthode 1
libelle="Atoutfox "
URL="http://www.atoutfox.org/"
x1=libelle
yPath=createObject("WScript.Shell")
aa=yPath.specialFolders("Favorites")+"\"    &&récupère le chemin du dossier des Favoris
Fichier = aa+allt(libelle) +".url"         &&confectionne une chaîne de nom de fichier
x="[internetShortcut]"+chr(13)+"URL="+URL   &&chaine à écrire dans le fichier (extension URL)
=strtofile(x,fichier)
********************************************************************************************
&&Ajouter un lien internet aux favoris méthode 2
libelle="Atoufox Identification"
URL="http://www.atoutfox.org/login.asp"

xShell = createObject("WScript.Shell")
yPath = xShell.specialFolders("Favorites")
Raccourci = xShell.createShortcut(yPath + "\"+libelle+".lnk")
Raccourci.targetPath = URL
Raccourci.Save

messagebox("Votre lien favori 1 :"+x1 +cr+"Votre lien favori 2 :"+libelle+cr+;
" ont été rajoutés au menu favoris Iexplore."+cr+"Ouvrir IE et dérouler le menu Favori pour ;
les voir "
+cr+cr+"(pour supprimer... clic droit sur l'item menu et suppression)",0+32,"Création terminée")

Commentaires
Aucun commentaire enregistré ...

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3