Get External ip from ipify.org with curl and parse to progress 4gl.
DEF VAR VRUN_FILE AS CHAR NO-UNDO.
DEF VAR VRESULT AS LONGCHAR NO-UNDO.
ASSIGN VRUN_FILE = "C:\curl\curl -X GET -v https://api.ipify.org?format=json > c:\result.txt".
OS-COMMAND SILENT VALUE(VRUN_FILE).
COPY-LOB FROM FILE "c:\result.txt" TO VRESULT NO-ERROR.
VRESULT = REPLACE(VRESULT, CHR(123) , "").
VRESULT = REPLACE(VRESULT, '"' , "").
VRESULT = REPLACE(VRESULT, '}' , "").
VRESULT = ENTRY(2,VRESULT,":").
MESSAGE STRING(VRESULT)VIEW-AS ALERT-BOX INFO BUTTONS OK.
DEF VAR VRUN_FILE AS CHAR NO-UNDO.
DEF VAR VRESULT AS LONGCHAR NO-UNDO.
ASSIGN VRUN_FILE = "C:\curl\curl -X GET -v https://api.ipify.org?format=json > c:\result.txt".
OS-COMMAND SILENT VALUE(VRUN_FILE).
COPY-LOB FROM FILE "c:\result.txt" TO VRESULT NO-ERROR.
VRESULT = REPLACE(VRESULT, CHR(123) , "").
VRESULT = REPLACE(VRESULT, '"' , "").
VRESULT = REPLACE(VRESULT, '}' , "").
VRESULT = ENTRY(2,VRESULT,":").
MESSAGE STRING(VRESULT)VIEW-AS ALERT-BOX INFO BUTTONS OK.