Send

Send viene utilizzato per inviare i dati al socket corrente aperto tramite una connessione TCP.

Sintassi

Send (data, [SizeInBytes])

Restituisce

La quantità effettiva di byte inviati.

Ulteriori informazioni

La funzione Send può essere utilizzata solo con un oggetto Socket aperto su una connessione TCP. Per inviare i dati tramite una connessione UDP, vedere altri dettagli sulla funzione SendTo nel documento.

La funzione Send accetta un parametro facoltativo (SizeInBytes) che specifica la quantità di buffer passata al campo dei dati che verrà effettivamente inviata. Se questo parametro facoltativo viene omesso, viene calcolata automaticamente la dimensione.

Esempio

Lo Script visualizza la pagina predefinita in html non elaborato di un server web eseguito localmente. Lo script può essere utilizzato per funzionare con qualsiasi server web modificando semplicemente il valore della variabile "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"

Porta = "80"

req = "GET / HTTP/1.0"

'ritorno a capo e avanzamento riga

cr = Chr(13) + Chr(10)

req = CStr(req +cr +cr)

Socket.SetTimeout 5000,5000

Set SocketObject = Socket.OpenTcp(Ip,Port)

'controllo per vedere la restituzione completata di Object

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