Sub AppStart (Args() As String)
Log("Hello world!!!")
Dim job As HttpJob
job.Initialize("Job", Me)
Dim msg As String = File.ReadString(File.DirAssets, "request.xml")
Log(msg)
job.PostString("http://www.dneonline.com/calculator.asmx", msg)
job.GetRequest.SetContentType("text/xml")
StartMessageLoop
End Sub
Public Sub JobDone (Job As HttpJob)
If Job.Success = True Then
Log("Webservice Correct Correct")
Log(Job.GetString)
Else
Log("Error Webservice")
Log(Job.ErrorMessage)
End If
Job.Release
ExitApplication2(0)
End Sub