Dim success As Boolean = True
For Each url As String In Array("https://www.alphavantage.co/query?function=TIME_SERIES_INTRADAY&symbol=GOOGL&interval=5min&apikey=ME7KA1AZTBN2K5UA","https://www.alphavantage.co/query?function=TIME_SERIES_INTRADAY&symbol=AMZN&interval=5min&apikey=ME7KA1AZTBN2K5UA")
Dim j As HttpJob
j.Initialize(Me, "")
j.Download(url)
Wait For (j) JobDone(j As HttpJob)
success = success And j.Success
If j.Success Then
StockQuote=j.GetString
TempStr=GetStockPrice("hhh",6,LabelGOOGLPrice)
Log(TempStr)
StockQuote=j.GetString
TempStr=GetStockPrice("hhh",6,LabelAMZNPrice)
Log(TempStr)
'...
End If
j.Release
If success = False Then Exit
Next
'[code]
End Sub