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