[] Interdire le chargement des images sur certains scripts

[snike]

Bonjour,

J'utilise le module IE et je voudrais, au lancement de mon script, avoir le choix de charger ou non les images du site que je vais ouvrir.

Piste ? Il existe l'option 'Afficher les images' dans IE, comment modifier cette option à partir d'une fonction Autoit ?

D'avance merci

[DJSIR]

Merci de lire les règles de présentation d'un message, puis d'éditer votre titre. Le message sera supprimé si vous ne le faites pas.

[sylvanie]

Effectivement merci de respecter la mise en forme des messages.

Pour revenir au sujet, je ne connais pas de moyens pour ne pas downloader les images. Cependant on peut passer par un objet IE intermédiare invisible, enlever les balises d'images via une expression régulière, et réécrire ce corps html modifié dans le premier objet IE visible :

► Afficher le texte

Code : Tout sélectionner

; *******************************************************
; Example 1 - Create a browser window and navigate to a website
; *******************************************************
;
#include <IE.au3>
$oIE = _IECreate ()

_Navigate_and_mask_picture($oIE,"www.autoitscript.com")

Func _Navigate_and_mask_picture(ByRef $objIE,$url)
    Local $html,$objIE2
    
    $objIE2 =_IECreate($url,0,0)
    
    If Not IsObj($objIE2) Then Return
    ConsoleWrite("ok")
    $html=_IEBodyReadHTML($objIE2)
    ConsoleWrite("fin"&$html)
    $html = StringRegExpReplace($html,"<img[^>]+>","")
    _IEBodyWriteHTML($objIE,$html)
    _IEQuit($objIE2)
    $objIE2 = 0
    ConsoleWrite("fin"&$html)
EndFunc

 

[sylvanie]

Mieux ! :
On change la valeur de la clé suivante
HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Display Inline Images
Yes -> No

avant la création de l'objet, et surtout on la remet à Yes en sortie de script (toutes les sorties, penser à opt("OnExitFunc","Ma_fonction_de_fin") )

► Afficher le texte

Code : Tout sélectionner

#include <IE.au3>
opt("OnExitFunc","My_Exit")

RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\","Display Inline Images","REG_SZ","No")

$oIE = _IECreate ("www.google.fr")


Func My_Exit()
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\","Display Inline Images","REG_SZ","Yes")
EndFunc