Chat program

Kreatorul · June 2, 2007

I wanted to learn something about the TCP funcs and i found and old example for client and server posted by Larry. Since I could never do that by myself I used it and made my own chat program with client and server included in 1 file, no need for 2 files...only one...I made it a little customizeable with text color, font, nickname change and show in the main chat window when someones changes their nickname...i'm working on it to add an user list and other things...if it doesen't work try changing @ipaddress2 with @ipaddress1...in my case i have 2 use my second ip...anyway here is the script...

#include <GUIConstants.au3>
#include <File.au3>
#include <Misc.au3>
#Include <GuiList.au3>

Dim $ConnectedSocket = -1
Global $CSock[1]
Dim $MainSocket

$CSock[0] = 0

;;;client
$socket = -1

$nick=FileReadLine(@scriptdir & "/settings.ini", 1)

If FileExists(@scriptdir & "/settings.ini") Then 
    Sleep(10)
Else
    _FileCreate(@scriptdir & "/settings.ini")
EndIf
    
    If FileReadLine(@scriptdir & "/settings.ini", 1) = "" Then $nick = InputBox("K Chat Program","Enter a nickname to use when chatting")

While 1
If $nick = "" Then 
    $nick=InputBox("K Chat Program", "Please enter a nickname")
    Else
    _FileWriteToLine(@scriptdir & "/settings.ini", 1, $nick, 1)
    ExitLoop
    EndIf
WEnd
;;;;;;;;;;;;;;;;;;;;
If FileReadLine(@scriptdir & "/settings.ini", 2) = "" Then
    _FileWriteToLine(@scriptdir & "/settings.ini", 2, "000000", 1)
    _FileWriteToLine(@scriptdir & "/settings.ini", 3, "Arial", 1)
    _FileWriteToLine(@scriptdir & "/settings.ini", 4, "9", 1)
    _FileWriteToLine(@scriptdir & "/settings.ini", 5, "400", 1)
    _FileWriteToLine(@scriptdir & "/settings.ini", 6, "1", 1)
EndIf

$f=FileReadLine(@scriptdir & "/settings.ini", 2)
$n=FileReadLine(@scriptdir & "/settings.ini", 3)
$s=FileReadLine(@scriptdir & "/settings.ini", 4)
$w=FileReadLine(@scriptdir & "/settings.ini", 5)
$a=FileReadLine(@scriptdir & "/settings.ini", 6)
;;;;;;;;;;;;;;;;;

$port = "3333"
$ipaddress = InputBox("IpAdress", "Enter the ip to connect to, leave blank if you are the server!")
If $ipaddress = "" Then
$ipaddress = @ipaddress2


$MainSocket = _TCPCreateMainListeningSocket($ipaddress, $port, 100)
If @ERROR Or $MainSocket = -1 Then Exit
EndIf

TCPStartup()

;gui
$gui = GUICreate($nick & "'s Chat",580,250)
$menu=GuiCtrlCreateMenu("Program")
$set=GuiCtrlCreateMenuItem("Settings", $menu)
$menu1=GuiCtrlCreateMenuItem("Exit", $menu)
$menu3=GuiCtrlCreateMenu("Help")
$menu4=GuiCtrlCreateMenuItem("About", $menu3)
$userlist=GuiCtrlCreateLabel("UserList:", 485, 5)
$bsend = GUICtrlCreateButton("Send",380,145,60,80)
$list=GuiCtrlCreateList($nick, 445, 22, 125, 213)
$edit = GUICtrlCreateEdit("",5,5,435,130,BitOR($ES_AUTOVSCROLL,$WS_VSCROLL,$ES_READONLY))
GUICtrlSetFont(-1,$s,$w,$a,$n)
GuiCtrlSetColor(-1, $f)
GuiCtrlSetBkColor(-1, 0xffffff)
$input = GUICtrlCreateEdit("",5,145,375,80,BitOR($WS_VSCROLL,$ES_AUTOVSCROLL,$ES_MULTILINE))
GUICtrlSetFont($input,$s,$w,$a,$n)
GuiCtrlSetColor($input, $f)
GUISetState()
GUICtrlSetState($input,$GUI_FOCUS)


$socket = TCPConnect(TcpNameToIp($ipaddress), $port)

If $socket < 0 Then 
    MsgBox(0,"Error","Could not connect to server")
    Exit
Else
    TCPSend($socket, "Server: " & $nick & " is connected.")
    EndIf

    

