AutoIt Français

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">&nbsp;&nbsp;' & $adresse & 'smile.gif">&nbsp;&nbsp;' & $adresse & 'happy.gif">&nbsp;&nbsp;' & $adresse & 'biggrin.gif">&nbsp;&nbsp;' & $adresse & 'sad.gif">&nbsp;&nbsp;' & $adresse & 'mellow.gif">&nbsp;&nbsp;' & $adresse & 'huh.gif">&nbsp;&nbsp;' & $adresse & 'ohmy.gif">&nbsp;&nbsp;' & $adresse & 'wink.gif">&nbsp;&nbsp;' & $adresse & 'tongue.gif">&nbsp;&nbsp;' & $adresse2 & 'blbl.gif">&nbsp;&nbsp;' & $adresse & 'laugh.gif">&nbsp;&nbsp;' & _ 
$adresse & 'cool.gif">&nbsp;&nbsp;' & $adresse & 'rolleyes.gif">&nbsp;&nbsp;' & $adresse & 'sleep.gif">&nbsp;&nbsp;' & $adresse & 'dry.gif">&nbsp;&nbsp;' & $adresse & 'wub.gif">&nbsp;&nbsp;' & $adresse & 'mad.gif">&nbsp;&nbsp;' & $adresse & 'sad.gif">&nbsp;&nbsp;' & $adresse & 'unsure.gif">&nbsp;&nbsp;' & $adresse & 'wacko.gif">&nbsp;&nbsp;' & $adresse & 'blink.gif">&nbsp;&nbsp;' & $adresse & 'whistle.gif">&nbsp;&nbsp;' & _ 
$adresse & 'think.gif">&nbsp;&nbsp;' & $adresse & 'huh2.gif">&nbsp;&nbsp;' & $adresse & 'shocked.gif">&nbsp;&nbsp;' & $adresse2 & 'chepa.gif">&nbsp;&nbsp;' & $adresse & 'naughty.gif">&nbsp;&nbsp;' & $adresse2 & 'non.gif">&nbsp;&nbsp;' & $adresse & 'thumbsdown.gif">&nbsp;&nbsp;' & $adresse & 'lmao.gif">&nbsp;&nbsp;' 

$code &= $adresse & 'evil.gif">&nbsp;&nbsp;' & $adresse & 'doh.gif">&nbsp;&nbsp;' & $adresse & 'blush.gif">&nbsp;&nbsp;' & $adresse & 'angry.gif">&nbsp;&nbsp;' & $adresse & 'closedeyes.gif">&nbsp;&nbsp;' & $adresse & 'excl.gif">&nbsp;&nbsp;' & $adresse & 'alien.gif">&nbsp;&nbsp;' & $adresse & 'crying.gif">&nbsp;&nbsp;' & $adresse & 'ermm.gif">&nbsp;&nbsp;' & _ 
$adresse & 'geek.gif">&nbsp;&nbsp;' & $adresse & 'innocent.gif">&nbsp;&nbsp;' & $adresse & 'kiss.gif">&nbsp;&nbsp;' & $adresse & 'nuke.gif">&nbsp;&nbsp;' & $adresse & 'pinch.gif">&nbsp;&nbsp;' & $adresse & 'shifty.gif">&nbsp;&nbsp;' & $adresse & 'sick.gif">&nbsp;&nbsp;' & $adresse & 'thumbsup.gif">&nbsp;&nbsp;' & $adresse2 & 'thumbsup.gif">&nbsp;&nbsp;' & $adresse & 'bye.gif">&nbsp;&nbsp;' & _ 
$adresse & 'censored.gif">&nbsp;&nbsp;' & $adresse2 & '2.gif">&nbsp;&nbsp;' & $adresse & 'graduated.gif">&nbsp;&nbsp;' & $adresse & 'guitar.gif">&nbsp;&nbsp;' & $adresse & 'idea.gif">&nbsp;&nbsp;' & $adresse & 'idiot.gif">&nbsp;&nbsp;' & $adresse & 'king.gif">&nbsp;&nbsp;' & $adresse & 'laser.gif">&nbsp;&nbsp;' 

$code &= $adresse2 & 'crybaby.gif">&nbsp;&nbsp;' & $adresse2 & 'icon_cry.gif">&nbsp;&nbsp;' & $adresse2 & 'sweatdrop.gif">&nbsp;&nbsp;' & $adresse2 & 'couto.gif">&nbsp;&nbsp;' & $adresse2 & 'hat.gif">&nbsp;&nbsp;' & $adresse2 & 'wavey.gif">&nbsp;&nbsp;' & $adresse2 & 'worthy.gif">&nbsp;&nbsp;' & $adresse2 & 'bocul.gif">&nbsp;&nbsp;' & $adresse2 & 'bonk.gif">&nbsp;&nbsp;' & $adresse & 'argue.gif">&nbsp;&nbsp;' & _ 
$adresse & 'oops.gif">&nbsp;&nbsp;' & $adresse2 & 'boulet.gif">&nbsp;&nbsp;' & $adresse2 & 'ban3.GIF">&nbsp;&nbsp;' & $adresse2 & 'confused.gif">&nbsp;&nbsp;' & $adresse2 & 'fatigue.gif">&nbsp;&nbsp;' & $adresse2 & 'icon_eek.gif">&nbsp;&nbsp;' & $adresse2 & 'poster_offtopic.gif">&nbsp;&nbsp;' & $adresse2 & 'sign12.gif">&nbsp;&nbsp;' & $adresse2 & 'smiles_82.gif">&nbsp;&nbsp;' & $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