Public Sub test_HttpPostMultipart
Dim URL As String = "http://192.168.100.2/EHCommon/admin/user/login"
Dim Parameters As Map = CreateMap( "http_api_version" : "4.16.1", "username" : "admin", "password" : "dc047c30ebf9dac462908aadad719dce")
Wait For (HttpPostMultipart(URL, Parameters)) Complete (Result As String)
Log(Result)
End Sub
Public Sub HttpPostMultipart(Link As String, Parameters As Map) As ResumableSub
Dim Result As String
Dim j As HttpJob
Try
j.Initialize("", Me)
j.PostMultipart(Link, Parameters, Null)
j.GetRequest.SetHeader("Content-Type", "application/x-www-form-urlencoded")
Wait For (j) JobDone(j As HttpJob)...