OpenUdp

OpenUdp é usado para estabelecer uma conexão com um servidor remoto usando UDP.

Sintaxe

OpenUdp()

Retorno

Objeto de soquete.

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)

'^^^^^^^^^^

'Esta parte é o cabeçalho do pacote da nossa solicitação, que inclui informações como sinalizadores

'^^^^^^^^^^

'Esta é a solicitação, www.gfi.com, observe que '.' são ‘representados como &H03 em vez de &H2E

'^^^^^^^^^^

'Este é o cabeçalho final do nosso pacote

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