Tutoriel:winsock

Soyez le premier à donner votre avis sur cette source.

Snippet vu 12 976 fois - Téléchargée 42 fois

Contenu du snippet

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

A voir également

Ajouter un commentaire

Commentaires

djgab21
Messages postés
66
Date d'inscription
vendredi 15 juin 2007
Statut
Membre
Dernière intervention
19 mai 2011
-
Merci pour ce tuto, il est très bien expliqué et je viens d'apprendre plein de nouveaux truc sur Winsock !
vxn772
Messages postés
29
Date d'inscription
jeudi 8 février 2007
Statut
Membre
Dernière intervention
3 mars 2009
-
Très bon tutoriel. Bien expliqué, clair, bien structuré. Même remarque pour le téléchargement de fichiers. Pourtant j'ai encore une question. Comment récupère-t-on la vitesse de la connexion entre un serveur et le client.

Merci d'avance
gui4242
Messages postés
13
Date d'inscription
samedi 7 août 2004
Statut
Membre
Dernière intervention
1 mai 2007
-
bonjour
Ta source est clair et bien expliquée, je te met 10/10 mais cependant fais attention aux fautes d'orthographe.
cordialement
ZargouV
Messages postés
1
Date d'inscription
mercredi 28 juin 2006
Statut
Membre
Dernière intervention
28 juin 2006
-
Bonjour je suis très débûtant en Visual Basic j'aimerais savoir dans quoi on marque les codes WINSOCK sa semble un peu stupide pour vous parce que vous conesser ça mais si quelqun peu me dire ça se serais plaisant merci d'avance :)

-:ZargouV:-
bios4c44
Messages postés
3
Date d'inscription
mardi 21 novembre 2000
Statut
Membre
Dernière intervention
7 mars 2007
-
Oh mon dieu le massacre de l'orthographe !!!!! C'est de la folie j'arrive même plus à lire ce qu'il y a d'écrit...

-> Avant de valider votre commentaire merci de le relire (2 fois s'il le faut) afin d'éviter un maximum de fautes d'orthographe et de français.

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.