Function para Sacar el Ip Externo
Publicado: 07 Abr 2012, 22:28
Cosa simples , pero a alguiem vá a servir ....
SaludoS
SaludoS
Código: Seleccionar todo
'======================================
' Autor : M3
' Proposito : Sacar el Ip Externo
' Uso : sMyIpAdress
' Requiere Control Inet
'======================================
Public Function sMyIpAdress()
Dim sUrl As String, sDados() As String
sUrl = Inet1.OpenURL("http://meuip.net/")
sDados = Split(sUrl, Chr(10))
sMyIpAdress = Replace(sDados(45), "</h1></td>", "")
MsgBox sMyIpAdress
End
End Function