SendTo

SendTo se utiliza para enviar datos al socket actualmente abierto a través de una conexión UDP.

Sintaxis

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

Devolución

La cantidad real de bytes enviados.

Más información

La función SendTo solo se puede utilizar con un objeto de socket abierto en una conexión UDP para enviar datos a través de una conexión TCP. Verifique la función Send descrita previamente en el documento.

La función SendTo acepta un parámetro opcional (SizeInBytes) que especifica qué porción del búfer transmitida al campo de datos se enviará. Si este parámetro opcional se omite, el tamaño se calcula de forma automática.

Ejemplo

Este script se conecta con un servidor DNSBase de datos que utilizan las redes TCP e IP, que permite la conversión de nombres de host en números IP y el suministro de otra información relacionada con dominios., especificado por la variable de IP, ejecuta una solicitud para acceder a www.gfi.com y después muestra el resultado:

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

'verificar que el objeto se haya devuelto con éxito

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