[ goranvuc @ 17.05.2014. 17:14 ] @
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... |