;;;;;;;;
While 1
    $nick=FileReadLine(@scriptdir & "/settings.ini", 1)
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then Exit
    If $msg = $menu1 Then Exit
    If $msg = $menu4 Then MsgBox(0, "About", "Simple Chat Program. Coding by Kreatorul, 2007. Contact: bal_dabac@yahoo.com")
    If $msg = $set Then
    $gui2=GuiCreate("Settings", 200, 100)
    $label=GuiCtrlCreateLabel("Nickname:", 5, 8)
    $ninput=GuiCtrlCreateInput("", 65, 5, 130)
    $label1=GuiCtrlCreateLabel("Chat Font:", 5, 41)
    $color=GuiCtrlCreateButton("Select", 65, 35, 130)
    $sett=GuiCtrlCreateButton("Ok", 65, 70, 70)
    GuiSetState()
    
    While 1
        $msgg=GuiGetMsg()
        
        If $msgg=$Gui_Event_Close Then
            GuIDelete($gui2)
            ExitLoop
        EndIf
        If $msgg=$color then 
        $font=_ChooseFont()
        If (@error) Then
        GuiCtrlSetColor($edit, $f)
        GuiCtrlSetColor($input, $f)
        GUICtrlSetFont($edit, $s, $w, $a, $n)
        GUICtrlSetFont($input, $s, $w, $a, $n)
        Else
        GuiCtrlSetColor($edit, $font[7])
        GuiCtrlSetColor($input, $font[7])
        GUICtrlSetFont($edit, $font[3], $font[4], $font[1], $font[2]) 
        GUICtrlSetFont($input, $font[3], $font[4], $font[1], $font[2]) 
        $s=$font[3]
        $n=$font[2]
        $w=$font[4]
        $a=$font[1]
        $f=$font[7]
        _FileWriteToLine(@scriptdir & "/settings.ini", 2, $font[7], 1)
        _FileWriteToLine(@scriptdir & "/settings.ini", 3, $font[2], 1)
        _FileWriteToLine(@scriptdir & "/settings.ini", 4, $font[3], 1)
        _FileWriteToLine(@scriptdir & "/settings.ini", 5, $font[4], 1)
        _FileWriteToLine(@scriptdir & "/settings.ini", 6, $font[1], 1)
    EndIf
EndIf
        If $msgg=$sett Then
            If GuiCtrlRead($ninput) <> "" Then
                _FileWriteToLine(@scriptdir & "/settings.ini", 1, GuiCtrlReaD($ninput), 1)
        If $nick <> GuiCtrlReaD($ninput) Then
        TCPSend($socket, "Server: " & $nick & " changed name to " & GuiCtrlReaD($ninput) & ".")
        GUICtrlSetData($input,"")
    EndIf
    EndIf
        GuiDelete($gui2)
        ExitLoop
        GUICtrlSetState($ninput,$GUI_FOCUS)
        EndIf
        Wend
        
        EndIf
    
    $ConnectedSocket = TCPAccept($MainSocket)
    If @ERROR = 0 And $ConnectedSocket > -1 Then
        AddSocket($ConnectedSocket)
    EndIf

    If $CSock[0] > 0 Then
        $br = ""
        For $n = 1 to $CSock[0]
            $ret2 = TCPRecv($CSock[$n], 512)
            If @error <> 0 Then
                $br = $br & $n & @LF
            ElseIf $ret2 <> "" Then
                Broadcast($ret2)
            EndIf
        Next
        If $br <> "" Then
            $br = StringSplit(StringTrimRight($br,1),@LF)
            For $n = 1 to $br[0]
                RemoveSocket(Int($br[$n]))
            Next
        EndIf
    EndIf
    

   If $msg = $bsend Then
    $ret = TCPSend($socket, $nick & ": " & GUICtrlRead($input))
    If @ERROR Or $ret < 0 Then ExitLoop
    GUICtrlSetData($input,"")
    GUICtrlSetState($input,$GUI_FOCUS)
EndIf

HotKeySet("{ENTER}", "Bsend")
   
   $ret = TCPRecv($socket, 512)
   If @ERROR Or $ret < 0 Then ExitLoop
   If StringLen($ret) > 0 Then
        If StringInStr($ret, "is connected.") Then
            If StringTrimLeft(StringTrimRight($ret, 14), 10) <> $nick Then
           _GuiCtrlListAddItem($list, StringTrimLeft(StringTrimRight($ret, 14), 10))
       EndIf
   EndIf
   If StringInStr($ret, "is disconnected.") Then _GUICtrlListDeleteItem($list, _GuiCtrlListFindString($list, StringTrimLeft(StringTrimRight($ret, 17), 10), 1))
        GUICtrlSetData($edit, GUICtrlRead($edit) & @CRLF & $ret)
        GUICtrlSendMsg($edit, $EM_SCROLLCARET, 0, 0)
        EndIf
    
    Sleep(1)
WEnd
;loop end

