Soyez le premier à donner votre avis sur cette source.
Snippet vu 18 607 fois - Téléchargée 16 fois
Public Class C_SOCKET Public SOCKET_SOCK As System.Net.Sockets.NetworkStream Public SOCKET_STATE As String = "Free" End Class Public Class C_STREAM ' Adresse Ip du serveur au format texte EX "127.0.0.1" Private STREAM_IP As String ' Port du server Private STREAM_PORT As String ' Nombre Max de socket Private STREAM_MAX As Integer ' Tableau de 32 Connexion potentiel Private STREAM_UNIT() As C_SOCKET 'Init des sockets stream plus blocage des socket au dessus de max Public Sub New(ByVal IP As String, ByVal PORT As Int32, Optional ByVal MAX As Int32 = 16) Array.Resize(Me.STREAM_UNIT, MAX) Me.STREAM_IP = IP Me.STREAM_PORT = PORT For i = 0 To MAX - 1 Me.STREAM_UNIT(i) = New C_SOCKET Next End Sub 'Ferme le socket envoyé en paramatres Public Sub STREAM_CLOSE_STREAM(ByVal This_Stream As C_SOCKET) This_Stream.SOCKET_SOCK.Close() This_Stream.SOCKET_STATE = "Free" End Sub 'Creer un nouveau socket stream si un sock est dispo Public Function STREAM_NEW_STREAM() For Each Line In Me.STREAM_UNIT If (Line.SOCKET_STATE = "Free") Then Line.SOCKET_STATE = "Used" Line.SOCKET_SOCK = New System.Net.Sockets.TcpClient(Me.STREAM_IP, Me.STREAM_PORT).GetStream Return Line Exit For End If Next Return False End Function End Class
Commentaires
sont les classe à importer pour ce code
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.