SendTo

SendTo viene utilizzato per inviare i dati al socket corrente aperto tramite una connessione UDP.

Sintassi

SendTo (ip, port, data, [SizeInBytes])

Restituisce

La quantità di byte effettiva inviati.

Ulteriori informazioni

La funzione SendTo può essere utilizzata solo con un oggetto Socket aperto su una connessione UDP, per inviare i dati tramite una connessione TCP controllare la funzione Send descritta in precedenza nel documento.

La funzione SendTo 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 si connette con un server DNSUn database utilizzato dalle reti TCP/IP che consente la traduzione dei nomi host in numeri IP e di fornire altre informazioni relative al dominio., specificato dalla variabile IP ed esegue una query per www.gfi.com, quindi visualizza il risultato:

Function Main

Dim SocketObject As Object

Dim ip As String

Dim port As String

Dim rawdata As Variant

Dim Response As Variant

Ip = "172.16.130.40"

Port = "53"

strRequest="www.gfi.com"

rawdata = Array(0,3,1,0,0,1,0,0,0,0,0,0,3, &H77, &H77, &H77, &H03, &H67, &H66, &H69, &H03, &H63, &H6F,&H6D, 0,0,1,0,1)

Set SocketObject = Socket.OpenUdp()

If Not SocketObject is Nothing Then

'controllo per vedere la restituzione completata di Object

SocketObject.SendTo IP,port,rawdata

Response = SocketObject.Recv(1024)

For a = UBound(response)-3 To UBound(response)

echo(Response(a))

If a <> UBound(response) Then

echo(".")

End If

Next a

SocketObject.Close

End If

End Function