Voici un tutoriel qui montre comment se servir de winsock
Source / Exemple :
'Bon,voici un Tutoriel qui vous montre comment sa servir de winsock
'Premierement on vas étufier le mode Écoute,dit aussi Attende de Connexion
'Tout d'abord on doit choisir un port pour l'écoute.Pour choisir le port on fait : Winsock1.LocalPort = LePort
'Le mode écoute se fait avec une commande comme celle ci: Winsock1.Listen
'Le mode écoute sert a faire un serveur,c'Est a dire attendre des connexions venant de l'Extérieur.
'Une fois ceci fait il faut pour voir détecter si il y a une demande de connexion.
'Pour ce faire vous metter :Winsock1.Accept requestID
'Dans la form Connexion_Request.
'Noublier pas de fermer le winsock avent d'accepter la connexion.
'Exemple:
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub
'Maintenant passons a la connection a un serveur. Le winsock peut se connecter a tout serveur (HTTP,NetBus,FTP...) A conditions que vous connaissier le port...
'Pour se connecter,c'est simple : Winsock1.Connect LEServeur,LePort
'Maintenat comment recevoir et envoyer des données?
'L'envois des données est très simple:Winsock1.SendData "Le text"
'La reception a besoin d'une sub voici:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
'On déclare le type de donné
Dim Donne As String
'Ici on récupere les donnés.
Winsock1.GetData Donne
'Une fois les donné récuperer ,Elle se trouve dans la variable Donne et vous pouvez les mettre dans un textbox ou n'importe quoi ex: text1.text = text1.text & vbcrlf & Donne
End Sub
'Comment detecter si le winsock est bien connecter? Simplemnet en fesans : Winsock.State
'Ex: If Winsock1.State = sckConnected Then MsgBox "Le Winsock est connecté"
'Les autre sub:
Private Sub Winsock1_Connect()
'Cette sub si est le script a executer quand le winsock réussis a établir la connection avec le serveur
End Sub
Private Sub Winsock1_Close()
'Ici c'Est si la connection est fermer par le server
End Sub
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
'Si une erreur arrive en essayant de se connecter au serveur ou bien durant l'envois/Reception de donnés
End Sub
Private Sub Winsock1_SendComplete()
'Quand le transfert est fini. Sa sert plus a quand on envois des Gros fichiers car avec du text c'Est quasi instantané
End Sub
Private Sub Winsock1_SendProgress(ByVal bytesSent As Long, ByVal bytesRemaining As Long)
'Ici c'Est la progression de l'envois . bytesSent donne les bytes déja envoyer et bytesRemaining donne les bytes a envoyer
'Voici un exemple pour avoir le pourcentage de la progression BytesSent / La Grossuer * 100
End Sub
'Dans ce tutoriel je ne vous montrerer pas comment envoyer des fichiers mais je compte bien en faire un a ce sujet
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.