Code: Select all
Procedure HttpGetEvent(Success, Result$, UserData)
Protected wanip.s
If Success
Debug Result$
ParseJSON(0, Result$, #PB_UTF8)
wanip = GetJSONString(GetJSONMember(JSONValue(0), "ip"))
Debug "Your wan ip is : " + wanip
Else
Debug "HTTPRequest(): Error"
EndIf
EndProcedure
HTTPRequest(#PB_HTTP_Get, "https://api.ipify.org?format=json", "", @HttpGetEvent())