1 - dans la gui, clic gauche sur un smiley
2 - dans le message, clic droit + coller (et on a le smiley avec sa balise img !
)► Afficher le texte
Code : Tout sélectionner
#include <IE.au3>
#Include <Clipboard.au3>
$adresse = '<img src="http://www.autoitscript.com/forum/public/style_emoticons/autoit/'
$adresse2 = '<img src="http://www.autoitscript.fr/emoticons/'
$code = $adresse2 & 'smileJap.gif"> ' & $adresse & 'smile.gif"> ' & $adresse & 'happy.gif"> ' & $adresse & 'biggrin.gif"> ' & $adresse & 'sad.gif"> ' & $adresse & 'mellow.gif"> ' & $adresse & 'huh.gif"> ' & $adresse & 'ohmy.gif"> ' & $adresse & 'wink.gif"> ' & $adresse & 'tongue.gif"> ' & $adresse2 & 'blbl.gif"> ' & $adresse & 'laugh.gif"> ' & _
$adresse & 'cool.gif"> ' & $adresse & 'rolleyes.gif"> ' & $adresse & 'sleep.gif"> ' & $adresse & 'dry.gif"> ' & $adresse & 'wub.gif"> ' & $adresse & 'mad.gif"> ' & $adresse & 'sad.gif"> ' & $adresse & 'unsure.gif"> ' & $adresse & 'wacko.gif"> ' & $adresse & 'blink.gif"> ' & $adresse & 'whistle.gif"> ' & _
$adresse & 'think.gif"> ' & $adresse & 'huh2.gif"> ' & $adresse & 'shocked.gif"> ' & $adresse2 & 'chepa.gif"> ' & $adresse & 'naughty.gif"> ' & $adresse2 & 'non.gif"> ' & $adresse & 'thumbsdown.gif"> ' & $adresse & 'lmao.gif"> '
$code &= $adresse & 'evil.gif"> ' & $adresse & 'doh.gif"> ' & $adresse & 'blush.gif"> ' & $adresse & 'angry.gif"> ' & $adresse & 'closedeyes.gif"> ' & $adresse & 'excl.gif"> ' & $adresse & 'alien.gif"> ' & $adresse & 'crying.gif"> ' & $adresse & 'ermm.gif"> ' & _
$adresse & 'geek.gif"> ' & $adresse & 'innocent.gif"> ' & $adresse & 'kiss.gif"> ' & $adresse & 'nuke.gif"> ' & $adresse & 'pinch.gif"> ' & $adresse & 'shifty.gif"> ' & $adresse & 'sick.gif"> ' & $adresse & 'thumbsup.gif"> ' & $adresse2 & 'thumbsup.gif"> ' & $adresse & 'bye.gif"> ' & _
$adresse & 'censored.gif"> ' & $adresse2 & '2.gif"> ' & $adresse & 'graduated.gif"> ' & $adresse & 'guitar.gif"> ' & $adresse & 'idea.gif"> ' & $adresse & 'idiot.gif"> ' & $adresse & 'king.gif"> ' & $adresse & 'laser.gif"> '
$code &= $adresse2 & 'crybaby.gif"> ' & $adresse2 & 'icon_cry.gif"> ' & $adresse2 & 'sweatdrop.gif"> ' & $adresse2 & 'couto.gif"> ' & $adresse2 & 'hat.gif"> ' & $adresse2 & 'wavey.gif"> ' & $adresse2 & 'worthy.gif"> ' & $adresse2 & 'bocul.gif"> ' & $adresse2 & 'bonk.gif"> ' & $adresse & 'argue.gif"> ' & _
$adresse & 'oops.gif"> ' & $adresse2 & 'boulet.gif"> ' & $adresse2 & 'ban3.GIF"> ' & $adresse2 & 'confused.gif"> ' & $adresse2 & 'fatigue.gif"> ' & $adresse2 & 'icon_eek.gif"> ' & $adresse2 & 'poster_offtopic.gif"> ' & $adresse2 & 'sign12.gif"> ' & $adresse2 & 'smiles_82.gif"> ' & $adresse2 & 'topicglissant.gif">'
;====================================================
$list = @tempdir & "\smileys2_autoit.html"
$txt = FileOpen($list, 2)
FileWrite ($txt, $code)
$oIE = ObjCreate("Shell.Explorer.2")
_IEPropertySet($oIE, "theatermode", 1)
$hGUI = GUICreate ("Clic gauche sur un smiley = copier adresse + balise [" & "img]", 460, 320, -1, 50)
$GUIActiveX = GUICtrlCreateObj($oIE, 5, 10, 450, 300)
GUISetState()
$oIE.navigate("file:///" & $list)
_IELoadWait($oIE)
$oImgs = _IEImgGetCollection ($oIE)
For $oImg in $oImgs
$sImgId = _IEPropertyGet($oImg, "uniqueid")
ObjEvent($oImg, "_Evt_")
Next
While GUIGetMsg() <>-3
Sleep(10)
WEnd
FileClose($txt)
FileDelete($list)
;------------------------------------------------
Func _Evt_onClick()
Local $o_img = @COM_EventObj
_ClipBoard_SetData("[" & "img]" & $o_img.href & "[" & "/img]")
EndFunc
Histoire de ne pas me faire traiter de boulet par certains, je précise que ce script a pour but d'illustrer une utilisation intéressante de la propriété peu connue "uniqueid" avec _IEPropertyGet() et de ObjEvent (façon java) pour des objets IE
