#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <IE.au3>

Opt("GUIOnEventMode", 1)

Dim $hCtrlObj

Dim $GuiChat	= GUICreate("Chat", 400, 400)
				  GUISetBkColor(0x83CAFF)
				  $hCtrlObj = _IECreateEmbedded()
				  $hCtrl = GUICtrlCreateObj($hCtrlObj, 5, 5, 300, 360)
$file			= FileOpen("test.html", 1)
				  _IENavigate($hCtrlObj, @scriptdir&"\test.html")
FileClose($file)
FileDelete("test.html")

$Input			= GUICtrlCreateInput("", 5, 370, 300, 20)
$ListeViewOnline= GUICtrlCreateListView("Nom", 310, 5, 85, 360)
$Envoi			= GUICtrlCreateButton("Envoyer", 310, 370, 85, 20)
GUICtrlSendMsg($ListeViewOnline, $LVM_SETCOLUMNWIDTH, 0, 81)
GUICtrlSetState($Envoi, $GUI_DEFBUTTON)
GUICtrlSetOnEvent($Envoi, "Envoyer")
GUISetOnEvent($GUI_EVENT_CLOSE, "quit")
GUISetState(@SW_SHOW, $GuiChat)
GUICtrlSetState($Input, $GUI_FOCUS)

_IEBodyWriteHTML($hCtrlObj, "<h1>")

While(True)
	Sleep(100)
WEnd

Func Envoyer()
	$Envoi = GUICtrlRead($Input)
	If(StringLen($Envoi) > 0) Then
		$Read = _IEBodyReadHTML($hCtrlObj) & "<br />"
		_IEBodyWriteHTML($hCtrlObj, $Read & $Envoi)
		GUICtrlSetData($Input, "")
		GUICtrlSetState($Input, $GUI_FOCUS)
	EndIf
EndFunc

Func quit()
	Exit
EndFunc