#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <Process.au3>
#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Chat", 714, 428, 192, 124)
Global $List1 = GUICtrlCreateList("", 2, 2, 505, 383)
Global $List2 = GUICtrlCreateList("", 512, 2, 105, 383)
Global $Input1 = GUICtrlCreateInput("", 2, 392, 505, 21)
Global $Button1 = GUICtrlCreateButton("Envoyer", 512, 392, 107, 21, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Aide", 624, 8, 81, 57, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Info", 624, 72, 81, 57, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Autre", 624, 136, 81, 57, $WS_GROUP)
$Pic1 = GUICtrlCreatePic("C:\Users\florian\Desktop\images.jpg", 624, 240, 81, 105, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$pseudo = InputBox("", "Quel pseudo voulez-vous avoir?")
$channel = InputBox("","Quel channel vouslez-vous rejoindre?")

Global $serveur = "Vidar.IRC.Worldnet.Net"
Global $port = 6667
Global $channel
Global $pseudo

Global $masock

ToolTip("Chat en cours d'éxécution.. Il est : "& @HOUR& " h" &@MIN,0,0)

TCPStartup()
$masock = TCPConnect(TCPNameToIP($serveur), $port)
sleep(5000)
TCPSend($masock, "NICK " & $pseudo & @CRLF)
TCPSend($masock, "USER " & $pseudo & " test test2 :OhMyGod " & @CRLF)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
		Case $Button2
			MsgBox(0,"","Les commandes sont : " )
			MsgBox(0,""," Ping : pour voir votre connection ( nécessite quelqu'un d'autre que vous sur le serveur ")
			MsgBox(0,"","  PRIVMSG <destinataire> :<message>       Exemple 1 sur un canal : PRIVMSG #test :test  Exemple 2 à une personne : PRIVMSG floriande26 :test")
        Case $Button3
			MsgBox(0,"","Ce chat a été crée par "&"floriande26"&" avec AutoIt")
		Case $Button4
			_RunDOS("start http://autoitscript.fr/forum/")
		Case $Button1
            TCPSend($masock, "PRIVMSG " & $channel & " :" & GUICTrlRead($Input1) & @CRLF)
            _GUICTrlListBox_AddString($List1, "<" & $pseudo & "> " & GUICTRLRead($input1))
            GUiCtrlsEtData($Input1, "")

	EndSwitch

    $data = TCPRecv($masock, 4000)

    If @error Then Exit
    If Not $data Then ContinueLoop
    $datasplit = StringSplit($data, @CRLF, 1) ;

    For $i = 1 To $datasplit[0]

        $datasplit2 = StringSplit($datasplit[$i], " ")

        If $datasplit2[1] = "PING" Then TCPSend($masock, "PONG " & $datasplit2[2] & @CRLF)
        If $datasplit2[0] < 3 Then ContinueLoop

        Switch $datasplit2[2]
            Case "PRIVMSG"
                $qui = StringMid($datasplit2[1], 2, StringInStr($datasplit2[1], "!") - 2)
                $quoi = StringMid($datasplit[$i], StringInStr($datasplit[$i], ":", 0, 2) + 1)
                $ou = $datasplit2[3]

                _GUICtrlListBox_AddString($List1, "<" & $qui & "> " & $quoi)

            Case "001"
                TCPSend($masock, "JOIN " & $channel & @CRLF)
            Case "353"
                For $j = 6 To $datasplit2[0]
                    _GUICTrlListBox_AddString($List2, $datasplit2[$j])
                Next


    EndSwitch
    Next
WEnd