OpenUdp

OpenUdp se utiliza para establecer una conexión con un servidor remoto utilizando UDP.

Sintaxis

OpenUdp()

Devolución

Objeto de socket.

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)

'^^^^^^^^^^

'Esta parte es el encabezado de paquete de nuestra solicitud; incluye datos como marcas

'^^^^^^^^^^

'Esta es la solicitud en sí misma: www.gfi.com. Observe que “.” se “representa como &H03 en lugar de &H2E”

'^^^^^^^^^^

'Este es el encabezado final End header del paquete

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