AJOUTER DES EXTENSIONS AU MENU CONTEXTUEL D'INTERNET EXPLORER

Commentaire de bultez le 05/06/2008 18:34:50

tu veux faire ça en VBScript ?
faudrais que je regarde mes docs,
parce que je pratique peu et pas
depuis longtemps.
tu devrais poser la question sur le forum,
MAIS sauver une image ( en vbscript ou en javascript )
nul besoin d'un extension à IE...
@+

Commentaire de Alain95350 le 05/06/2008 19:07:47

((( lol le but (par rapport à un simple ...enregistrer l image sous...) c est de rapatrier l adresse Url de l image en automatique dans une propriétés de l image (titre ou commentaire etc)

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

Commentaire de Alain95350 le 06/06/2008 11:14:37

bj (j ai eu du mal à te repondre j ai chargé IE 8 béta et ca fait des progrés mais ca ramouille encore pour le moment)

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