Information about your user.

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.

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