Search Tools Links Login

Get IP Location Info


With this simple function your able to return information about an ip address. :D

Original Author: Kreshnik

Code

Attribute VB_Name = "mLocIP"
'---------------------------------------------------------------------------------------
' 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), "")(0), 3)
  Region = Mid(Split(Split(StrRes, "dgLookup__ctl2_lblIRegion")(1), "")(0), 3)
  Country = Mid(Split(Split(StrRes, "dgLookup__ctl2_lblICity")(1), "")(0), 3)
  Latitude = Mid(Split(Split(StrRes, "dgLookup__ctl2_lblILatitude")(1), "")(0), 3)
  Longitude = Mid(Split(Split(StrRes, "dgLookup__ctl2_lblILongitude")(1), "")(0), 3)
  TZone = Mid(Split(Split(StrRes, "dgLookup__ctl2_lblITimeZone")(1), "")(0), 3)
  ConT = Mid(Split(Split(StrRes, "dgLookup__ctl2_lblINetSpeed")(1), "")(0), 3)
  ISP = Mid(Split(Split(StrRes, "dgLookup__ctl2_lblIISP")(1), "")(0), 3)
LocateIP = IP & vbNewLine & Region & vbNewLine & Country & vbNewLine & Latitude & vbNewLine & Longitude & vbNewLine & TZone & vbNewLine & ConT & vbNewLine & ISP
End Function

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 118 times

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.