Sub GetMenu(Component As Object)
Dim job1 As HttpJob
job1.Initialize("Job1", Me)
job1.Download(Address)
job1.GetRequest.SetHeader("Authorization","Basic " & GetHash)
Wait for JobDone (Job As HttpJob)
Try
If Job.Success Then
CallSub2(Component,"SetMenu",Job.GetString)
End If
Catch
Log(LastException)
End Try
End Sub