SOCKET
Création d'un
socket
Declare Function Socket Lib "wsock32.dll" Alias "socket" _
(ByVal afinet As Integer, _
ByVal socktype As Integer, _
ByVal protocol As Integer) As Long
Paramètres
:
afinet : famille d'adressage (Winsock n'accepte que PF_INET)
Public Const PF_INET = 2 ' Internet
socktype : type de socket
Public Const SOCK_STREAM = 1 'Connecté
Public Const SOCK_DGRAM = 2 'Non Connecté
protocol : protocole à utiliser
Public Const IPPROTO_IP = 0 ' protocole par défaut (TCP si SOCK_STREAM, UDP si SOCK_DGRAM)
Public Const IPPROTO_TCP = 6 ' TCP
Public Const IPPROTO_UDP = 17 ' UDP
retour : INVALID_SOCKET en cas d'erreur, l'identificateur du nouveau socket sinon.
Public Const INVALID_SOCKET = -1
Exemple :
Dim sock as long
sock = Socket(AF_INET, SOCK_DGRAM, IPPROTO_UDP)
If sock = INVALID_SOCKET Then
MsgBox "Erreur sur la creation du socket
Exit Sub
End If
|
