Reset TCP server count connection

JohnRichard · March 17, 2009

hi all. i have this script in which i set server to accept to 3 client connections and when server reaches 3rd connection it will prompt for a message that it is full and would not accept for connection. my problem is, i cannot reset the serverback to zero so that it will accept again for any incoming connection. i have put a context menu on the script so that i have control to reset and stop the server. can someone help me on how to reset.

here is what i have

#Include <GuiListView.au3>
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <inet.au3>
#include <String.au3>
#Include <Constants.au3>

Opt("TrayMenuMode",1) 

Opt("WinTitleMatchMode", 2)
Opt('MustDeclareVars', 0)


Global $CURRENT_SOCKET 
Global $CONNECTED_SOCKET[3]
Global $TCP_SERVER
Global $SPLIT, $RECV

$accept = TrayCreateItem("Accept Incoming")
TrayCreateItem("")
$stop = TrayCreateItem("Stop Connection")
TrayCreateItem("")
$close = TrayCreateItem("Close")

TraySetState()


While 1
    
$msg = TrayGetMsg()
    Select      
        Case $msg = $accept         
            ReConnect()
        Case $msg = $stop
            Stop()
        Case $msg = $close
            Close()
    EndSelect
    
    $CONNECTED_SOCKET[$CURRENT_SOCKET] = TCPAccept($TCP_SERVER)         
        If $CONNECTED_SOCKET[$CURRENT_SOCKET] <> -1 Then            
            
            $CURRENT_SOCKET += 1            
            
            If $CURRENT_SOCKET = 2 Then
                
                TCPCloseSocket($CONNECTED_SOCKET[$CURRENT_SOCKET])
                            
                
                MsgBox(64, "Warning!", "Server is now Full!")           
            EndIf
        EndIf       
    
    
    For $INDEX = 0 To 2
        $RECV = TCPRecv($CONNECTED_SOCKET[$INDEX],512)
                                
                    
        
    Next
    
    
Wend


Func ReConnect()
    
$TCP = TCPStartup()

$TCP_SERVER = TCPListen(@IPAddress1,7000,16)
    


ENdFunc


Func Stop()
    
    TCPCloseSocket($CONNECTED_SOCKET[$CURRENT_SOCKET])
    TCPCloseSocket($TCP_SERVER)
    TCPShutdown()   
    
EndFunc

can somebody help me here...

thanks,,,

Edited March 18, 2009 by JohnRichard

SoulA · March 17, 2009

You could use a keep alive message of sorts to probe who is still connected or have the client send a message when it disconnects. When that happens decrement $CURRENT_SOCKET and _ArrayDelete() the one that isn't connected anymore from $CONNECTED_SOCKET.

This is kind of what I'm visioning.

For $i = 0 To $CURRENT_SOCKET
    TCPSend($CONNECTED_SOCKET[$i], "ping")
    If TCPRecv($CONNECTED_SOCKET[$i], 1024) = "" Then
        $CURRENT_SOCKET -= 1
        _ArrayDelete($CONNECTED_SOCKET, $i)
    EndIf
Next

Edited March 17, 2009 by SoulA

JohnRichard · March 18, 2009

thanks soula for the reply. i'm thinking of way how to decrement it but can't put it in the script. i'm confused now. where exactly i will insert the script. i'm trying a trial and error but server exits when the 3rd client get connected. i wanted to keep the script alive then reset the connection on the context "accept connection"

$CONNECTED_SOCKET[$CURRENT_SOCKET] = TCPAccept($TCP_SERVER)         
        If $CONNECTED_SOCKET[$CURRENT_SOCKET] <> -1 Then            
            
            $CURRENT_SOCKET += 1            
            
            If $CURRENT_SOCKET = 2 Then             
                TCPCloseSocket($CONNECTED_SOCKET[$CURRENT_SOCKET])
                TCPCloseSocket($TCP_SERVER)             
                Sleep(100)
                MsgBox(64, "Warning!", "Server is now Full! It will not accept any new connection.")            
            EndIf
        EndIf

