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