QB64.org Forum

Active Forums => Programs => Topic started by: SpriggsySpriggs on July 20, 2020, 06:44:16 pm

Title: Verify Phone Numbers using online API!
Post by: SpriggsySpriggs on July 20, 2020, 06:44:16 pm

Below is some code you can use to validate a phone number in the format of +18122822444 or +1812-282-2444 or +1(812)282-2444 and I'm sure there are more variations that are acceptable. Anyways, here is a way you can validate someone's phone number using numverify API! Make an account and get a key to create the request URL. Requests are HTTP only for free but if you pay you can use HTTPS. Again, not posting my API key in the forums so grab your free one and give it a whirl. I should note that the response JSON file actually also returns carrier and approximate city location of the registered phone. I just decided to not put that into my API function. Feel free to do it. It only requires a small tweak.

Code: QB64: [Select]

1. $CONSOLE:ONLY
2. _DEST _CONSOLE
3.  
4. PRINT VerifyPhoneNumber("+1(812)282-2444")
5. SLEEP
6.  
7. FUNCTION VerifyPhoneNumber$ (phone AS STRING)
8.     DIM URL AS STRING
9.     DIM URLFile AS STRING
10.     DIM a%
11.     DIM Request AS STRING
12.     URLFile = "validatephone"
13.     URL = "http://apilayer.net/api/validate?access_key=YOURAPIKEYHERE&number=" + FormatAsHTTP(phone) + "&countrycode=&format=1"
14.     a% = API_Request(URL, URLFile)
15.     DIM U AS INTEGER
16.     U = FREEFILE
17.     OPEN URLFile FOR BINARY AS #U
18.     IF LOF(U) <> 0 THEN
19.         DO
20.             LINE INPUT #U, Request
21.         LOOP UNTIL INSTR(Request, "valid")
22.     ELSE
23.         CLOSE #U
24.         KILL URLFile
25.         VerifyPhoneNumber = ""
26.         EXIT FUNCTION
27.     END IF
28.     CLOSE #U
29.     KILL URLFile
30.     IF INSTR(Request, "true") THEN
31.         VerifyPhoneNumber = MID$(Request, 11, 4)
32.     ELSE
33.         VerifyPhoneNumber = MID$(Request, 11, 5)
34.     END IF
35. END FUNCTION
36.  
37. FUNCTION FormatAsHTTP$ (Request AS STRING)
38.     start% = 1
39.     DO
40.         position% = INSTR(start%, Request, " ")
41.         IF position% THEN
42.             MID$(Request, position%, 1) = "+"
43.             start% = position% + 1
44.         END IF
45.     LOOP UNTIL position% = 0
46.     FormatAsHTTP = Request
47. END FUNCTION
48.  
49. DECLARE DYNAMIC LIBRARY "urlmon"
50.     FUNCTION URLDownloadToFileA (BYVAL pCaller AS LONG, szURL AS STRING, szFileName AS STRING, BYVAL dwReserved AS LONG, BYVAL lpfnCB AS LONG)
51. END DECLARE
52.  
53. FUNCTION API_Request (URL AS STRING, File AS STRING)
54.     API_Request = URLDownloadToFileA(0, URL + CHR$(0), File + CHR$(0), 0, 0)
55. END FUNCTION

Text Only | Text with Attachments