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