REST API метод для совершения исходящего звонка - VB

Формулировка задачи:

POST /api/v1 HTTP/1.1 Host: test.moizvonki.ru Content-Type: application/json Content-Length: 119 {"user_name":"removed@mail.ru", "api_key":"pempgqsbvq9wzkmy1smvkhvihkkyk5qm", "action":"calls.make_call", "to":"12345678"} Как это будет выглядеть в Visual basic?

Решение задачи: «REST API метод для совершения исходящего звонка»

textual
                            Листинг программы 
                        

                            Private Sub 
 Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
With oXMLHTTP
Data = "{" & Chr(34) & "user_name" & Chr(34) & ":" & Chr(34) & (@mail.ru) & Chr(34) & ", " & Chr(34) & "api_key" & Chr(34) & ":" & Chr(34) & "key" & Chr(34) & ", " & Chr(34) & "{" & Chr(34) & "action" & Chr(34) & ":" & Chr(34) & "calls.get_crm_event" & Chr(34) & "Appname" & Chr(34) & ":" & Chr(34) & "test" & Chr(34) & "," & Chr(34) & "max_results" & Chr(34) & ":" & Chr(34) & "1" & Chr(34) & "}"
 
.Open "GET", "https://.moizvonki.ru/api/v1", False
.SetRequestHeader "Host", "test.moizvonki.ru"
.SetRequestHeader "Content-Type", "application/json"
.SetRequestHeader "Content-Length", "119"
.SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/48.0.2564.41 Safari/537.36 OPR/35.0.2066.10 (Edition beta)"
.SetRequestHeader "Accept-Language", "ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4"
.send Data
GetHTTPResponse = .responseText
End With
End Sub
                        