send
Grupo de Telegram
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

mGeoIP [Modulo] [Fakedo0r]

  • 1 Respuestas
  • 1486 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Fakedo0r

  • *
  • Visitante
« en: Febrero 28, 2011, 06:31:30 pm »
Código: Visual Basic
  1. Option Explicit
  2.  
  3. '------------------------------------------------------------------------------
  4. '------------------------------------------------------------------------------
  5. '------------------------------------------------------------------------------
  6. '------------------------------------------------------------------------------
  7. ' MODULO      : mGeoIP                               |||
  8. ' FECHA       : 28/10/2010 00:38                     |||
  9. ' AUTOR       : Fakedo0r                             |||
  10. ' CORREO      : Luvel88@gmail.com                    |||
  11. ' CREDITOS    : JhonJhon_123                         |||
  12. ' DESCRIPCION : Localizar IP                         |||
  13. '------------------------------------------------------------------------------
  14. '------------------------------------------------------------------------------
  15. '------------------------------------------------------------------------------
  16. '------------------------------------------------------------------------------
  17.  
  18. '==============================================================================
  19. ' --- APIS
  20. '==============================================================================
  21. Private Declare Function HttpQueryInfo Lib "wininet.dll" Alias "HttpQueryInfoA" (ByVal hHttpRequest As Long, ByVal lInfoLevel As Long, ByRef sBuffer As Any, ByRef lBufferLength As Long, ByRef lIndex As Long) As Long
  22. Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
  23. Private Declare Function InternetCloseHandle Lib "wininet" (ByRef hInet As Long) As Long
  24. Private Declare Function InternetReadFile Lib "wininet" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
  25. Private Declare Function InternetOpenUrl Lib "wininet" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
  26. '==============================================================================
  27. ' --- CONSTANTES
  28. '==============================================================================
  29. Private Const INTERNET_OPEN_TYPE_DIRECT     As Long = 1
  30. Private Const INTERNET_FLAG_RELOAD          As Long = &H80000000
  31. Private Const HTTP_QUERY_CONTENT_LENGTH     As Long = 5
  32. '==============================================================================
  33. ' --- TYPES
  34. '==============================================================================
  35. Public Type GeoDatos
  36.  
  37.     Country   As String
  38.     City      As String
  39.    
  40. End Type
  41. '==============================================================================
  42. ' --- FUNCION INET
  43. '==============================================================================
  44. Private Function DescargaWeb(URL As String) As String
  45.  
  46.     Dim Gestor          As Long
  47.     Dim GestorURL       As Long
  48.     Dim BytesTotal      As Long
  49.     Dim LenBufferSize   As Long
  50.     Dim Buffer          As String
  51.     Dim Agente          As String
  52.     Dim Data            As String
  53.     Dim BufferSize      As String
  54.     Dim Res             As Integer
  55.    
  56.     Agente = "By Fakedo0r"
  57.    
  58.     Gestor = InternetOpen(Agente, INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
  59.     GestorURL = InternetOpenUrl(Gestor, URL, vbNullString, ByVal 0&, INTERNET_FLAG_RELOAD, ByVal 0&)
  60.    
  61.     Buffer = String(1024, Chr(0))
  62.    
  63.     BufferSize = Space(1024)
  64.     LenBufferSize = Len(BufferSize)
  65.    
  66.     If HttpQueryInfo(GestorURL, HTTP_QUERY_CONTENT_LENGTH, ByVal BufferSize, LenBufferSize, 0) <> 0 Then
  67.         BufferSize = Left(BufferSize, LenBufferSize)
  68.     End If
  69.    
  70.     If Gestor <> 0 Then
  71.    
  72.         Res = InternetReadFile(GestorURL, Buffer, 1024, BytesTotal)
  73.        
  74.         If Res <> 0 Then
  75.        
  76.             Data = Buffer
  77.            
  78.             Do While BytesTotal <> 0
  79.            
  80.                 Res = InternetReadFile(GestorURL, Buffer, 1024, BytesTotal)
  81.                
  82.                 If Res <> 0 Then
  83.                
  84.                     Data = Data & Mid(Buffer, 1, BytesTotal)
  85.                    
  86.                 End If
  87.                
  88.                 DoEvents
  89.                
  90.             Loop
  91.            
  92.         End If
  93.        
  94.     End If
  95.    
  96.     InternetCloseHandle Gestor
  97.     InternetCloseHandle GestorURL
  98.    
  99.     DescargaWeb = Data
  100.  
  101. End Function
  102. '==============================================================================
  103. ' --- FUNCION LOCALIZAR IP
  104. '==============================================================================
  105. Public Function GeoIPInfo(IP As String) As GeoDatos
  106.  
  107.     Dim URL         As String
  108.     Dim Datos       As String
  109.     Dim sDatos()    As String
  110.    
  111.     Dim Part1       As String
  112.     Dim Part2       As String
  113.     Dim Part3       As String
  114.     Dim Pos1        As String
  115.    
  116.     Dim Nombre      As String
  117.     Dim Final       As String
  118.     Dim Data        As Variant
  119.     Dim aDatos      As GeoDatos
  120.    
  121.     URL = "http://www.geoipview.com/?q="
  122.     URL = URL & IP
  123.    
  124.     Datos = DescargaWeb(URL)
  125.    
  126.     Part1 = "align=absmiddle alt=" & Chr(34) & "" & Chr(34) & "></td>"
  127.     Pos1 = InStr(1, Datos, Part1)
  128.     Datos = Mid$(Datos, Pos1 + Len(Part1), Len(Datos))
  129.    
  130.     Part1 = "</TABLE>"
  131.     Pos1 = InStr(1, Datos, Part1)
  132.     Datos = Left$(Datos, Pos1 - 1)
  133.    
  134.     sDatos = Split(Datos, "<TR><TD class=" & Chr(34) & "show1" & Chr(34) & " nowrap>")
  135.    
  136.     For Each Data In sDatos
  137.    
  138.         Part1 = ":&nbsp;</td><td class=" & Chr(34) & "show2" & Chr(34) & ">"
  139.         Part2 = "</td>"
  140.         Pos1 = InStr(1, Data, Part1)
  141.        
  142.         If Pos1 = 0 Then GoTo Error
  143.        
  144.         Nombre = Left$(Data, Pos1 - 1)
  145.         Part3 = Mid$(Data, Pos1 + Len(Part1), Len(Data))
  146.         Final = Split(Part3, Part2)(0)
  147.                                                                
  148.         Select Case Nombre
  149.        
  150.             Case "Country"
  151.            
  152.                 aDatos.Country = Final
  153.                
  154.             Case "City"
  155.            
  156.                 aDatos.City = Final
  157.                
  158.         End Select
  159.    
  160. Error:
  161.    
  162.     Next
  163.    
  164.     GeoIPInfo = aDatos
  165.  
  166. End Function
« Última modificación: Mayo 12, 2014, 03:30:27 pm por Expermicid »

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5283
  • Actividad:
    30%
  • Reputación 28
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« Respuesta #1 en: Febrero 28, 2011, 06:35:11 pm »
Que buen modulo!
Excelente trabajo Fake!!


 

¿Te gustó el post? COMPARTILO!



Actualizador para tus programa [modulo]

Iniciado por alexander1712

Respuestas: 3
Vistas: 2724
Último mensaje Julio 14, 2016, 10:16:11 pm
por noxonsoftwares
Modulo Tratamiento de archivos

Iniciado por alexander1712

Respuestas: 0
Vistas: 2720
Último mensaje Enero 26, 2013, 12:56:47 pm
por alexander1712
[Módulo] sAres v2

Iniciado por k0ws

Respuestas: 4
Vistas: 2883
Último mensaje Noviembre 20, 2012, 09:31:24 pm
por k0ws