Voilà, ca doit déjà exister sur Vbfrance, mais mon module est tres court, juste un split et le renvoi du statut en String dans une variable ...
Exemple pour afficher le status dans un MsgBox
Dim Sts As String
Sts = WinSocketState(Winsock1)
MsgBox Sts
Source / Exemple :
Public Function WinSocketState(Socket As Winsock) As String
Dim State() As String
State = Split("Fermé.,Ouvert.,En écoute ...,En Attente ...,Résolution DNS ...,Hote résolu !,Connexion ...,Connecté.,Fermeture ...,Erreur !", ",")
WinSocketState = State(Socket.State)
End Function
Conclusion :
Heuu, je sais pas si l'idée du Split est tres bonne, mais moi j'aime bien, c'est court :)
Merci pour vos commentaires ... :)
Cordialement,
Effervescence Server
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.