Informacion

08/11/2006 - 15:59 por VBNET_SCZ | Informe spam
necesito ayuda, para poder obtener mediante codigo, el numero IP de la
maquina...recuerdo que con VB6, se utilizaba el objeto winsock
pero en VBNET, no se como hacerlo

Alguien me puede ayudar

Preguntas similare

Leer las respuestas

#1 Robinson.Moscoso
08/11/2006 - 16:57 | Informe spam
Hola como estas...

Mira este articulo, creo que es lo que buscas...

http://www.elguille.info/colabora/N...enerIP.htm

ten encuenta que bajo el namespace de System.Net puedes encontrar muchas
funciones para trabajar como lo hacias con winsock. Echale una mirada a este
en la ayuda.

Un saludo

Róbinson Moscoso
Colombia

"VBNET_SCZ" escribió en el mensaje
news:
necesito ayuda, para poder obtener mediante codigo, el numero IP de la
maquina...recuerdo que con VB6, se utilizaba el objeto winsock
pero en VBNET, no se como hacerlo

Alguien me puede ayudar
Respuesta Responder a este mensaje
#2 Angel. E. Ruiz. P
08/11/2006 - 20:12 | Informe spam
prueba con...

Option Strict On
Imports System
Imports System.Net
Imports System.Net.Dns
Module Module1
Function RetIPAddress(ByVal mStrHost As String) As String
Dim mIpHostEntry As IPHostEntry = GetHostByName(mStrHost)
Dim mIpAddLst As IPAddress() = mIpHostEntry.AddressList()
' para efecto de este ejemplo y reducir codigo
' se devolvera la primera direccion IP y no se
' incluira manejo de excepciones
Return mIpAddLst(0).ToString
End Function
Sub Main()
Console.Write("IP = " & RetIPAddress(GetHostName()))
End Sub
End Module



Si deseas puede cambiar el parámetro GetHostName() x con el nombre de
cualquier equipo de su red.



Saludos cordiales,
Ángel Ruiz
MCTS .NET Framework 2.0 Windows Applications
MVP de Visual Basic desde 2004
Caracas - Venezuela
"El conocimiento es un bien, que crece a medida que se comparte"



"VBNET_SCZ" escribió en el mensaje
news:

necesito ayuda, para poder obtener mediante codigo, el numero IP de la
maquina...recuerdo que con VB6, se utilizaba el objeto winsock
pero en VBNET, no se como hacerlo

Alguien me puede ayudar
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida