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