Sub myjob
Dim job_bnr As HttpJob
job_bnr.Initialize("job_bnr", Me)
jobs="http://www.bnr.ro/nbrfxrates.xml"
job_bnr.Download(jobs)
End Sub
Sub JobDone (Job As HttpJob)
Log("JobName = " & Job.JobName & ", Success = " & Job.Success)
If Job.Success = True Then
Select Job.JobName
Case "job_bnr"
If Job.GetString.Contains("rror") Then
ToastMessageShow("Ceva nu a mers bine!"),True)
Else
parse_bnr(Job.GetString)
End If
End Select
Else
Log("Error: " & Job.ErrorMessage)
ToastMessageShow("Err !" & Job.ErrorMessage, True)
End If
Job.Release
End Sub