VB6からWEBAPIに電話をかける

Question

VB6からWebApiを呼び出す方法を教えてもらえますか？以下は、URL https://samplewebsiteurl/EnterpriseParticipantであり、これはそれが私が見つけたVB6のコードは以下の

{ 
"Client": "YYYA", 
"Platforms" : [], 
"ProgramIdentifier": "", 
"MapToEnterpriseView": "true", 
"ParticipantRequest": { 
    "FirstName" : "", 
    "LastName": "Test" 
} 
} 

を期待し、要求です。 WebApiを呼び出すために、VB6から要求をどのように渡す必要がありますか？私は使用する必要があるすべての参照？

Dim WinHttpReq As Object, status As String, response As String 
On Error GoTo errorfound 
Set WinHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1" ;) 
WinHttpReq.open "POST", url, False 
WinHttpReq.send 

Answer 1

これはおそらく最も簡単な例である：

Option Explicit 

'Reference to: 
' 
' Microsoft WinHTTP Services, version 5.1 

Private Req As WinHttp.WinHttpRequest 

Private Sub Command1_Click() 
    With Req 
     .Open "POST", "http://localhost:8080/SomeAPI", Async:=False 
     .SetRequestHeader "Content-Type", "application/hal+json" 
     .SetRequestHeader "Accept", "text/*, application/hal+json, application/json" 
     'Note: Normally you don't include all of this whitespace, but 
     'we'll use it in this example: 
     .Send "{" & vbCrLf _ 
      & """Client"": ""YYYA""," & vbCrLf _ 
      & """Platforms"": []," & vbCrLf _ 
      & """ProgramIdentifier"": """"," & vbCrLf _ 
      & """MapToEnterpriseView"": ""true""," & vbCrLf _ 
      & """ParticipantRequest"": {" & vbCrLf _ 
      & " ""FirstName"" : """"," & vbCrLf _ 
      & " ""LastName"": ""Test""" & vbCrLf _ 
      & "}" & vbCrLf _ 
      & "}" 
     Label1.Caption = CStr(.Status) & " " & .StatusText & vbNewLine _ 
         & .GetAllResponseHeaders() & vbNewLine _ 
         & String$(40, "-") & vbNewLine _ 
         & .ResponseText 
    End With 
End Sub 

Private Sub Form_Load() 
    Set Req = New WinHttp.WinHttpRequest 
End Sub