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