Send

Send é usada para enviar dados ao soquete aberto atualmente usando uma conexão TCP.

Sintaxe

Send (dados, [SizeInBytes])

Retorno

O total real de bytes enviados.

Mais informações

A função Send só pode ser usada com um objeto de soquete aberto que tenha sido aberto em uma conexão TCP. Para enviar dados por uma conexão UDP, veja a função SendTo mais adiante no documento.

A função Send aceita um parâmetro opcional (SizeInBytes) que especifica quanto do buffer que foi transmitido ao campo de dados será realmente enviado. Se o parâmetro opcional for omitido, o tamanho será automaticamente calculado.

Exemplo

O script mostra a página padrão em HTML bruto de um servidor Web com execução local. O script pode funcionar em qualquer servidor Web alterando o valor da variável “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 do carro e alimentação da linha

cr = Chr(13) + Chr(10)

req = CStr(req +cr +cr)

Socket.SetTimeout 5000,5000

Set SocketObject = Socket.OpenTcp(Ip,Port)

'verifica se o Objeto retornou com sucesso

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