elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Los 10 CVE más críticos (peligrosos) de 2020


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  obtener IP
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: obtener IP  (Leído 2,773 veces)
soru13

Desconectado Desconectado

Mensajes: 246



Ver Perfil
obtener IP
« en: 2 Octubre 2006, 20:39 pm »

hola, quisiera saber como puedo obtener la IP de mi pc en Visual Basic 6, gracias


En línea

Meg


Desconectado Desconectado

Mensajes: 462



Ver Perfil
Re: obtener IP
« Respuesta #1 en: 2 Octubre 2006, 21:34 pm »

añade el control winsock y pon un label por ejemplo
Private sub form_load()
label1.caption = winsock1.localip
en sub
y utiliza el boton de buscar k sto creo k tb esta dixo si no en google seguro k viene  ::)


En línea

WarGhost
I love basket


Desconectado Desconectado

Mensajes: 1.070



Ver Perfil WWW
Re: obtener IP
« Respuesta #2 en: 2 Octubre 2006, 21:44 pm »

aqui te dejo un cogio para poder conseguir la ip real:

Winsock:
Código:
Private Sub Form_Load()
ws.Close
ws.Connect "ip1.dynupdate.no-ip.com", 80
End Sub

Private Sub ws_Connect()
ws.SendData "GET / HTTP/1.0" & vbCrLf & _
"Accept: */*" & vbCrLf & _
"User-Agent: IPLen(By WarGhost)" & vbCrLf & _
"Host: ip1.dynupdate.no-ip.com" & vbCrLf & vbCrLf
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim data As String
ws.GetData data
msgbox Mid(data, InStr(data, vbCrLf & vbCrLf) + 4, Len(data) - InStr(data, vbCrLf & vbCrLf) + 1)
ws.Close
End Sub

INET:
Código:
msgbox Inet1.OpenURL("ip1.dynupdate.no-ip.com")

Si el código del INET es mas fácil xDDDD.

;D Salu2, WarGhost
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Obtener IP de una DNS vb6
Programación Visual Basic
VanX 4 3,495 Último mensaje 11 Julio 2011, 13:34 pm
por VanX
obtener web cam
Hacking
noookiever 2 3,192 Último mensaje 28 Diciembre 2013, 14:01 pm
por nightcode
Obtener NIC's con C#
Programación General
el_doctor 0 1,612 Último mensaje 11 Septiembre 2013, 22:18 pm
por el_doctor
Obtener Wan IP en vb6 « 1 2 »
Programación Visual Basic
rapbyone 13 9,678 Último mensaje 3 Julio 2014, 21:28 pm
por rapbyone
Obtener m3u8 de VK.com
Multimedia
lucheano 0 2,305 Último mensaje 25 Marzo 2018, 06:04 am
por lucheano
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines