QB64.org Forum

Active Forums => Programs => Topic started by: SpriggsySpriggs on July 20, 2020, 03:26:43 pm

Title: Get Local Time and Public IP via Online API
Post by: SpriggsySpriggs on July 20, 2020, 03:26:43 pm

In case someone is needing this; here. These two functions use a public online API to get public IP address or local time, according to IP. Therefore, if you were using a VPN you would have perhaps a different return value. Anyways, here it is. Have fun with it. I'll be posting more API usage soon.

Code: QB64: [Select]

1. PRINT GetLocalTime
2.  
3. PRINT GetPublicIP
4.  
5. FUNCTION GetLocalTime$
6.     DIM URL AS STRING
7.     DIM URLFile AS STRING
8.     DIM localtime AS STRING
9.     DIM a%
10.     URLFile = "localtime"
11.     URL = "http://worldtimeapi.org/api/ip/"
12.     URL = URL + GetPublicIP + ".txt"
13.     a% = FileDownload(URL, URLFile)
14.     DIM U AS INTEGER
15.     U = FREEFILE
16.     OPEN URLFile FOR BINARY AS #U
17.     IF LOF(U) <> 0 THEN
18.         DO
19.             LINE INPUT #U, localtime
20.         LOOP UNTIL INSTR(localtime, "datetime:")
21.     ELSE
22.         CLOSE #U
23.         KILL URLFile
24.         GetLocalTime = ""
25.         EXIT FUNCTION
26.     END IF
27.     CLOSE #U
28.     KILL URLFile
29.     localtime = MID$(localtime, 11)
30.     GetLocalTime = localtime
31. END FUNCTION
32.  
33. FUNCTION GetPublicIP$
34.     DIM URL AS STRING
35.     DIM URLFile AS STRING
36.     DIM publicip AS STRING
37.     DIM a%
38.     URLFile = "publicip"
39.     URL = "https://api.ipify.org/"
40.     a% = FileDownload(URL, URLFile)
41.     DIM U AS INTEGER
42.     U = FREEFILE
43.     OPEN URLFile FOR BINARY AS #U
44.     IF LOF(U) <> 0 THEN
45.         LINE INPUT #U, publicip
46.     ELSE
47.         CLOSE #U
48.         KILL URLFile
49.         GetPublicIP = ""
50.         EXIT FUNCTION
51.     END IF
52.     CLOSE #U
53.     KILL URLFile
54.     GetPublicIP = publicip
55. END FUNCTION
56.  
57. DECLARE DYNAMIC LIBRARY "urlmon"
58.     FUNCTION URLDownloadToFileA (BYVAL pCaller AS LONG, szURL AS STRING, szFileName AS STRING, BYVAL dwReserved AS LONG, BYVAL lpfnCB AS LONG)
59. END DECLARE
60.  
61. FUNCTION FileDownload (URL AS STRING, File AS STRING)
62.     FileDownload = URLDownloadToFileA(0, URL, File, 0, 0)
63. END FUNCTION

Title: Re: Get Local Time and Public IP via Online API
Post by: Ashish on July 21, 2020, 01:31:34 am

Nice work! :)

Text Only | Text with Attachments