Send

Send se utiliza para enviar datos al socket actualmente abierto a través de una conexión TCP.

Sintaxis

Send (data, [SizeInBytes])

Devolución

La cantidad real de bytes enviados.

Más información

La función Send solo se puede utilizar con un objeto de socket abierto en una conexión TCP. Para enviar datos a través de una conexión UDP, consulte la función SendTo más adelante en el documento.

La función Send acepta un parámetro opcional (SizeInBytes) que especifica qué porción del búfer transmitida al campo de datos se enviará. Si este parámetro opcional se omite, el tamaño se calcula de forma automática.

Ejemplo

Este script muestra la página predeterminada en html sin procesar de un servidor web que funciona a nivel local. El script se puede hacer funcionar con cualquier servidor web simplemente cambiando el valor de la variable “ip”:

Function Main

Dim SocketObject As Object

Dim ip As String

Dim port As String

Dim req As String

Dim strResponse As String

Ip = "172.16.130.112"

Port = "80"

req = "GET / HTTP/1.0"

'retorno de carro y avance de línea

cr = Chr(13) + Chr(10)

req = CStr(req +cr +cr)

Socket.SetTimeout 5000,5000

Set SocketObject = Socket.OpenTcp(Ip,Puerto)

'verificar que el objeto se haya devuelto con éxito

If Not SocketObject is Nothing Then

SocketObject.Send(CStr(req))

strResponse = SocketObject.Recv(1024)

While Len(CStr(strResponse)) <> 0

echo(strResponse)

StrResponse = SocketObject.Recv(1024)

Wend

echo(strResponse)

End If

End Function