COMO OBTENER LA DIRECCION IP DE MI PC CON VISUAL BASIC 6

[Luis N]

Hola a todos como puedo obtener la direecion IP de mi PC en Visual Basic 6,
existe alguna funcion que me la de?

les agradeceria el dato.

Jose Luis Nieto

[Heich]

Multipost

--
Heich
----------------------------------------------------------------------
cadena= _
"heic...@h1o2t3m4a5i6l7.com" : _
for a=0 to 9: cadena=replace(cadena,a,""): _
next a: ?cadena
----------------------------------------------------------------------
Daria todo lo que se por saber la mitad de lo que ignoro.
----------------------------------------------------------------------
NOTA: este mensaje se proporciona TAL CUAL.Sin ningun derecho o garantia
Guia de Netiquette:
http://www.geocities.com/heich_programmer/Netiquette.html

Siempre que tengo una duda, le pregunto primero a San Google
http://groups.google.com/groups?hl=es&lr=&ie=UTF-8&c2coff=1&group=microsoft.public.es.vb
Reglas de conducta para las Comunidades Microsoft
http://www.microsoft.com/spain/comunidades/reglas/reglas.asp

"Luis N" <luisn...@hitmail.com> escribió en el mensaje
news:uEuEidzT...@TK2MSFTNGP12.phx.gbl...

[Lluís Franco]

Hola,

Determining the Local IP Address for the Installed Adapter
http://vbnet.mvps.org/index.html?code/network/getadaptersinfo-localipaddress.htm

Obtaining the IP Address Table
http://vbnet.mvps.org/index.html?code/network/getipaddresstable.htm

Determining a Network Host Name and IP Address Using Visual Basic
http://vbnet.mvps.org/index.html?code/network/ipaddress.htm

Saludos,
--

Lluís Franco i Montanyés
[MS-MVP-MCP Visual Basic]

FIMARGE, S.A.
Principat d'Andorra
lfranco@ODIO_EL_SPAMfimarge.ad
Tel.: +376 805 100
Fax: +376 824 500
Mi Perfil MVP en: http://tinyurl.com/4nbnb

This posting is provided "AS IS" with no warranties, and confers no rights.
Este mensaje se proporciona "COMO ESTA" sin garantias y no otorga ningun
derecho

--
(Guía de netiquette del foro)
http://www.uyssoft.com/Netiquette/

[Luis N]

Gracias Amigos ya lo hice con el WinSock, tal como lo muestra el ejemplo de
Theos.

Gracias por su ayuda amigos

"Lluís Franco" <msn...@uyssoft.com> escribió en el mensaje
news:%23jcAt16...@tk2msftngp13.phx.gbl...