Func RemoveSocket($instance)
    Dim $aTemp[$CSock[0]]
    
    $aTemp[0] = $CSock[0] - 1
    $RS_i = 1
    If $aTemp[0] > 0 Then
        For $RS_n = 1 to $CSock[0]
            If $RS_n <> $instance Then
                $aTemp[$RS_i] = $CSock[$RS_n]
                $RS_i = $RS_i + 1
            EndIf
        Next
    EndIf
    $CSock = $aTemp
EndFunc

Func Broadcast($szData)
    For $B_n = 1 to $CSock[0]
        TCPSend($CSock[$B_n],$CSock[0] & "-" & $szData)
    Next
EndFunc

Func OnAutoItExit()
    TCPSend($socket, "Server: " & $nick & " is disconnected.")
    If @ERROR Or $ret < 0 Then Exit
    GUICtrlSetData($input,"")
    GUICtrlSetState($input,$GUI_FOCUS)
    For $n = 1 to $CSock[0]
        TCPCloseSocket($CSock[$n])
    Next
   TCPCloseSocket($MainSocket )
   TCPShutDown()
    If $socket >= 0 Then TCPCloseSocket($socket)
EndFunc

Func AddSocket($AS_sock)
    $AS_n = $CSock[0] + 1
    ReDim $CSock[$AS_n + 1]
    $CSock[0] = $AS_n
    $CSock[$AS_n] = $AS_sock
EndFunc

Func _TCPCreateMainListeningSocket($szIP, $szPort, $szNumConnect)
    TCPStartup()
    $TCMLS_MainSocket = TCPListen($szIP, $szPORT, $szNumConnect)
    If @ERROR Or $TCMLS_MainSocket = -1 Then Return -1
    Return $TCMLS_MainSocket
EndFunc

Func Bsend()
    $ret = TCPSend($socket, $nick & ": " & GUICtrlRead($input))
    GUICtrlSetData($input,"")
    GUICtrlSetState($input,$GUI_FOCUS)
    EndFunc

Edited June 3, 2007 by Kreatorul

Kreatorul · June 3, 2007

Updated: It now tells when someone connects/disconnects...i added a "semifunctional" userlist because the server sees all the users in the userlist, but the others only see the people connected after them I need a way to send the userlist from the server and update the clients...here is the source if anyone is willing to help...what I tried didn't work

server.au3

Edited June 3, 2007 by Kreatorul

Shides · June 3, 2007

GOoD

Keiji · June 8, 2007

hmm not sure i also noticed, because of assigning {enter} as the hotkey whenever you press 'enter' it sends a blank message even if the chat program is not the active window

Keiji · June 8, 2007

hmm not sure i also noticed, because of assigning {enter} as the hotkey whenever you press 'enter' it sends a blank message even if the chat program is not the active window

ok think i fixed it, may not be best way and havnt checked memory usage and things but give me a break its 4 am^^

just change Func Bsend() to look as below

NOTE: the 'Regret's Chat' thing was the window name for the chat server i was running, urll have to change it as u need

Func Bsend()
    If WinActive("Regret's Chat") = 0 then 
        HotKeySet("{ENTER}")
        Send("{ENTER}")
        HotKeySet("{ENTER}", "Bsend")
        endif
    If WinActive("Regret's Chat") =1 and GUICtrlRead($input)<> "" then $ret = TCPSend($socket, $nick & ": " & GUICtrlRead($input))
    GUICtrlSetData($input,"")
    GUICtrlSetState($input,$GUI_FOCUS)
    EndFunc

this means enter will function normally for every other program when the script is running and when u press return on the program itll only send a message if something has been typed

Now going to look at a beep funtion on message recieved and updating the userlist

Edited June 8, 2007 by Keiji

Kreatorul · June 8, 2007

10x sorry about that...any ideas 4 the userlist? anyone?

ReaImDown · June 8, 2007

10x sorry about that...any ideas 4 the userlist? anyone?

whats ur ip, so we can connect to you?

Kreatorul · June 8, 2007

i have an dinamic ip adress...anyway why to connect to me?

xDx · June 8, 2007

Just calling to your earlier function

