Título: descubrir mi ip con vb Publicado por: Cuasar en 20 Abril 2006, 05:03 am gente esto es una pregunta facil pero de la cual no recuerdo la respues.
tengo una en la que quiero asignarle a text la direccion ip de la pc en la estoy osea text1.text = localhost uso ese codigo que creo es el correcto pero no funca. puden ayudarme? salu2 Título: Re: descubrir mi ip con vb Publicado por: [eklvin] en 20 Abril 2006, 05:21 am no no no nonono
primero tienes k agregar el componente del control winsock y luego pones esto Código: Label1.Caption = Winsock1.LocalIP y listo saludos ;) Título: Re: descubrir mi ip con vb Publicado por: Cuasar en 20 Abril 2006, 05:25 am perfecto muchas gracias.
Título: Re: descubrir mi ip con vb Publicado por: Fauces en 22 Abril 2006, 12:12 pm hola soy nuevo en el foro, un saludo a todos los foreros,
una duda qe me corroe: ¿si quieres averiguar la ip publica a traves de visual basic es posible? o debes hacerlo remotamente con no-ip u otras herramientas Título: Re: descubrir mi ip con vb Publicado por: moe88 en 22 Abril 2006, 13:03 pm Private Sub Command1_Click()
Winsock1.Close End: End Sub Private Sub Form_Load() Winsock1.RemoteHost = "checkip.dyndns.org" Winsock1.RemotePort = 8245 Winsock1.Connect Espera 15 If Label1.Caption = "" Then MsgBox "FALLO EN LA CONEXION A INTERNET" Winsock1.Close End: End If 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), "<") Label1.Caption = Trim(separa3(0)) Form1.Visible = True Winsock1.Close End If End Sub Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean) Command1.Enabled = True End Sub Sub Espera(Segundos As Single) Dim ComienzoSeg As Single Dim FinSeg As Single ComienzoSeg = Timer FinSeg = ComienzoSeg + Segundos Do While FinSeg > Timer DoEvents If ComienzoSeg > Timer Then FinSeg = FinSeg - 24 * 60 * 60 End If Loop End Sub P.D: No soy el autor del code Un saludo |