Utilisation des winsocks

Commenter

Contenu du snippet

Juste un petit code pour celles et ceux qui utilisent les winsocks. Il montre comment on établit une connexion, comment se gère la récéption des données...

Source / Exemple : 


'wsk7188E() est en fait un winsocks array, si comme moi vous manipulez plusieurs wsk, c'est très utilie. Index est tout simplement l'index auquel se trouve la wsk.

wsk7188E(Index).RemoteHost = 192.168.0.1 'setting de l'adresse IP
wsk7188E(Index).RemotePort = 10000 'choix d'un port
wsk7188E(Index).Connect() ' et connection

'on test si la wsk est bien connectée

if wsk7188E(Index).CtlState = MSWinsockLib.StateConstants.sckConnected then
 [...]
else
end if

'pour la récéption des données

Private Sub wsk7188E_DataArrival(ByVal eventSender As System.Object, ByVal eventArgs As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles wsk7188E.DataArrival

 Dim Index As Integer = wsk7188E.GetIndex(eventSender) 'on réccupère l'index de la wsk emettrice
[...]
end sub

'en cas d'erreur de récéption ou de connexion

Private Sub error_wsk(ByVal o As Object, ByVal s As AxMSWinsockLib.DMSWinsockControlEvents_ErrorEvent) Handles wsk7188E.Error
end sub

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_MP)