Dim url As String = "https://www.xxxxxxx.com/set.php"
''''json is ==> {"ip_status":"success","device_charging":true,"user_display_name":"xxx","user_last_name":"yyy"}
Dim json As String = prj2.toString.ToLowerCase
HC1.InitializeAcceptAll("HC1") 'This is needed (not HC1.Initialize("HC1"))
Dim req As OkHttpRequest 'This should become OkHttpRequest
req.InitializePost(url,?????,?????)
HC1.Execute(req, 1)