Bio
Mi avatar Blog de un pequeño informaticú y sus ocurrencias y pequeñas notas de ayuda.
AddThis Feed Button
AddThis Social Bookmark Button
Avilés, Altos hornos.
Avilés
La Dársena de Fernando, Restaurante
El ataque de los  troyanos
IMGP2135
IMGP2134
IMGP2133
IMGP2120
IMGP2107
IMGP2104
This Month Last Year
Categories
links
06
Sep

Obtener dirección IP de una DNS

(QR Code)

Hay algunos juegos que aun a día de hoy no permiten conectarse vía DNS, has  de indicar una IP para conectarte al PC de tu amigo, pero esto resulta un poco engorroso por que una IP es más difícil de recordar, una solución puede ser el hacerse uno mismo una aplicación que resuelva las direcciones DNS. Con .NET  esto es muy sencillo ya que incorpora una una clase “System.net.DNS” para estas operaciones.

Si usamos .NET 1.1 podremos usar el método “Dns.GetHostByName(…)” para obtener los datos, este metodo ya no esta soportado en .NET 2.0, por lo que debereis usar “Dns.GetHostEntry(…)” que devuelve identicos resultados.

A estos metodos se les pasa la cadena string con el nombre del dominio ,sin prefijos de protocolo como http:// ni el puerto, y nos devuelve un objeto “IPHostEntry” que entre sus propiedades tiene la “AddressList” que contiene la lista de direcciones IP que estan asignadas a ese nombre DNS. A su vez cada entrada de “AdressList” es un objeto “IPAddress” al cual llamando a su metodo “ToString()” obtendremos la representación tipica que conocemos de una dirección IP.

Dim ipe As IPHostEntry
Dim ip() As IPAddress
Dim port As String
If midns.IndexOf(":") > 0 Then
   ipe = Dns.GetHostEntry(midns.Substring(0, midns.IndexOf(":")))
   port = cmb_dns.Text.Substring(midns.IndexOf(":") + 1)
Else
   ipe = Dns.GetHostEntry(midns)
   port = ""
End If
ip = ipe.AddressList
If (ip.GetLength(0) > 0) Then
   Shell("ut2004.exe ut2004://" & ip(0).ToString() &_
 IIf(port.Length > 0, ":" & port, ""))
End If

 


Nadie ha comentado (aun...)

No hay comentarios

Quieres dejar un comentario?