Besplatno je, ima primer u VB-u, a evo i otprilike kako radi:
Code:
Option Explicit
Dim WithEvents IPLoc As IPLocator.Locator
Private Sub Command1_Click()
Set IPLoc = New Locator
IPLoc.MyIPInfo
Text1.Text = IPLoc.dataAdress
Text2.Text = IPLoc.dataCountry
Text3.Text = IPLoc.dataStateProvince
Text4.Text = IPLoc.dataCity
Text5.Text = IPLoc.dataZipPostalCode
Text6.Text = IPLoc.dataLatitude
Text7.Text = IPLoc.dataLongitude
Text8.Text = IPLoc.dataTimezone
Text9.Text = IPLoc.dataHostName
Set IPLoc = Nothing
End Sub
Private Sub Command2_Click()
Set IPLoc = New Locator
IPLoc.IPInfo Combo1.Text
Text1.Text = IPLoc.dataAdress
Text2.Text = IPLoc.dataCountry
Text3.Text = IPLoc.dataStateProvince
Text4.Text = IPLoc.dataCity
Text5.Text = IPLoc.dataZipPostalCode
Text6.Text = IPLoc.dataLatitude
Text7.Text = IPLoc.dataLongitude
Text8.Text = IPLoc.dataTimezone
Text9.Text = IPLoc.dataHostName
Set IPLoc = Nothing
End Sub
Private Sub IPLoc_LocatorError(ByVal ErrorCode As IPLocator.IPLocator_Error)
Select Case ErrorCode
Case IPL_E_POGRESNA_ADRESA
MsgBox "Neispravna adresa!"
Case IPL_E_NIJE_DOSTUPNO
MsgBox "Greska broj: " & IPLoc.sysError & " Opis: " & IPLoc.sysErrorDescription
End Select
End Sub
Option Explicit
Dim WithEvents IPLoc As IPLocator.Locator
Private Sub Command1_Click()
Set IPLoc = New Locator
IPLoc.MyIPInfo
Text1.Text = IPLoc.dataAdress
Text2.Text = IPLoc.dataCountry
Text3.Text = IPLoc.dataStateProvince
Text4.Text = IPLoc.dataCity
Text5.Text = IPLoc.dataZipPostalCode
Text6.Text = IPLoc.dataLatitude
Text7.Text = IPLoc.dataLongitude
Text8.Text = IPLoc.dataTimezone
Text9.Text = IPLoc.dataHostName
Set IPLoc = Nothing
End Sub
Private Sub Command2_Click()
Set IPLoc = New Locator
IPLoc.IPInfo Combo1.Text
Text1.Text = IPLoc.dataAdress
Text2.Text = IPLoc.dataCountry
Text3.Text = IPLoc.dataStateProvince
Text4.Text = IPLoc.dataCity
Text5.Text = IPLoc.dataZipPostalCode
Text6.Text = IPLoc.dataLatitude
Text7.Text = IPLoc.dataLongitude
Text8.Text = IPLoc.dataTimezone
Text9.Text = IPLoc.dataHostName
Set IPLoc = Nothing
End Sub
Private Sub IPLoc_LocatorError(ByVal ErrorCode As IPLocator.IPLocator_Error)
Select Case ErrorCode
Case IPL_E_POGRESNA_ADRESA
MsgBox "Neispravna adresa!"
Case IPL_E_NIJE_DOSTUPNO
MsgBox "Greska broj: " & IPLoc.sysError & " Opis: " & IPLoc.sysErrorDescription
End Select
End Sub
Primene su neogranicene...