SendTo
SendTo é usada para enviar dados ao soquete atualmente aberto por uma conexão UDP.
Sintaxe
SendTo (ip, porta, dados, [SizeInBytes])
Retorno
O total real de bytes enviados.
Mais informações
A função SendTo
só pode ser usada com um objeto de soquete aberto que foi aberto em uma conexão UDP. Para enviar dados pela conexão TCP, consulte a função Send apresentada anteriormente.
A função SendTo
aceita um parâmetro opcional (SizeInBytes
) que especifica quanto do buffer que foi transmitido ao campo de dados será realmente enviado. Se o parâmetro opcional for omitido, o tamanho será automaticamente calculado.
Exemplo
Este script se conecta com um servidor DNSBanco de dados usado pelas redes TCP/IP que habilita a tradução dos nomes do host em números IP e o fornecimento de outras informações relacionadas ao domínio., especificado pela variável IP, executa uma consulta por www.gfi.com e exibe o 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
'verifica se o Objeto retornou com sucesso
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