SEND
Ecriture dans un socket
Declare Function send Lib "wsock32" _
(ByVal sock As Long, _
buffer As Any, _
ByVal length As Long, _
ByVal flags As Long) As Long
Paramètres :
sock : identifie le socket à utiliser
buffer : tampon qui contient les octets à envoyer
length : nombre d'octets à envoyer
flags : type de lecture
0 ' données normales
Public Const MSG_OOB = &H1 ' envoie des données urgentes (Out Of Band)
Public Const MSG_DONTROUTE = &H4 ' les données ne routeront pas
retour : SOCKET_ERROR en cas d'erreur, nombre d'octets écrits sinon.
Public Const SOCKET_ERROR = -1
Exemple :
Dim CR as long
Dim longSend As Long
longSend = Len(chaine)
ReDim buff(longSend + 1) As Byte
For i = 1 To longSend
buff(i - 1) = Asc(Mid(chaine, i, 1))
Next
buff(longSend) = 0
CR = send(sock, buff(0), longSend, 0)
If CR = SOCKET_ERROR Then
MsgBox "Erreur sur l'envoi du message = " & WSAGetLastError()
End If
|
