9 lines
153 B
QBasic
9 lines
153 B
QBasic
|
#include "json.bas"
|
||
|
|
|
||
|
|
SUB MAIN
|
||
|
|
DIM IP AS STRING
|
||
|
|
IP = REQUEST("http://ifconfig.me/ip")
|
||
|
|
PRINT IP
|
||
|
|
PRINT REQUEST("http://ipwhois.app/json/" + IP)
|
||
|
|
END SUB
|