Dim job As HttpJob
job.Initialize ("", Me)
job.Download("https://world.openfoodfacts.org/api/v0/product/" & codebar & ".json")
Wait For (job) JobDone(job As HttpJob)
If job.Success Then
Log("Job success")
Dim parser As JSONParser
parser.Initialize(job.GetString)
Dim root As Map = parser.NextObject
Dim status_verbose As String = root.Get("status_verbose")
Dim result As List = root.Get("product")
For Each colresult As Map In result
Dim product_name As Double = colresult.Get("product_name")
Next