AJOUTER DES EXTENSIONS AU MENU CONTEXTUEL D'INTERNET EXPLORER
Alain95350
Messages postés
16
Date d'inscription
vendredi 3 novembre 2000
Statut
Membre
Dernière intervention
5 juin 2008
-
5 juin 2008 à 17:45
Alain95350 Messages postés 16 Date d'inscription vendredi 3 novembre 2000 Statut Membre Dernière intervention 5 juin 2008 - 6 juin 2008 à 20:37
Alain95350 Messages postés 16 Date d'inscription vendredi 3 novembre 2000 Statut Membre Dernière intervention 5 juin 2008 - 6 juin 2008 à 20:37
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/37727-ajouter-des-extensions-au-menu-contextuel-d-internet-explorer
https://codes-sources.commentcamarche.net/source/37727-ajouter-des-extensions-au-menu-contextuel-d-internet-explorer
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
5 juin 2008 à 18:50
<script language = "VBScript">
set srcEvent = external.menuArguments.event
set EventElement = external.menuArguments.document.elementFromPoint(srcEvent.clientX, srcEvent.clientY)
set srcAnchor = EventElement
a=external.menuArguments.event.srcElement.href 'url de l'image
- - -
(je ne suis même pas sûr du langage du script!... apparemment MSHTML ... lool)
mais je peux utiliser un autre langage si besoin
merci
5 juin 2008 à 18:34
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...
@+
5 juin 2008 à 17:45
je voudrais faire un menu contextuel IE(7) qui sauvegarde une image sur mon disque dur.
j ai fait le lien menu - .html et je sais récupérer
le srcEvent (= external.menuArguments.event),
le srcEvent.type,
et le srcAnchor (= EventElement) ... avec l url de l image cliquée.
comment écrit-on en VBscript ou à partir de lui (?) pour enregistrer l image dans un repertoire c:\qqc ?
cordialement