Sub Globals
Dim job1 As HttpJob
Dim job2 As HttpJob
job1.Initialize("Job1",Me)
job2.initialize("Job2",Me)
End Sub
Sub Activity_Create(FirstTime As Boolean)
End Sub
Sub Activity_Resume
job1.PostString("server","uid=user&pwd=pass")
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub jobdone (job As HttpJob)
Dim namer As String = job.JobName
If job.Success = True Then
If job.JobName="Job1" Then
job2.PostFile("server?operation=up",File.DirRootExternal , "WTRCRINP.WCC")
End If
If job.JobName="Job2" Then
job1.Release
job2.Release
Activity.Finish
End If
Else
ToastMessageShow(job.ErrorMessage,True)
End If
End Sub