AutoIt Français

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <IE.au3>

Global $Form1 = GUICreate("Chat programMax by Fish-Panai & Djrix", 642, 458, 269, 139)
Global $List1 = GUICtrlCreateList("", 8, 8, 473, 370)
Global $Input1 = GUICtrlCreateInput("", 8, 384, 473, 21)
Global $Label2 = GUICtrlCreateLabel("Membres connectés :", 488, 8, 106, 17)
Global $List2 = GUICtrlCreateList("", 488, 32, 145, 344)
Global $Button1 = GUICtrlCreateButton("Envoyer", 488, 384, 147, 25, $WS_GROUP)
Global $Button2 = GUICtrlCreateButton("About", 8, 416, 115, 33, $WS_GROUP)
Global $Button3 = GUICtrlCreateButton("Aller sur ProgramMax", 128, 416, 115, 33, $WS_GROUP)
Global $Button4 = GUICtrlCreateButton("Commandes", 248, 416, 123, 33, $WS_GROUP)
Global $Button5 = GUICtrlCreateButton("Se déconnecter", 376, 416, 107, 33, $WS_GROUP)
Global $Button6 = GUICtrlCreateButton("Changer le pseudo", 488, 416, 147, 33, $WS_GROUP)
GUISetState(@SW_HIDE)

Global $dll = DllOpen("user32.dll")
Global $serveur = "irc.epiknet.org"
Global $port = 6667 ;6667
Global $channel = "#ProgramMax"
Global $touche = "0D"
Global $compteur = 0
Global $guiName = "Chat ProgramMax by Fish-Panai"
$pseudo = InputBox ("Chat ProgramMax", "Choisisez un pseudo :")
GUISetState (@SW_SHOW)
Global $masock

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

While 1
    If WinActive($form1) Then $guiName = "Chat ProgramMax by Fish-Panai & Djrix"
    WinSetTitle($Form1, "", $guiName)
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $Button1
             TCPSend($masock, "JOIN " & $channel & @CRLF) ;JOIN #channel
            If GUICtrlRead($input1) = "/cls" then
                _GUICtrlListBox_ResetContent($list1)
                $compteur = 0
                GUICtrlSetData($input1, "")
            EndIf
            If GUICtrlRead($input1) <> "" then
                $compteur  = $compteur + 1
                If $compteur  >= 29 Then _GUICtrlListBox_DeleteString($List1,0)
                TCPSend($masock, "PRIVMSG " & $channel & " :" & GUICTrlRead($Input1) & @CRLF)
                _GUICtrlListBox_AddString($List1,"["&@HOUR&":"&@MIN&":"&@SEC&"] <" &$pseudo & "> " & GUICTRLRead($input1))
                GUiCtrlsEtData($Input1, "")
            EndIf

        Case $Button2
            MsgBox (0,"About","Ce programme de chat a été créé par xX-Fish-Panai-Xx"&@CRLF&"Et Djrix. Il est concu pour prograMmax.")

        Case $Button3
            _IECreate("http://www.programmax.xooit.fr")

        Case $Button4
            MsgBox (0,"Liste des commandes","/cls : Supprime tout les messages du chat.")

        Case $Button5
            Exit
        Case $Button6
            $pseudo = InputBox ("Chat ProgramMax", "Choisisez un pseudo :")
            TCPSend($masock, "NICK " & $pseudo & @CRLF)

        Case Else

            If _IsPressed ($touche,$dll) And GUICtrlRead($input1) <> "" then
                If GUICtrlRead($input1) = "/cls" then
                    _GUICtrlListBox_ResetContent($list1)
                    $compteur = 0
                    GUiCtrlsEtData($Input1, "")
                EndIf
                If _IsPressed($touche,$dll) And GUICtrlRead($input1) <> "" then
                    $compteur  = $compteur + 1
                    If $compteur  >= 29 Then _GUICtrlListBox_DeleteString($List1,0)
                    TCPSend($masock, "PRIVMSG " & $channel & " :" & GUICTrlRead($Input1) & @CRLF)
                    _GUICtrlListBox_AddString($List1,"["&@HOUR&":"&@MIN&":"&@SEC&"] <" &$pseudo & "> " & GUICTRLRead($input1))
                    GUiCtrlSetData($Input1, "")
                EndIf
            EndIf

    EndSwitch
    $data = TCPRecv($masock, 4000) ; on insere ce qu'on recoit dans $data
;~  If $data <> "" Then MsgBox(0, "", $data)
    If @error Then Exit ; si il y a une erreur, on ferme la boucle.
    If Not $data Then ContinueLoop ; sinon on continue à lire
    $datasplit = StringSplit($data, @CRLF, 1) ;on decompose dans un array le packet qu'on a recu pour differencier chaque ligne recu

    For $i = 1 To $datasplit[0] ;on forme une boucle pour étudier chacune des lignes recu

        $datasplit2 = StringSplit($datasplit[$i], " ") ;on decompose dans un array la ligne qu'on a recu pour differencier chaque mot de la ligne

        If $datasplit2[1] = "PING" Then TCPSend($masock, "PONG " & $datasplit2[2] & @CRLF) ;Respond to PING requests from the server
        If $datasplit2[0] < 3 Then ContinueLoop ; on verifie qu'il y a plus de 3 mot dans la ligne, si oui on continue (ca permet de verifier que la donnée recu est importante

        Switch $datasplit2[2] ;on fait un switch pour faire des différences si le deuxieme mot est :
            Case "PRIVMSG" ; privmsg (donc on recoit du texte)
                $qui = StringMid($datasplit2[1], 2, StringInStr($datasplit2[1], "!") - 2) ;recuperer le pseudo de celui qui a écrit
                $quoi = StringMid($datasplit[$i], StringInStr($datasplit[$i], ":", 0, 2) + 1)
                $ou = $datasplit2[3] ;et sur quel canal
                $compteur  = $compteur + 1
                For $j = 6 To $datasplit2[0]
                    _GUICTrlListBox_AddString($List2, $datasplit2[$j])
                Next
                If $compteur  >= 30 Then _GUICtrlListBox_DeleteString($List1,0)
                _GUICtrlListBox_AddString($List1,"["&@HOUR&":"&@MIN&":"&@SEC&"] <" & $qui & "> " & $quoi)
                If Not WinActive($Form1) Then
                    $guiName = "Nouveau Message !"
                    WinFlash($Form1)
                    Beep(480,100);
                    Beep(1568,100);
                    Beep(1568,100);
                EndIf

            Case "001" ; 001 (c'est à dire qu'on a fini de se connecter, on établie la connexion au channel
                TCPSend($masock, "JOIN " & $channel & @CRLF) ;JOIN #channel

            Case "353"
                $compteur  = $compteur + 1
                If $compteur  >= 30 Then _GUICtrlListBox_DeleteString($List1,0)
                For $j = 6 To $datasplit2[0]
                    _GUICTrlListBox_AddString($List2, $datasplit2[$j])
                Next
                If Not WinActive($Form1) Then
                    $guiName = "Nouveau Message !"
                    WinFlash($Form1)
                    Beep(480,100);
                    Beep(1568,100);
                    Beep(1568,100);
                EndIf

        EndSwitch
    Next
WEnd
DllClose($dll)