;gui
$gui = GUICreate($nick & "'s Chat",580,250)
$menu=GuiCtrlCreateMenu("Program")
$set=GuiCtrlCreateMenuItem("Settings", $menu)
$menu1=GuiCtrlCreateMenuItem("Exit", $menu)
$menu3=GuiCtrlCreateMenu("Help")
$menu4=GuiCtrlCreateMenuItem("About", $menu3)
$userlist=GuiCtrlCreateLabel("UserList:", 485, 5)
$bsend = GUICtrlCreateButton("Send",380,145,60,80)
$list=GuiCtrlCreateList($nick, 445, 22, 125, 213)
$edit = GUICtrlCreateEdit("",5,5,435,130,BitOR($ES_AUTOVSCROLL,$WS_VSCROLL,$ES_READONLY))
GUICtrlSetFont(-1,$s,$w,$a,$n)
GuiCtrlSetColor(-1, $f)
GuiCtrlSetBkColor(-1, 0xffffff)
$input = GUICtrlCreateEdit("",5,145,375,80,BitOR($WS_VSCROLL,$ES_AUTOVSCROLL,$ES_MULTILINE))
GUICtrlSetFont($input,$s,$w,$a,$n)
GuiCtrlSetColor($input, $f)
GUISetState()
GUICtrlSetState($input,$GUI_FOCUS)

$gui = GUICreate($nick & "'s Chat",580,250)

Looking over your earlier post, you need to make a correction to your script.

Func Bsend()
    If WinActive("Regret's Chat") = 0 then 
        HotKeySet("{ENTER}")
        Send("{ENTER}")
        HotKeySet("{ENTER}", "Bsend")
        endif
    If WinActive("Regret's Chat") =1 and GUICtrlRead($input)<> "" then $ret = TCPSend($socket, $nick & ": " & GUICtrlRead($input))
    GUICtrlSetData($input,"")
    GUICtrlSetState($input,$GUI_FOCUS)
    EndFunc

Refering to the code

If WinActive("Regret's Chat") = 0 then

Wouldn't it be

If WinActive($nick & "'s Chat") = 0 then

I believe that should work, not sure. Might want to check that but just making sure i posted it if any one couldn't figure out why your updated code wasnt working.

themax90 · June 9, 2007

For some ideas check my posts.

Thanks

-Auto

Dale2507 · June 15, 2007

I also tried to create a program like this but with a separate server and client the only problem i found was that when more than 1 person tries to connect to the server then when a message is sent "The server could not be found".

I was wondering if this would be the same if you used UDP instead of TCP.

Also the one I was making had a user account system. Maybe you could incorporate that somehow.

Good luck

Mail me if you need help :rolleyes:

i542 · June 15, 2007

I wanted to learn something about the TCP funcs and i found and old example for client and server posted by Larry. Since I could never do that by myself I used it and made my own chat program with client and server included in 1 file, no need for 2 files...only one...I made it a little customizeable with text color, font, nickname change and show in the main chat window when someones changes their nickname...i'm working on it to add an user list and other things...if it doesen't work try changing @ipaddress2 with @ipaddress1...in my case i have 2 use my second ip...anyway here is the script...
(...)

dude you rock I gave 5 stars on the topic

Dale2507 · June 15, 2007

I've give the UDP stuff a try an it'll connect but won't send messages

Take a look if you want:

CODE

#include <GUIConstants.au3>

#include <File.au3>

#include <Misc.au3>

#Include <GuiList.au3>

Dim $ConnectedSocket = -1

Global $CSock[1]

Dim $MainSocket

$CSock[0] = 0

;;;client

$socket = -1

$nick=FileReadLine(@scriptdir & "/settings.ini", 1)

If FileExists(@scriptdir & "/settings.ini") Then

Sleep(10)

Else

_FileCreate(@scriptdir & "/settings.ini")

EndIf

If FileReadLine(@scriptdir & "/settings.ini", 1) = "" Then $nick = InputBox("K Chat Program","Enter a nickname to use when chatting")

While 1

If $nick = "" Then

$nick=InputBox("K Chat Program", "Please enter a nickname")

Else

_FileWriteToLine(@scriptdir & "/settings.ini", 1, $nick, 1)

ExitLoop

EndIf

WEnd

;;;;;;;;;;;;;;;;;;;;

If FileReadLine(@scriptdir & "/settings.ini", 2) = "" Then

_FileWriteToLine(@scriptdir & "/settings.ini", 2, "000000", 1)

_FileWriteToLine(@scriptdir & "/settings.ini", 3, "Arial", 1)

_FileWriteToLine(@scriptdir & "/settings.ini", 4, "9", 1)

_FileWriteToLine(@scriptdir & "/settings.ini", 5, "400", 1)

_FileWriteToLine(@scriptdir & "/settings.ini", 6, "1", 1)

EndIf

$f=FileReadLine(@scriptdir & "/settings.ini", 2)

$n=FileReadLine(@scriptdir & "/settings.ini", 3)

$s=FileReadLine(@scriptdir & "/settings.ini", 4)

$w=FileReadLine(@scriptdir & "/settings.ini", 5)

$a=FileReadLine(@scriptdir & "/settings.ini", 6)

;;;;;;;;;;;;;;;;;

$port = "3333"

$ipaddress = InputBox("IpAdress", "Enter the ip to connect to, leave blank if you are the server!")

