CONNECT
Connection à
un socket distant
Declare Function connect Lib "wsock32" _
(ByVal sock As Long, _
name As SOCK_ADDR, _
ByVal namelen As Integer) As Long
Paramètres :
sock : identifie le socket à utiliser
name : l'adresse à atteindre (port et numéro IP)
Type IN_ADDR
S_addr As Long
End Type
Type SOCK_ADDR
sin_family As Integer
sin_port As Integer
sin_addr As IN_ADDR
sin_zero(0 To 7) As Byte
End Type
namelen : taille en octets de name
retour : SOCKET_ERROR en cas d'erreur, nombre d'octets écrits sinon.
Public Const SOCKET_ERROR = -1
Exemple :
Dim CR as long
Dim sock as long
Dim RemoteServer as SOCK_ADDR
RemoteServer.sin_family = AF_INET
RemoteServer.sin_port = htons(2000)
RemoteServer.sin_addr.S_addr = inet_addr("192.168.0.1")
RemoteServer.sin_zero(0) = 0
CR = connect(sock, RemoteServer, Len(RemoteServer))
If CR = SOCKET_ERROR Then
MsgBox "Erreur sur Connect : " & WSAGetLastError()
Exit Sub
End If
|
