5/5 (6 avis)
Snippet vu 7 624 fois - Téléchargée 45 fois
Select Case Winsock.State Case 0 'Fermé(par défaut) Etat.Text = "" Case 1 'sckOpen Etat.Text = "Ouvert" Case 2 'sckListening Etat.Text = "A l'écoute" Case 3 'sckConnectionPending Etat.Text = "Connexion suspendu" Case 4 'sckResolvingHost Etat.Text = "Recherche du serveur distant" Case 5 'sckHostResolved Etat.Text = "Serveur distant trouvé" Case 6 'sckConnecting Etat.Text = "Connexion en cours" Case 7 'sckConnected Etat.Text = "Connecté" Case 8 'sckOpen Etat.Text = "Connecté" Case 9 'sckError Etat.Text = "Erreur" End Select
26 juil. 2011 à 01:40
bref
du add 1 timer et tu le met interval 1
ensuite dans ton timer
if Winsock1.State = 0 then ' ou sckClosed
text = "Socket fermé"
ElseIf Winsock1.State = 1 then
ect...
26 juil. 2011 à 01:35
6 avril 2006 à 11:14
Ce sont des aides comme ca dont j'ai souvent besoin et que je ne trouve jamais; ca aide bien! Merki!
3 avril 2006 à 21:47
6 avril 2004 à 14:38
C'est très bien , vois-tu, moi j'ai pas l'aide...
Merci !
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.