If $ipaddress = "" Then

$ipaddress = @ipaddress1

$MainSocket = _UDPCreateMainListeningSocket($ipaddress, $port)

If @ERROR Or $MainSocket = -1 Then Exit

EndIf

UDPStartup()

;gui

$gui = GUICreate($nick & "'s Chat",580,250)

$menu=GuiCtrlCreateMenu("Program")

$set=GuiCtrlCreateMenuItem("Settings", $menu)

$menu1=GuiCtrlCreateMenuItem("Exit", $menu)

$menu3=GuiCtrlCreateMenu("Help")

$menu4=GuiCtrlCreateMenuItem("About", $menu3)

$userlist=GuiCtrlCreateLabel("UserList:", 485, 5)

$bsend = GUICtrlCreateButton("Send",380,145,60,80)

$list=GuiCtrlCreateList($nick, 445, 22, 125, 213)

$edit = GUICtrlCreateEdit("",5,5,435,130,BitOR($ES_AUTOVSCROLL,$WS_VSCROLL,$ES_READONLY))

GUICtrlSetFont(-1,$s,$w,$a,$n)

GuiCtrlSetColor(-1, $f)

GuiCtrlSetBkColor(-1, 0xffffff)

$input = GUICtrlCreateEdit("",5,145,375,80,BitOR($WS_VSCROLL,$ES_AUTOVSCROLL,$ES_MULTILINE))

GUICtrlSetFont($input,$s,$w,$a,$n)

GuiCtrlSetColor($input, $f)

GUISetState()

GUICtrlSetState($input,$GUI_FOCUS)

$socket = UDPOpen($ipaddress, $port)

If $socket < 0 Then

MsgBox(0,"Error","Could not connect to server")

Exit

Else

UDPSend($socket, "Server: " & $nick & " is connected.")

EndIf

;;;;;;;;

While 1

$nick=FileReadLine(@scriptdir & "/settings.ini", 1)

$msg = GUIGetMsg()

If $msg = $GUI_EVENT_CLOSE Then Exit

If $msg = $menu1 Then Exit

If $msg = $menu4 Then MsgBox(0, "About", "Simple Chat Program. Coding by Kreatorul, 2007. Contact: bal_dabac@yahoo.com")

If $msg = $set Then

$gui2=GuiCreate("Settings", 200, 100)

$label=GuiCtrlCreateLabel("Nickname:", 5, 8)

$ninput=GuiCtrlCreateInput("", 65, 5, 130)

$label1=GuiCtrlCreateLabel("Chat Font:", 5, 41)

$color=GuiCtrlCreateButton("Select", 65, 35, 130)

$sett=GuiCtrlCreateButton("Ok", 65, 70, 70)

GuiSetState()

While 1

$msgg=GuiGetMsg()

If $msgg=$Gui_Event_Close Then

GuIDelete($gui2)

ExitLoop

EndIf

If $msgg=$color then

$font=_ChooseFont()

If (@error) Then

GuiCtrlSetColor($edit, $f)

GuiCtrlSetColor($input, $f)

GUICtrlSetFont($edit, $s, $w, $a, $n)

GUICtrlSetFont($input, $s, $w, $a, $n)

Else

GuiCtrlSetColor($edit, $font[7])

GuiCtrlSetColor($input, $font[7])

GUICtrlSetFont($edit, $font[3], $font[4], $font[1], $font[2])

GUICtrlSetFont($input, $font[3], $font[4], $font[1], $font[2])

$s=$font[3]

$n=$font[2]

$w=$font[4]

$a=$font[1]

$f=$font[7]

_FileWriteToLine(@scriptdir & "/settings.ini", 2, $font[7], 1)

_FileWriteToLine(@scriptdir & "/settings.ini", 3, $font[2], 1)

_FileWriteToLine(@scriptdir & "/settings.ini", 4, $font[3], 1)

_FileWriteToLine(@scriptdir & "/settings.ini", 5, $font[4], 1)

_FileWriteToLine(@scriptdir & "/settings.ini", 6, $font[1], 1)

EndIf

If $msgg=$sett Then

If GuiCtrlRead($ninput) <> "" Then

_FileWriteToLine(@scriptdir & "/settings.ini", 1, GuiCtrlReaD($ninput), 1)

If $nick <> GuiCtrlReaD($ninput) Then

UDPSend($socket, "Server: " & $nick & " changed name to " & GuiCtrlReaD($ninput) & ".")

GUICtrlSetData($input,"")

EndIf

GuiDelete($gui2)

ExitLoop

GUICtrlSetState($ninput,$GUI_FOCUS)

EndIf

Wend

EndIf

If $CSock[0] > 0 Then

$br = ""

