Post by meerkat on Sept 8, 2015 14:15:25 GMT -5
This routine gives you just about everything you need to know about your user.
If you want a map, it gives you the latitude and longitude.
If you want a map, it gives you the latitude and longitude.
s$ = " || " ' your seperator , you can use CSV type seperators if you like
la = len(UserAddress$)
ua$ = UserAddress$ + left$(" ",15 - la)
print date$("yyyy-mm-dd");s$;time$();s$;ua$;s$;word$(UrlKeys$,2,"&");s$;Platform$;s$;UserInfo$
a$ = httpGet$("http://addgadgets.com/ipaddress/index.php?ipaddr="+ua$)
a$ = word$(a$,2,"IP Address:")
a$ = "|Decimal:"+word$(a$,2,"Decimal:")
a$ = word$(a$,1,"Sunrise:")
a$ = strRep$(a$,"<tr><td style='text-align:right'>","")
a$ = strRep$(a$,"""","'")
a$ = strRep$(a$,"<tr><td style='text-align:right'>","")
a$ = strRep$(a$," </td><td>","")
a$ = strRep$(a$,"</td></tr>","|")
a$ = strRep$(a$,chr$(13),"") + "|"
decimal$ = word$(word$(a$,2,"|Decimal:"),1,"|")
continent$ = word$(word$(a$,2,"|Continent:"),1,"|")
continentCode$ = word$(word$(a$,2,"|Continent Code:"),1,"|")
country$ = word$(word$(a$,2,"|Country:"),1,"|")
countryCode$ = word$(word$(a$,2,"|Country Code:"),1,"|")
region$ = word$(word$(a$,2,"|Region:"),1,"|")
city$ = word$(word$(a$,2,"|City:"),1,"|")
cityLatitude$ = word$(word$(a$,2,"|City Latitude:"),1,"|")
cityLongitude$ = word$(word$(a$,2,"|City Longitude:"),1,"|")
postalCode$ = word$(word$(a$,2,"|Postal Code:"),1,"|")
metroCode$ = word$(word$(a$,2,"|Metro Code:"),1,"|")
areaCode$ = word$(word$(a$,2,"|Area Code:"),1,"|")
ispNname$ = word$(word$(a$,2,"|ISP name:"),1,"|")
organization$ = word$(word$(a$,2,"|Organization name:"),1,"|")
timeZone$ = word$(word$(a$,2,"|Time Zone:"),1,"|")
localDate$ = word$(word$(a$,2,"|Local Date:"),1,"|")
localTime$ = word$(word$(a$,2,"|Local Time:"),1,"|")
a1$ = s$;decimal$;s$;continent$;s$;continentCode$;s$;country$;s$;countryCode$;s$;region$;s$;city$;s$;cityLatitude$;s$;cityLongitude$;s$;postalCode$;s$;metroCode$;s$;areaCode$;s$;ispNname$;s$;organization$;s$;timeZone$;s$;localDate$;s$;localTime$
print a1$
wait
' --------------------------------
' string replace rep str with
' --------------------------------
FUNCTION strRep$(str$,rep$,with$)
ln = len(rep$)
ln1 = ln - 1
i = 1
while i <= len(str$)
if mid$(str$,i,ln) = rep$ then
strRep$ = strRep$ + with$
i = i + ln1
else
strRep$ = strRep$ + mid$(str$,i,1)
end if
i = i + 1
WEND
END FUNCTION