Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: 777Rubenix777 en 9 Julio 2010, 21:05 PM

Título: [Ayuda] codigo para vb 6
Publicado por: 777Rubenix777 en 9 Julio 2010, 21:05 PM
Alguien conoce de algun codigo que te diga el nombre del pais de una IP??
Es decir una especie de GeoIP...

Graciasss!!
Título: Re: [Ayuda] codigo para vb 6
Publicado por: Novlucker en 9 Julio 2010, 21:18 PM
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
Título: Re: [Ayuda] codigo para vb 6
Publicado por: 777Rubenix777 en 9 Julio 2010, 21:49 PM
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!!
Título: Re: [Ayuda] codigo para vb 6
Publicado por: Novlucker en 9 Julio 2010, 21:56 PM
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
Título: Re: [Ayuda] codigo para vb 6
Publicado por: 777Rubenix777 en 9 Julio 2010, 22:06 PM
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!!!
Título: Re: [Ayuda] codigo para vb 6
Publicado por: DarkMatrix en 10 Julio 2010, 00:32 AM
Tengo este code en mis codes almacenados ( No es mia la funcion ), Espero que te sirva XD!

Código (vb) [Seleccionar]

'---------------------------------------------------------------------------------------
' 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
Título: Re: [Ayuda] codigo para vb 6
Publicado por: 777Rubenix777 en 10 Julio 2010, 11:23 AM
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:
LocateIP(88.5)

Pueden ayudarme??

Gracias!!
Título: Re: [Ayuda] codigo para vb 6
Publicado por: 777Rubenix777 en 10 Julio 2010, 14:34 PM
Cita de: Novlucker en  9 Julio 2010, 21:56 PM
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 (http://dl.dropbox.com/u/2779339/GeoIPCountryCSV.zip)
Título: Re: [Ayuda] codigo para vb 6
Publicado por: raul338 en 10 Julio 2010, 14:54 PM
Cita de: 777Rubenix777 en 10 Julio 2010, 11:23 AM
Y cuando voy a poner la ip 88.5.25.125 (ALEATORIA) solo me deja introducir esto:
LocateIP(88.5)

FAIL! :xD

es
LocateIP("88.5.25.125")

Ya que pide un string :P la IP no es "un numero" (cuando viste un numero con varios puntos decimales? :P)
Título: Re: [Ayuda] codigo para vb 6
Publicado por: 777Rubenix777 en 10 Julio 2010, 15:01 PM
Cita de: raul338 en 10 Julio 2010, 14:54 PM
Cita de: 777Rubenix777 en 10 Julio 2010, 11:23 AM
Y cuando voy a poner la ip 88.5.25.125 (ALEATORIA) solo me deja introducir esto:
LocateIP(88.5)

FAIL! :xD

es
LocateIP("88.5.25.125")

Ya que pide un string :P la IP no es "un numero" (cuando viste un numero con varios puntos decimales? :P)


jajajja valeee muxas gracias tioo!!!
Voy a probar y te digo!! xD
Título: Re: [Ayuda] codigo para vb 6
Publicado por: 777Rubenix777 en 10 Julio 2010, 15:09 PM
JAJJJAJJAJAJAJAJAJAJ GRACIAAAAAAAAAAAAAAASSSSS!!! YA ME VAA!! Xd ;-) :laugh:
Título: Re: [Ayuda] codigo para vb 6
Publicado por: Psyke1 en 10 Julio 2010, 20:43 PM
Aqui dejo otro ejemplo de algo similar...

http://foro.rthacker.net/foro/visual-basic/ip-locator/

Salu2! :P
Título: Re: [Ayuda] codigo para vb 6
Publicado por: Novlucker en 11 Julio 2010, 17:13 PM
El problema de ese sistema es que no es una API ni nada, sino que se parsea lo que te muestra la página por pantalla, así que donde los de la web cambien la manera en la que se visualiza, a la mier ... con el código :silbar:

Saludos
Título: Re: [Ayuda] codigo para vb 6
Publicado por: Psyke1 en 11 Julio 2010, 17:32 PM
Cierto Novlucker... :P
Solo dejaba otro ejemplo... :)

Salu2!;)
Título: Re: [Ayuda] codigo para vb 6
Publicado por: 777Rubenix777 en 12 Julio 2010, 17:06 PM
Cita de: *PsYkE1* en 10 Julio 2010, 20:43 PM
Aqui dejo otro ejemplo de algo similar...

http://foro.rthacker.net/foro/visual-basic/ip-locator/

Salu2! :P
Lo mirare a ver
Cita de: Novlucker en 11 Julio 2010, 17:13 PM
El problema de ese sistema es que no es una API ni nada, sino que se parsea lo que te muestra la página por pantalla, así que donde los de la web cambien la manera en la que se visualiza, a la mier ... con el código :silbar:

Saludos

Lo tendre en cuenta jeje!!