For $n = 1 to $CSock[0]

$ret2 = UDPRecv($CSock[$n], 512)

If @error <> 0 Then

$br = $br & $n & @LF

ElseIf $ret2 <> "" Then

Broadcast($ret2)

EndIf

$br = StringSplit(StringTrimRight($br,1),@LF)

For $n = 1 to $br[0]

RemoveSocket(Int($br[$n]))

EndIf

If $msg = $bsend Then

$ret = UDPSend($socket, $nick & ": " & GUICtrlRead($input))

If @ERROR Or $ret < 0 Then ExitLoop

GUICtrlSetData($input,"")

GUICtrlSetState($input,$GUI_FOCUS)

EndIf

HotKeySet("{ENTER}", "Bsend")

$ret = UDPRecv($socket, 512)

If @ERROR Or $ret < 0 Then ExitLoop

If StringLen($ret) > 0 Then

If StringInStr($ret, "is connected.") Then

If StringTrimLeft(StringTrimRight($ret, 14), 10) <> $nick Then

_GuiCtrlListAddItem($list, StringTrimLeft(StringTrimRight($ret, 14), 10))

EndIf

If StringInStr($ret, "is disconnected.") Then _GUICtrlListDeleteItem($list, _GuiCtrlListFindString($list, StringTrimLeft(StringTrimRight($ret, 17), 10), 1))

GUICtrlSetData($edit, GUICtrlRead($edit) & @CRLF & $ret)

GUICtrlSendMsg($edit, $EM_SCROLLCARET, 0, 0)

EndIf

Sleep(1)

WEnd

;loop end

Func RemoveSocket($instance)

Dim $aTemp[$CSock[0]]

$aTemp[0] = $CSock[0] - 1

$RS_i = 1

If $aTemp[0] > 0 Then

For $RS_n = 1 to $CSock[0]

If $RS_n <> $instance Then

$aTemp[$RS_i] = $CSock[$RS_n]

$RS_i = $RS_i + 1

EndIf

$CSock = $aTemp

EndFunc

Func Broadcast($szData)

For $B_n = 1 to $CSock[0]

UDPSend($CSock[$B_n],$CSock[0] & "-" & $szData)

Func OnAutoItExit()

UDPSend($socket, "Server: " & $nick & " is disconnected.")

If @ERROR Or $ret < 0 Then Exit

GUICtrlSetData($input,"")

GUICtrlSetState($input,$GUI_FOCUS)

For $n = 1 to $CSock[0]

UDPCloseSocket($CSock[$n])

UDPShutDown()

If $socket >= 0 Then UDPCloseSocket($socket)

EndFunc

Func AddSocket($AS_sock)

$AS_n = $CSock[0] + 1

ReDim $CSock[$AS_n + 1]

$CSock[0] = $AS_n

$CSock[$AS_n] = $AS_sock

EndFunc

Func _UDPCreateMainListeningSocket($szIP, $szPort)

UDPStartup()

$TCMLS_MainSocket = UDPBind($szIP, $szPORT)

If @ERROR Or $TCMLS_MainSocket = -1 Then Return -1

Return $TCMLS_MainSocket

EndFunc

Func Bsend()

If WinActive("Regret's Chat") = 0 then

HotKeySet("{ENTER}")

Send("{ENTER}")

HotKeySet("{ENTER}", "Bsend")

endif

If WinActive("Regret's Chat") =1 and GUICtrlRead($input)<> "" then $ret = UDPSend($socket, $nick & ": " & GUICtrlRead($input))

GUICtrlSetData($input,"")

GUICtrlSetState($input,$GUI_FOCUS)

EndFunc

i542 · June 15, 2007

I've give the UDP stuff a try an it'll connect but won't send messages
Take a look if you want:
(...)

don't bother, just post in General Help and Support, you are still newbie so everybody will help you... enjoy in newbie title... as I never did :rolleyes:

Dale2507 · June 15, 2007

I've been usin autoit a lot actually an i'm makin programs for local youth club

Most people wouldn't really call me a newbie

Edited June 20, 2007 by Gmail

i542 · June 15, 2007

sorry ment wouldn't

thats why the Edit button exists :rolleyes:

Dale2507 · June 15, 2007

anyway i've sorted the UDP

now multiple clients can connect to and message a server but the server can only message 1

CODE

#include <GUIConstants.au3>

#include <File.au3>

#include <Misc.au3>

#Include <GuiList.au3>

Dim $ConnectedSocket = -1

Global $CSock[1]

Dim $MainSocket

$CSock[0] = 0

If FileExists(@scriptdir & "/settings.ini") Then

Sleep(10)

Else

_FileCreate(@scriptdir & "/settings.ini")

EndIf

