Visual Basic 6.0
Visual Basic 6.0
WIN Air Freight Login POST Request
See more HTTP Misc Examples
Demonstrates the "login" POST method endpoint to obtain an initial authToken as a cookie. Each API request will return a fresh authToken cookie which must be passed back to WIN in the next API request.Chilkat Visual Basic 6.0 Downloads
Dim success As Long
success = 0
' This example assumes the Chilkat HTTP API to have been previously unlocked.
' See Global Unlock Sample for sample code.
Dim http As New ChilkatHttp
' Set the "Accept" header to tell the web server that we'll accept an XML response.
http.Accept = "application/xml"
' Tell Chilkat to cache any received cookies to files in a particular directory
http.CookieDir = "c:/qa_data/cookies"
http.SaveCookies = 1
Dim xml As New ChilkatXml
xml.Tag = "LogOnModel"
xml.NewChild2 "UserName","win-air-freight-user@company.com"
xml.NewChild2 "Password","win-air-freight-password"
xml.EmitXmlDecl = 0
Dim httpRequestBody As String
httpRequestBody = xml.GetXml()
Dim resp As New ChilkatHttpResponse
success = http.HttpStr("POST","http://integration.winwebconnect.com/api/v1/Login",httpRequestBody,"utf-8","application/xml",resp)
If (success = 0) Then
Debug.Print http.LastErrorText
Exit Sub
End If
Dim xmlResponse As New ChilkatXml
success = xmlResponse.LoadXml(resp.BodyStr)
' See below for an example XML response body.
Debug.Print "Response Body:"
Debug.Print xmlResponse.GetXml()
Debug.Print "---"
Debug.Print "Response Header:"
Debug.Print resp.Header
' An example resp header:
'
' Cache-Control: no-cache
' Pragma: no-cache
' Content-Length: 1671
' Content-Type: application/xml; charset=utf-8
' Expires: -1
' Set-Cookie: authToken=1467EC8A5D2F1390F89F9DB65AAAAB5C709D1AE7275B72B6DDBDA44C54AE5D5C19648F76AAB12C9D9E2690F0DD69BE6E1C0F6D725C9392E99E1904A6B76D7852948C01A49E2FF20914092843C062778B91EE7497DDF4C1AC4117110E414195C9726E3467BD98094437044A8E94F1BCA1; path=/; HttpOnly
' Access-Control-Allow-Origin: http://integration.winwebconnect.com
' Date: Mon, 21 Nov 2016 21:29:57 GMT
Debug.Print "Success."
' An example XML response body:
' -----------------------------
' <?xml version="1.0" encoding="utf-8" ?>
' <AuthResponseDTO>
' <LastLogin>2016-11-21T21:29:58.229986Z</LastLogin>
' <UserDetails>
' <ContactID>16528</ContactID>
' <AgentID>96592</AgentID>
' <FirstName>System</FirstName>
' <LastName>User</LastName>
' <Email>test@company.com</Email>
' <JobTitle />
' <ContactNumber />
' <IsActivated>true</IsActivated>
' <OperatedBy />
' <AddressBookID />
' <Permissions>integrationapi</Permissions>
' <ContactType>Primary</ContactType>
' <UCTReferer />
' <UCTIsCaptcha>false</UCTIsCaptcha>
' <UATReferer />
' <UATIsCaptcha>false</UATIsCaptcha>
' <Username>test@company.com</Username>
' </UserDetails>
' <AgentDetails>
' <AgentID>96592</AgentID>
' <AgentName>My Company</AgentName>
' <AccountNumber />
' <IATACode />
' <Address1>P.O. Box 555</Address1>
' <Address2 />
' <Place />
' <StateProvince>NC</StateProvince>
' <City>
' <Code>USBFO</Code>
' <Name>Raleigh</Name>
' </City>
' <Country>
' <Code>US</Code>
' <Name>US - United States</Name>
' </Country>
' <ZipCode>28522</ZipCode>
' <Email />
' <Phone />
' <Fax />
' <IsEAirwayBill>false</IsEAirwayBill>
' <EYProgram>false</EYProgram>
' <WhiteLabelMobileApp>false</WhiteLabelMobileApp>
' <Limits>
' <UCTSearchesRemaining />
' <UATSearchesRemaining />
' <AgentID>96592</AgentID>
' </Limits>
' <Permissions>integrationapi</Permissions>
' </AgentDetails>
' <UserPreferences>
' <AboutUs />
' <MOTD />
' <Language>en-US</Language>
' <Currency>USD</Currency>
' <UnitSystem>Metric</UnitSystem>
' <TimeZone>
' <TheID>450</TheID>
' <KeyIdentifier>TimeZone</KeyIdentifier>
' <KeyValue>GMT</KeyValue>
' <KeyDescription>(GMT-11:00)UTC-11</KeyDescription>
' <IsDefault>false</IsDefault>
' </TimeZone>
' <DateFormat>dd-MMM-yyyy</DateFormat>
' <TimeFormat>h:mm t</TimeFormat>
' <Controls />
' <ContactEmail />
' </UserPreferences>
' <Version>
' <APIVersion>3.4.0.0ah8</APIVersion>
' <UIVersion>3.1</UIVersion>
' </Version>
' <NumNonMSDBContacts />
' </AuthResponseDTO>
'