Sub JobDone(Job As HttpJob)
Dim xHtml As String
If Job.Success = True Then
xHtml = Job.GetString
Select Job.JobName
Case "JbAemet"
File.WriteString(DirOut, FileHtml, xHtml)
Case "JbYahoo"
File.WriteString(DirOut, FileHtml, xHtml)
Case "JbAcuWh"
File.WriteString(DirOut, FileHtml, xHtml)
Case "JbDolar"
File.WriteString(DirOut, FileHtml, xHtml)
End Select
ProcessHTML(xHtml)
Else
xHtml = Job.ErrorMessage
Log("Error: " & Job.ErrorMessage)
ToastMessageShow("Error: " & Job.ErrorMessage, True)
Job.Release
ProcessHTML(xHtml)
End If
Job.Release
End Sub