$nick = InputBox("K Chat Program","Enter a nickname to use when chatting")

If FileReadLine(@scriptdir & "/settings.ini", 2) = "" Then

_FileWriteToLine(@scriptdir & "/settings.ini", 2, "000000", 1)

_FileWriteToLine(@scriptdir & "/settings.ini", 3, "Arial", 1)

_FileWriteToLine(@scriptdir & "/settings.ini", 4, "9", 1)

_FileWriteToLine(@scriptdir & "/settings.ini", 5, "400", 1)

_FileWriteToLine(@scriptdir & "/settings.ini", 6, "1", 1)

EndIf

$f=FileReadLine(@scriptdir & "/settings.ini", 2)

$n=FileReadLine(@scriptdir & "/settings.ini", 3)

$s=FileReadLine(@scriptdir & "/settings.ini", 4)

$w=FileReadLine(@scriptdir & "/settings.ini", 5)

$a=FileReadLine(@scriptdir & "/settings.ini", 6)

;;;;;;;;;;;;;;;;;

$port = 3333

$ipaddress = InputBox("IpAdress", "Enter the ip to connect to, leave blank if you are the server!")

If $ipaddress = "" Then

$Servermode = 1

$ipaddress = @ipaddress1

Else

$servermode = 0

EndIf

UDPStartup()

If $Servermode = 1 Then

$socket = UDPBind ($ipaddress, $port)

Else

$socket = UDPOpen ($ipaddress, $port)

EndIf

If $socket < 0 Then

MsgBox(0,"Error","Could not connect to server")

Exit

Else

UDPSend($socket, "Server: " & $nick & " is connected.")

EndIf

;gui

$gui = GUICreate($nick & "'s Chat",580,250)

$menu=GuiCtrlCreateMenu("Program")

$set=GuiCtrlCreateMenuItem("Settings", $menu)

$menu1=GuiCtrlCreateMenuItem("Exit", $menu)

$menu3=GuiCtrlCreateMenu("Help")

$menu4=GuiCtrlCreateMenuItem("About", $menu3)

$userlist=GuiCtrlCreateLabel("UserList:", 485, 5)

$bsend = GUICtrlCreateButton("Send",380,145,60,80)

$list=GuiCtrlCreateList($nick, 445, 22, 125, 213)

$edit = GUICtrlCreateEdit("",5,5,435,130,BitOR($ES_AUTOVSCROLL,$WS_VSCROLL,$ES_READONLY))

GUICtrlSetFont(-1,$s,$w,$a,$n)

GuiCtrlSetColor(-1, $f)

GuiCtrlSetBkColor(-1, 0xffffff)

$input = GUICtrlCreateEdit("",5,145,375,80,BitOR($WS_VSCROLL,$ES_AUTOVSCROLL,$ES_MULTILINE))

GUICtrlSetFont($input,$s,$w,$a,$n)

GuiCtrlSetColor($input, $f)

GUISetState()

GUICtrlSetState($input,$GUI_FOCUS)

While 1

$msg = GUIGetMsg()

If $msg = $GUI_EVENT_CLOSE Then Exit

If $msg = $menu1 Then Exit

If $msg = $set Then

$gui2=GuiCreate("Settings", 200, 100)

$label=GuiCtrlCreateLabel("Nickname:", 5, 8)

$ninput=GuiCtrlCreateInput("", 65, 5, 130)

$label1=GuiCtrlCreateLabel("Chat Font:", 5, 41)

$color=GuiCtrlCreateButton("Select", 65, 35, 130)

$sett=GuiCtrlCreateButton("Ok", 65, 70, 70)

GuiSetState()

While 1

$msgg=GuiGetMsg()

If $msgg=$Gui_Event_Close Then

GuIDelete($gui2)

ExitLoop

EndIf

If $msgg=$color then

$font=_ChooseFont()

If (@error) Then

GuiCtrlSetColor($edit, $f)

GuiCtrlSetColor($input, $f)

GUICtrlSetFont($edit, $s, $w, $a, $n)

GUICtrlSetFont($input, $s, $w, $a, $n)

Else

GuiCtrlSetColor($edit, $font[7])

GuiCtrlSetColor($input, $font[7])

GUICtrlSetFont($edit, $font[3], $font[4], $font[1], $font[2])

GUICtrlSetFont($input, $font[3], $font[4], $font[1], $font[2])

$s=$font[3]

$n=$font[2]

$w=$font[4]

$a=$font[1]

$f=$font[7]

_FileWriteToLine(@scriptdir & "/settings.ini", 2, $font[7], 1)

_FileWriteToLine(@scriptdir & "/settings.ini", 3, $font[2], 1)

_FileWriteToLine(@scriptdir & "/settings.ini", 4, $font[3], 1)

