'Non-UI application (console / server application)
#Region Project Attributes
#CommandLineArgs:
#MergeLibraries: True
#End Region
Sub Process_Globals
End Sub
Sub AppStart (Args() As String)
Dim job1 As HttpJob
Dim requestSoapXML As String
requestSoapXML = "<?xml version='1.0' encoding='utf-8'?>" & _
"<soap:Envelope xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xsd='http://www.w3.org/2001/XMLSchema' xmlns:soap='http://schemas.xmlsoap.org/soap/envelope/'>" & _
" <soap:Header>" & _
" <CredentialsHeader xmlns='https://xxx.xxx.xxx.xxx/test/API'>" & _
" <OrganizationID>1234</OrganizationID>" & _
" <Username>Admin</Username>" & _
" <Password>1234</Password>" & _
" </CredentialsHeader>" & _
" </soap:Header>" & _
" <soap:Body>" & _
" <ListAccounts xmlns='https://xxx.xxx.xxx.xxx/test/API' />" & _
" </soap:Body>" & _
"</soap:Envelope>"
job1.Initialize("JOB1", Me)
job1.PostString("https://xxx.xxx.xxx.xxx/Accounts.asmx", requestSoapXML)
StartMessageLoop
End Sub
Public Sub JobDone (Job As HttpJob)
If Job.Success = True Then
Log(Job.GetString)
End If
Job.Release
End Sub