[es] - IP Locator ActiveX DL - informacije o IP adresi (svojoj ili proizvoljnoj) + Geolokacijski info

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dynamic.sbb.rs.

+41 Profil

IP Locator ActiveX DL - informacije o IP adresi (svojoj ili proizvoljnoj) + Geolokacijski info

^{17.05.2014. u 17:14 - pre 120 meseci}

Samo da podelim ukoliko je nekome potrebno (meni je trebalo puno puta) na http://a3but.info/index.php/komponente/ip-locator.html ima sve o komponenti, a instalacija se moze preuzeti sa http://a3but.info/index.php/preuzimanje.html

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

Primene su neogranicene...

Prikačeni fajlovi

Screen.PNG - 19.48k

Odgovor na temu