_FileWriteToLine(@scriptdir & "/settings.ini", 5, $font[4], 1)

_FileWriteToLine(@scriptdir & "/settings.ini", 6, $font[1], 1)

EndIf

If $msgg=$sett Then

If GuiCtrlRead($ninput) <> "" Then

_FileWriteToLine(@scriptdir & "/settings.ini", 1, GuiCtrlReaD($ninput), 1)

If $nick <> GuiCtrlReaD($ninput) Then

UDPSend($socket, "Server: " & $nick & " changed name to " & GuiCtrlReaD($ninput) & ".")

GUICtrlSetData($input,"")

EndIf

GuiDelete($gui2)

ExitLoop

GUICtrlSetState($ninput,$GUI_FOCUS)

EndIf

Wend

EndIf

If $CSock[0] > 0 Then

$br = ""

For $n = 1 to $CSock[0]

$ret2 = UDPRecv($CSock[$n], 512)

If @error <> 0 Then

$br = $br & $n & @LF

ElseIf $ret2 <> "" Then

Broadcast($ret2)

EndIf

$br = StringSplit(StringTrimRight($br,1),@LF)

For $n = 1 to $br[0]

RemoveSocket(Int($br[$n]))

EndIf

If $msg = $bsend Then

$ret = UDPSend($socket, $nick & ": " & GUICtrlRead($input))

If @ERROR Or $ret < 0 Then ExitLoop

GUICtrlSetData($input,"")

GUICtrlSetState($input,$GUI_FOCUS)

EndIf

HotKeySet("{ENTER}", "Bsend")

$ret = UDPRecv($socket, 512)

If @ERROR Or $ret < 0 Then ExitLoop

If StringLen($ret) > 0 Then

If StringInStr($ret, "is connected.") Then

If StringTrimLeft(StringTrimRight($ret, 14), 10) <> $nick Then

_GuiCtrlListAddItem($list, StringTrimLeft(StringTrimRight($ret, 14), 10))

EndIf

If StringInStr($ret, "is disconnected.") Then _GUICtrlListDeleteItem($list, _GuiCtrlListFindString($list, StringTrimLeft(StringTrimRight($ret, 17), 10), 1))

GUICtrlSetData($edit, GUICtrlRead($edit) & @CRLF & $ret)

GUICtrlSendMsg($edit, $EM_SCROLLCARET, 0, 0)

EndIf

Sleep(1)

WEnd

;loop end

Func RemoveSocket($instance)

Dim $aTemp[$CSock[0]]

$aTemp[0] = $CSock[0] - 1

$RS_i = 1

If $aTemp[0] > 0 Then

For $RS_n = 1 to $CSock[0]

If $RS_n <> $instance Then

$aTemp[$RS_i] = $CSock[$RS_n]

$RS_i = $RS_i + 1

EndIf

$CSock = $aTemp

EndFunc

Func Broadcast($szData)

For $B_n = 1 to $CSock[0]

UDPSend($CSock[$B_n],$CSock[0] & "-" & $szData)

Func OnAutoItExit()

UDPSend($socket, "Server: " & $nick & " is disconnected.")

If @ERROR Or $ret < 0 Then Exit

GUICtrlSetData($input,"")

GUICtrlSetState($input,$GUI_FOCUS)

For $n = 1 to $CSock[0]

UDPCloseSocket($CSock[$n])

UDPShutDown()

If $socket >= 0 Then UDPCloseSocket($socket)

EndFunc

Func AddSocket($AS_sock)

$AS_n = $CSock[0] + 1

ReDim $CSock[$AS_n + 1]

$CSock[0] = $AS_n

$CSock[$AS_n] = $AS_sock

EndFunc

Func Bsend()

If WinActive("Regret's Chat") = 0 then

HotKeySet("{ENTER}")

Send("{ENTER}")

HotKeySet("{ENTER}", "Bsend")

endif

If WinActive("Regret's Chat") =1 and GUICtrlRead($input)<> "" then $ret = UDPSend($socket, $nick & ": " & GUICtrlRead($input))

GUICtrlSetData($input,"")

GUICtrlSetState($input,$GUI_FOCUS)

EndFunc

Edited June 20, 2007 by Gmail

Kreatorul · June 15, 2007

I don't have the time to look through all this but why use udp? and most of the features don't work either :rolleyes:

Dale2507 · June 16, 2007

i've never used udp before so i thought i'd mention it but it's the same as tcp just u don't have 2 accept connections

Synapse · June 21, 2007

Ms mult...e tare.... :rolleyes: ...acu ca a aparut si PNG in GUI ai putea sa-i dai un look mai fain...anyway...e super 10+

Chat program

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members