un exemple qui donne la définition ( merci Google ) du mot sélectionné.
Conclusion :
Quand on Clique Droit sur une page HTML ( ou l'un de ces élements )
Internet Explorer propose un menu contextuel, avec des actions possibles.
Je vous propose d'ajouter vos propres actions.
Il va sans dire mais c'est mieux en le disant : c'est exclusif Internet Explorer.
==================================================
Une petite Modification du registre est à faire, tout est expliqué
dans DeMo Aide.htm, lisez le en 1er.
==================================================
pour plus d'informations, tout est chez
http://msdn.microsoft.com/library/?frame=true
==================================================
l'utilisation :
° sélectionner un mot dans la page html actuelle,
° cliquer Droit et Choisir "Définition"
ça donne la définition du mot
6 juin 2008 à 20:37
il y a deux réponses dans cet article (ici même sur ce site) :
>> http://www.vbfrance.com/code.aspx?ID=39496
salut à vous, salut Marcel
6 juin 2008 à 11:38
en applicant les modifications du registre comme indiquées
( Demo Aide.htm ), ça devrait exécuter (?).
peut-être m'y mettrais-je à faire un ch'tiot truc
qui analyse la page et en sauvegarde les images (?)
@+
6 juin 2008 à 11:14
bon, le script provient d un outil d aide au telechargement, il y a un menu contextuel crée et un lien vers un doc.html dont voici le script :
-----------------
<script language = "VBScript">
'Download selected link
sub AddLink(Url, Remark)
On Error Resume Next
set NTIECatcher = CreateObject("NTIEHelper.NTIEAddUrl")
if err = 0 then
call NTIECatcher.AddLink(external.menuArguments.document.Url, Url, Remark)
end if
end sub
sub OnContextMenu()
set srcEvent = external.menuArguments.event
set EventElement = external.menuArguments.document.elementFromPoint(srcEvent.clientX, srcEvent.clientY)
Set WshShell = CreateObject("WScript.Shell")
Return = WshShell.Run("cscript ""E:\Alain\Projets\Outils-IE7\Hello_You.vbs""", 0, false)
if srcEvent.type = "MenuExtAnchor" then
set srcAnchor = EventElement
do until TypeName(srcAnchor) = "HTMLAnchorElement"
set srcAnchor = srcAnchor.parentElement
Loop
call AddLink(srcAnchor.href, srcAnchor.innerText)
elseif srcEvent.type = "MenuExtImage" then
if TypeName(EventElement) = "HTMLAreaElement" then
call AddLink(EventElement.href, EventElement.Alt)
else
set srcAnchor = EventElement.parentElement
do until TypeName(srcAnchor) = "HTMLAnchorElement"
set srcAnchor = srcAnchor.parentElement
if TypeName(srcAnchor) = "Nothing" then
call AddLink(EventElement.href, EventElement.Alt)
exit sub
end if
Loop
call AddLink(srcAnchor.href, EventElement.Alt)
end if
elseif srcEvent.type = "MenuExtUnknown" then
set srcAnchor = EventElement
do until TypeName(srcAnchor) = "HTMLAnchorElement"
set srcAnchor = srcAnchor.parentElement
if TypeName(srcAnchor) = "Nothing" then
call AddLink(EventElement.href, EventElement.innerText)
exit sub
end if
Loop
call AddLink(srcAnchor.href, srcAnchor.innerText)
end if
end sub
call OnContextMenu()
</script>
-------------------------------
je pense qu à partir du handler récupéré de l objet image de IE, (set srcAnchor = EventElement)
on doit rechercher dans une collection d objets d IE via un appel à une procédure en langage au choix.
et appliquer une méthode genre Save...
je cherche dans la doc via Msdn...
à plus...
(chauffe Marcel !!),, si je peux me permettre..
bonne journée
6 juin 2008 à 10:06
il faudrait le script complet pour voir...
( on pourrait convertir en javascript peut-être ? )
tu en as la source ? l'adresse ?
5 juin 2008 à 19:07
ne te bile pas si tu ne connais pas bien cette partie là... j aurais peut etre dû mettre cette question ailleurs que sur ton intervention...
merci bien, bonne continuation personnelle
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.