L'objet winsock dans Visual Basic 6

Question

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

lebarn · Answer

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

L'objet winsock dans Visual Basic 6

1 réponse

Discussions similaires