SpiderBasic

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())