Hola gente,
alguien sabe como resolver la ip publica con vb?
| |||
Re: resolver ip publica Me imagino que lo que necesitas es saber que IP publica manejas, usando un programa VB. Una forma sencilla seria conectarte a un servidor WEB, para que te de la ip... y luego de ahi.. eliminar el texto de manera que puedas saber tu ip. No se si buscas algun metodo especial... el mas comun... Private Sub Command1_Click() Winsock1.Connect End Sub Private Sub Form_Load() Winsock1.RemoteHost = "checkip.dyndns.org" Winsock1.RemotePort = 8245 End Sub Private Sub Winsock1_Connect() Winsock1.SendData "GET / HTTP/1.1" & vbCrLf & vbCrLf End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim Datos Winsock1.GetData Datos, vbString If Datos Like "*Current IP*" Then separa1 = Split(Datos, ">") separa2 = Split(separa1(6), ":") separa3 = Split(separa2(1), "<") MsgBox "Tu IP publica es : " & Trim(separa3(0)) End If End Sub
__________________ |