Sí, también pensé en el modelo y número de serie de la computadora.
¿Qué más podría ser?
Gracias.
¿Qué más podría ser?
Gracias.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúAddress.AddressFamily = Sockets.AddressFamily.InterNetwork
Dim Host As IPHostEntry
Dim IPLocal As String = vbNullString
Host = Dns.GetHostEntry(Dns.GetHostName())
For Each ip As IPAddress In Host.AddressList
If ip.AddressFamily = Sockets.AddressFamily.InterNetwork Then
'If ip.AddressFamily.ToString() = "InterNetwork" Then 'Tambien lo puedo hacer así jejeje
IPLocal = ip.ToString
End If
Next
CitarAdaptador de LAN inalámbrica Conexión de red inalámbrica:
(3) Dirección IPv6 . . . . . . . . . . : 2002:c7c8:c8bb:c:3ddd:f4d5:69b7:ddd8
(1 )Sitio: dirección IPv6 local. . . . : fec0::c:3ddd:f4d5:69b7:ddd8%2
(4) Dirección IPv6 temporal. . . . . . : 2002:c7c8:c8bb:c:e00f:c51c:971d:fa56
(0) Vínculo: dirección IPv6 local. . . : fe80::3ddd:f4d5:69b7:ddd8%12
(5) Dirección IPv4. . . . . . . . . . . . . . : 192.168.1.2
Adaptador de túnel Teredo Tunneling Pseudo-Interface:
(6)Dirección IPv6 . . . . . . . . . . : 2001:0:9d38:6ab8:101d:395a:3f57:fefd
(2) Vínculo: dirección IPv6 local. . . : fe80::101d:395a:3f57:fefd%13
MiIP.Text = Direcciones(5).ToString()
192.168.1.2
pero me muestra lo siguiente:fe80::3ddd:f4d5:69b7:ddd8%12
Dim Host As String
Host = Dns.GetHostName
Dim IPs As IPHostEntry = Dns.GetHostEntry(Host)
Dim Direcciones As IPAddress() = IPs.AddressList
MiIP.Text = Direcciones(0).ToString()
Cita de: Babylon Support en 25 Noviembre 2012, 10:17 AM
Hemos creado una pagina que indica como quitar el programa, si necesita mas informacion al respecto contacte nuestro a departamento de soporte tecnico en el siguiente email : Support@babylon.com
Link para desinstalar:
http://www.babylon.com/uninstall_search/index
Atentamente