Hallo Leute,
ich habe mir einen kleinen Chat entworfen, doch nun habe ich schwierigkeiten den ConnectionRequest hin zu bekommen, ich habe schon einige Varianten versucht, aber es will absolut nicht Funktionieren hier der letzte versuch
Gruß CrimeTime
ich habe mir einen kleinen Chat entworfen, doch nun habe ich schwierigkeiten den ConnectionRequest hin zu bekommen, ich habe schon einige Varianten versucht, aber es will absolut nicht Funktionieren hier der letzte versuch
Code:
Public Const MaxCon = 20
Code:
Private Sub sckClient_ConnectionRequest(ByVal requestID As Long)
Dim aFreeSocket As Integer
aFreeSocket = GetFreeSocket
If aFreeSocket = 0 Then
frmpackets.DebugText.text = "Number of maximum clients reached ! A connection had to be refused!"
sckClient.Close
sckClient.Accept requestID
sckClient.Close
Else
bSocketStatus(aFreeSocket) = True
sckClient(aFreeSocket).Accept requestID
DoEvents
frmpackets.DebugText.text = "A new Client with ID " & aFreeSocket & " and IP " & sckClient(aFreeSocket).RemoteHostIP & " connected!"
SendData aFreeSocket, "WELCOME_KEY " & Chr(13) & "1234"
End If
End Sub
Code:
Public Function GetFreeSocket() As Integer
Dim i As Integer
For i = 1 To MaxCon
If bSocketStatus(i) = False Then
GetFreeSocket = i
Exit Function
End If
Next i
GetFreeSocket = 0
End Function
Gruß CrimeTime