L'objet winsock dans Visual Basic 6

cs_fallou Messages postés 1 Date d'inscription samedi 1 mai 2004 Statut Membre Dernière intervention 31 mai 2004 - 31 mai 2004 à 14:26
lebarn Messages postés 124 Date d'inscription vendredi 25 avril 2003 Statut Membre Dernière intervention 31 mai 2008 - 31 mai 2004 à 15:18
Bonjour. J'ai un problème avec la mise sur pied d'un serveur de messagerie. Je ne connais rien en ce qui concerne le contrôle winsock dans visual basic 6. Et j'ignore même comment commencer. Au sécours s'il vous plaît

1 réponse

lebarn Messages postés 124 Date d'inscription vendredi 25 avril 2003 Statut Membre Dernière intervention 31 mai 2008
31 mai 2004 à 15:18
Propriétés

------------

LocalHostName Renvoie le nom de la machine locale
LocalIP Renvoie l'IP de la machine locale
LocalPort Défini/renvoie le n° du port local
Protocol Défini/renvoie le protocole utilisé
RemoteHost Défini/renvoie le nom ou l'IP de la machine distante
RemotePort Défini/renvoie le port de la machine distante
State Renvoie l'état du contrôle (Erreur, Connecté, Etc ...)

Fonctions

--------------

Accept Accepte la requête du client
Close Met fin à la connexion
Connect Envoie une requête au serveur
GetData Place les données reçues dans une variable (String)
Listen Écoute le port désigné par la propriété "LocalPort"
SendData Envoie des données

Evénements

-------------

Close Se produit lors de la fin de la connexion
Connect Se produit quand le client réussi à se connecter au serveur
ConnectionRequest Se produit lorsqu'une requête de connexion est reçue
DataArrival Se produit lorsque des données arrivent
Error Se produit en cas d'erreur
SendProgress Se produit lorsque l'envoie est en cours
SendComplete Se produit lorsque l'envoie est fini

Serveur - Fonctionnement

-----------

1. Définition du protocol :
Winsock.Protocol = sckTCPProtocol

2. Définition du port sur lequel écouter :
Winsock.LocalPort = 1801

3. Lance l'écoute :
Winsock.Listen

4. Winsock écoute sur le port 1801

5. Requête lancée par le client, déclenchement de l'événement "ConnectionRequest" :
Private Sub Winsock_ConnectionRequest(ByVal requestID As Long)
End Sub

6. Requête acceptée par le serveur :
Private Sub Winsock_ConnectionRequest(ByVal requestID As Long)
Winsock.Close
Winsock.Accept requestID
End Sub

Transmission de données - Fonctionnement

----------

1. Envoie :
Winsock.SendData "Texte à envoyer"

2. Réception :
L'événement "DataArrival" est généré lors d'une réception
Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
Dim Texte As String
Winsock.GetData Texte, vbString
End Sub

Client - Fonctionnement

--------------

1. Définition du protocol :
Winsock.Protocol = sckTCPProtocol

2. Définition de l'IP ou du serveur où se connecter :
Winsock.RemoteHost = "xxx.xxx.xxx.xxx"

3. Définition du port chercher à se connecter :
Winsock.RemotePort = 1801

4. Lance la connexion :
Winsock.Connect

(Si aucune erreur ne se produit alors votre requête a été acceptée par le serveur))

-------------------------------------------------------------

Avec ce petit tuto, tu devrais y arriver !
Si tu veux le fichier zip avec ce tuto, va voir cette source !

Lebarn, c'est moi :: Search with Google
0