Autor
|
Tema: [Ayuda] codigo para vb 6 (Leído 4,631 veces)
|
777Rubenix777
Desconectado
Mensajes: 150
|
Alguien conoce de algun codigo que te diga el nombre del pais de una IP?? Es decir una especie de GeoIP...
Graciasss!!
|
|
|
En línea
|
|
|
|
Novlucker
Ninja y
Colaborador
Desconectado
Mensajes: 10.683
Yo que tu lo pienso dos veces
|
O bien utilizas algún servicio online que proporciona una API, o bien te bajas las bases de datos y las trabajas en local (puedes descargar archivos CSV separados por comas)
Saludos
|
|
|
En línea
|
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD "Hay dos cosas infinitas: el Universo y la estupidez humana. Y de la primera no estoy muy seguro." Albert Einstein
|
|
|
777Rubenix777
Desconectado
Mensajes: 150
|
Y no hay una especie de modulo ya preparado?? xD Nadie se a aburrido tanto para hacer un modulo de eso?? xD
Bueno gracias intentare a ver si puedo hacerlo!!
Gracias y Saludos!!
|
|
|
En línea
|
|
|
|
Novlucker
Ninja y
Colaborador
Desconectado
Mensajes: 10.683
Yo que tu lo pienso dos veces
|
Pero es que el tema no es el modulo, es la base de datos donde estan todos los rangos de IP a consultar, después que tienes la bbdd es solo tirar una consulta, y si es vía web con alguna API de seguro solo es cuestión de hacer el GET con los parámetros correctos.
Saludos
|
|
|
En línea
|
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD "Hay dos cosas infinitas: el Universo y la estupidez humana. Y de la primera no estoy muy seguro." Albert Einstein
|
|
|
777Rubenix777
Desconectado
Mensajes: 150
|
Ok ya entendi mas o menos!! Si alguien mas tiene alguna idea mas tambien me sirve. Si lo condigo hacer ya posteare aki todo!!
Graaciass!!!
|
|
|
En línea
|
|
|
|
DarkMatrix
Desconectado
Mensajes: 150
Nuestro Limite es la Imaginacion
|
Tengo este code en mis codes almacenados ( No es mia la funcion ), Espero que te sirva XD! '--------------------------------------------------------------------------------------- ' Module : mLocIP ' DateTime: 19/12/2009 08:55PM ' Author : Kresha7 ' Mail: kresha7@hotmail.com ' Purpose : Gets Information about the location of an IP address '--------------------------------------------------------------------------------------- Public Function LocateIP(IPAddr As String) As String Dim HTTP As Object Dim StrRes As String Dim IP As String, Region As String, Country As String, City As String, Latitude As String, Longitude As String, TZone As String, ISP As String, ConT As String Const URL = "http://www.ip2location.com/" Set HTTP = CreateObject("Winhttp.Winhttprequest.5.1") With HTTP .Open "POST", URL & IPAddr .Send StrRes = .ResponseText End With IP = Mid(Split(Split(StrRes, "dgLookup__ctl2_lblICountry")(1), "</span>")(0), 3) Region = Mid(Split(Split(StrRes, "dgLookup__ctl2_lblIRegion")(1), "</span>")(0), 3) Country = Mid(Split(Split(StrRes, "dgLookup__ctl2_lblICity")(1), "</span>")(0), 3) Latitude = Mid(Split(Split(StrRes, "dgLookup__ctl2_lblILatitude")(1), "</span>")(0), 3) Longitude = Mid(Split(Split(StrRes, "dgLookup__ctl2_lblILongitude")(1), "</span>")(0), 3) TZone = Mid(Split(Split(StrRes, "dgLookup__ctl2_lblITimeZone")(1), "</span>")(0), 3) ConT = Mid(Split(Split(StrRes, "dgLookup__ctl2_lblINetSpeed")(1), "</span>")(0), 3) ISP = Mid(Split(Split(StrRes, "dgLookup__ctl2_lblIISP")(1), "</span>")(0), 3) LocateIP = IP & vbNewLine & Region & vbNewLine & Country & vbNewLine & Latitude & vbNewLine & Longitude & vbNewLine & TZone & vbNewLine & ConT & vbNewLine & ISP End Function
|
|
|
En línea
|
Todo aquello que no se puede hacer, es lo que no intentamos hacer. Projecto Ani-Dimension Digital Duel Masters (Juego de cartas masivo multijugador online hecho en Visual Basic 6.0) Desing by DarkMatrix
|
|
|
777Rubenix777
Desconectado
Mensajes: 150
|
Es bonito el codigo pero cuando lo uso me salta un error IP = Mid(Split(Split(StrRes, "dgLookup__ctl2_lblICountry")(1), "</span>")(0), 3) Y cuando voy a poner la ip 88.5.25.125 (ALEATORIA) solo me deja introducir esto: Pueden ayudarme?? Gracias!!
|
|
|
En línea
|
|
|
|
777Rubenix777
Desconectado
Mensajes: 150
|
Pero es que el tema no es el modulo, es la base de datos donde estan todos los rangos de IP a consultar, después que tienes la bbdd es solo tirar una consulta, y si es vía web con alguna API de seguro solo es cuestión de hacer el GET con los parámetros correctos.
Saludos
He conseguido una base de datos.. como tendria que hacer la consulta?? Alguna idea?? gracias la dejo aki por si le hace falta a alquien.. http://dl.dropbox.com/u/2779339/GeoIPCountryCSV.zip
|
|
|
En línea
|
|
|
|
raul338
Desconectado
Mensajes: 2.633
La sonrisa es la mejor forma de afrontar las cosas
|
Y cuando voy a poner la ip 88.5.25.125 (ALEATORIA) solo me deja introducir esto: FAIL! es Ya que pide un string la IP no es "un numero" (cuando viste un numero con varios puntos decimales? )
|
|
|
En línea
|
|
|
|
777Rubenix777
Desconectado
Mensajes: 150
|
Y cuando voy a poner la ip 88.5.25.125 (ALEATORIA) solo me deja introducir esto: FAIL! es Ya que pide un string la IP no es "un numero" (cuando viste un numero con varios puntos decimales? ) jajajja valeee muxas gracias tioo!!! Voy a probar y te digo!! xD
|
|
|
En línea
|
|
|
|
|
|