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