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