Public Sub completo(ByVal ar As Socket, ByVal asd As SocketAsyncEventArgs)
asd.UserToken.set()
End Sub
Public Sub manda(ByRef us As User, ByVal data As String)
Try
us.evento.WaitOne()
data = data.Replace(Chr(10) & Chr(10), "").Replace("||", "")
If data.EndsWith("|") = False Then
data &= "|"
End If
Dim buffer() As Byte = Encoding.Default.GetBytes(data)
impostazioni.banda += buffer.Length
protocol.byteinviati += buffer.Length
us.sae.UserToken = us.evento
us.sae.SetBuffer(buffer, 0, buffer.Length)
us.client.SendAsync(us.sae)
us.evento.Reset()
Catch
End Try
End Sub
non ho risolto proprio nulla invece..... ho modificato il codice come meglio credevo... mettendo un handler per ogni user e con 1 funziona ma come ne entrano 10-15 crasha tutto..... dove sbaglio?