foster74 · March 18, 2009

I'm confused, when you select reconnect do you want it to drop the current clients and allow 3 new clients to connect?

JohnRichard · March 18, 2009

I'm confused, when you select reconnect do you want it to drop the current clients and allow 3 new clients to connect?

basically i will just do reconnect when server reaches its 3 client connection. when it did, i will select reconnect then server will be ready again to accept incoming 3 connection. what is happening in the script, when it received the 3rd client connection, script will exit. script should stay alive so that i have the option from the context menu to reset the connection...

i'm just don't know how to put it on the script...

While 1
    
$msg = TrayGetMsg()
    Select      
        Case $msg = $accept         
            Connect()
        Case $msg = $stop
            Stop()
        Case $msg = $close
            Close()
    EndSelect
    
    $CONNECTED_SOCKET[$CURRENT_SOCKET] = TCPAccept($TCP_SERVER)         
        If $CONNECTED_SOCKET[$CURRENT_SOCKET] <> -1 Then            
            
            $CURRENT_SOCKET += 1            
            
            If $CURRENT_SOCKET = 2 Then 

            For $i = 0 To $CURRENT_SOCKET
            TCPSend($CONNECTED_SOCKET[$i], "ping")          
            If TCPRecv($CONNECTED_SOCKET[$i], 1024) = "" Then
            
                $CURRENT_SOCKET -= 1
                _ArrayDelete($CONNECTED_SOCKET, $i)
                TCPCloseSocket($CONNECTED_SOCKET[$CURRENT_SOCKET])      
            EndIf
            Next

                                 EndIf
        EndIf       
    
    
    For $INDEX = 0 To 2
        $RECV = TCPRecv($CONNECTED_SOCKET[$INDEX],512)      
        If $RECV <> "" Then             
        ConsoleWrite("Connection established from... " & @CRLF & $RECV & @CRLF & "Connect Time: " & @HOUR & ":" & @MIN & ":" & @SEC & @CRLF)            
                                
            EndIf       
        EndIf
    Next
    
    Sleep(20)
Wend

Edited March 18, 2009 by JohnRichard

foster74 · March 18, 2009

I do not see what is causing the script to exit. Also when you select reconnect yourself, do you want to allow 3 new clients to connect, or drop the 3 already connected and allow 3 new ones?

Does this do what you want?

Func ReConnect()
    TCPShutdown()
        $TCP = TCPStartup()
    $TCP_SERVER = TCPListen(@IPAddress1,7000,16)
    $CURRENT_SOCKET = 0
ENdFunc

Edited March 18, 2009 by foster74

JohnRichard · March 18, 2009

I do not see what is causing the script to exit. Also when you select reconnect yourself, do you want to allow 3 new clients to connect, or drop the 3 already connected and allow 3 new ones?

Does this do what you want?
Func ReConnect()
    TCPShutdown()
        $TCP = TCPStartup()
    $TCP_SERVER = TCPListen(@IPAddress1,7000,16)
    $CURRENT_SOCKET = 0
ENdFunc

thanks foster. what i want to happen when i reconnect myself, it will drop the three already connected and allow 3 new incoming connection. does this will solve the script?

i'll test and see to it...

JohnRichard · March 18, 2009

hei there foster74. it's working great! you saved my day. problem solved now. :unsure:

MANY THANKS to YOU and to SOULA. i really appreciate your help.

Sign In

Reset TCP server count connection

Recommended Posts

JohnRichard

Link to comment

Share on other sites

SoulA

Link to comment

Share on other sites

JohnRichard

Link to comment

Share on other sites

foster74

Link to comment

Share on other sites

JohnRichard

Link to comment

Share on other sites

foster74

Link to comment

Share on other sites

JohnRichard

Link to comment

Share on other sites

JohnRichard

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta