#include <IE.au3>
Global $hCtrlObj

Func _GuiCtrlTexte_Create($x,$y,$width = -1 ,$height = -1)
	If Int($x) <> $x Or Int($y) <> $y Then Return 0	
	$hCtrlObj = _IECreateEmbedded()
	$hCtrl = GUICtrlCreateObj($hCtrlObj, $x, $y, $width, $height)
	_IENavigate ($hCtrlObj, "about:By Tim")
	Return $hCtrl
EndFunc	


Func _GuiCtrlTexte_Write($s_html)
	
	_IEBodyWriteHTML($hCtrlObj, $s_html)
	Return 1
EndFunc

Func _GuiCtrlTexte_Add($s_html)
	Local $Texte = _GuiCtrlTexte_Read()
	_IEBodyWriteHTML($hCtrlObj,$Texte & $s_html)
	Return 1
EndFunc

Func _GuiCtrlTexte_Read()
	Return _IEBodyReadHTML($hCtrlObj)
EndFunc