Select Job.JobName
' Case "Job_Indicacao"
'' ToastMessageShow ( xresp, True )
' CallSub2 ( Main, "Back_Indicacao", xresp )
Case "Job_Token"
xresp = Job.GetString
Msgbox (xresp, "Retorno")
Case "Job_File"
xresp = Job.GetString
Msgbox (xresp, "File")
Case "mp3"
Dim xOutput As OutputStream = File.OpenOutput (File.DirTemp, "voz.mp3", False)
File.Copy2(Job.GetInputStream, xOutput)
xOutput.Close
If File.Exists (File.DirTemp, "voz.mp3" ) Then
Log ( "file exists")
End If
MyPlayer1.Initialize ( File.DirTemp, "voz.mp3", "MyPlayEnd")
MyPlayer1.Looping=False
MyPlayer1.Volume = 1
MyPlayer1.Play
End Select