Sub Process_Globals
Dim Pippo As HttpJob
End Sub
Sub Pippo_Sub
Dim Pippo As HttpJob
Pippo.Initialize("Pippo",Me)
Pippo.PostString("https://xxxxx/test.php", "val1=" & val1 & "&val2=" & val2 & "&val3=" & val3)
End Sub
Sub JobDone (Job As HttpJob)
If Job.JobName="Pippo" Then
If Job.Success = True Then
Dim result As String
result = Pippo.GetString
........
.......
End if
End If
End Sub