Imprimir Página - obtener IP

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 ::)

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

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: soru13 en 2 Octubre 2006, 20:39 pm