Server Crash

[Ritch]

expandcollapse popup

#include <File.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>


Global $CurrentSocket = 0
Global $ListenSocket
Global $ConnectedSocket[16]
Global $AUTH[16]

For $INDEX = 0 To 15
    $AUTH[$INDEX] = 0
Next

$TCP = TCPStartup()
If $TCP = 0 Then
    MsgBox(0, "Error", "Unable to startup TCP Services!")
    Exit
EndIf

$ListenSocket = TCPListen(@IPAddress1,1777,16)
If $ListenSocket = -1 Then
    MsgBox(0, "ERROR", "Unable to start listening on port 1777")
    Exit
EndIf

While 1
    $ConnectedSocket[$CurrentSocket] = TCPAccept($ListenSocket)
    If $ConnectedSocket[$CurrentSocket] <> -1 Then
        $CurrentSocket = $CurrentSocket + 1
    EndIf
    For $INDEX = 0 To 15
        If $ConnectedSocket[$INDEX] <> -1 Or $ConnectedSocket[$INDEX] <> "" Then
            $Recv = TCPRecv($ConnectedSocket[$INDEX], 99999999)
            If $Recv <> "" Then
                If $AUTH[$INDEX] <> 0 Then
                    For $INDEX = 0 To 15
                        If $ConnectedSocket[$INDEX] <> - 1 And $AUTH[$INDEX] = 1 Then
                            TCPSend($ConnectedSocket[$INDEX],$Recv)
                        EndIf
                    Next
                EndIf
                If StringLeft($Recv,4) = "AUTH" Then
                    $DATA = StringSplit($Recv," ")
                    $USER = $DATA[2]
                    $PASSWORD = $DATA[3]
                    If Verify($USER,$PASSWORD) Then
                        $AUTH[$INDEX] = 1
                        ToolTip($ConnectedSocket[$INDEX],200,0)
                        TCPSend($ConnectedSocket[$INDEX],"Successful login.")
                                                Sleep(500)
                        $char_class = FileOpen(@ScriptDir & "\offsetchar.dat",0)
                        $char_clas_read = FileReadLine($char_class,1)
                        Sleep(100)
                        TCPSend($ConnectedSocket[$INDEX],$char_clas_read)
                                            elseIf not Verify($USER,$PASSWORD) Then
                        ToolTip($ConnectedSocket[$INDEX],100,0)
                        TCPSend($ConnectedSocket[$INDEX],"Login Fail.")
                        TCPCloseSocket($ConnectedSocket[$INDEX])
                     EndIf
                EndIf
                If StringLeft($Recv,4) = "CLAS" Then
                    $DATA2 = StringSplit($Recv," ")
                    $NICK = $DATA2[2]
                    $CLAS = $DATA2[3]
                    If Verify_nick($NICK,$CLAS) Then
                        sleep(100)
                  TCPSend($ConnectedSocket[$INDEX],"hi");CRASH in THIS LINE <------------------
                ElseIf not Verify_nick($NICK,$CLAS) Then
                TCPCloseSocket($ConnectedSocket[$INDEX])
                      Endif
                Endif
            EndIf
        EndIf
    Next
    Sleep(100)
    WEnd

Func Verify($USER,$PASSWORD)
    Local $INDEX
    Local $DATA
    $DATABASE = FileOpen(@ScriptDir & "\Database.dat",0)
    For $INDEX = 1 To _FileCountLines(@ScriptDir & "\Database.dat")
        $LINE = FileReadLine($DATABASE,$INDEX)
        $DATA = StringSplit($LINE," ")
        If $DATA[1]=$USER AND $DATA[2]=$PASSWORD Then Return 1
    Next
EndFunc
Func Verify_nick($NICK,$CLAS)
    Local $INDEX2
    Local $DATA2
    $DATABASE2 = FileOpen(@ScriptDir & "\char.dat",0)
        For $INDEX2 = 1 To _FileCountLines(@ScriptDir & "\char.dat")
        $LINE2 = FileReadLine($DATABASE2,$INDEX2)
        $DATA2 = StringSplit($LINE2," ")
        If $DATA2[1]=$NICK AND $DATA2[2]=$CLAS Then Return 1
        Next
EndFunc

two problen

Server crash in tcpsend (i mark line)

Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
TCPSend($ConnectedSocket[$INDEX],"hi")
TCPSend(^ ERROR

i not found this error oO!!!

other is.

how to show ip or name users conecteds?

[FuryCell]

Its kind of hard to debug without the client's source code being provided but you should check your data to make sure it is a array to avoid a crash.

[Ritch]

if I remove this line I function.

to put I utiliso this exactly tcpsend () in other parts of the code and do not happen the error.

If somebody will be able to say the reason to me I would be thankful.

I read some posts saying that this error can be caused by an error of Loop + did not find this error.