У меня есть пример curl API поставщика, который я пытаюсь выяснить, как использовать в VB.net.Примечание. Я смог сделать это в скрипте Служб Google в несколько строк кода и поместить результат в таблицу, но он должен быть в VB.NET.Я могу подключиться к «базовому» URL-адресу и получить код возврата 200 с моими учетными данными.
Сценарий приложений был действительно простым: var url = 'https://' + TheURL +' / helpdesk / WebObjects / Helpdesk.woa / ра / StatusTypes?+ credentials;
Результат показал, что это должно вернуть строку json:
[{"id":1,"type":"StatusType","statusTypeName":"Open"},...
Это пример скручивания от поставщика:
$ curl "https://localhost/helpdesk/WebObjects/Helpdesk.woa\
> /ra/StatusTypes\
> ?apiKey=v32lXMFAi7dl3zGrtETArXqKVF8svfAfXZpIwC0P"
В VB.NETЯ добавляю бит "/ ra / StatusTypes \", он ломается - я думаю, что есть кое-что, чего мне не хватает в этом API в отношении VB.NET, но все примеры довольно просты.
Dim uri As String = "https://" & TheURL & "/helpdesk/WebObjects/Helpdesk.woa"
'Dim uri As String = "https://" & TheURL & "/helpdesk/WebObjects/Helpdesk.woa/ra/StatusTypes" '<< This line does not work
Dim request As Net.HttpWebRequest = Net.HttpWebRequest.Create(uri)
request.Headers.Add("Authorization", "Basic " + Convert.ToBase64String(Encoding.UTF8.GetBytes(LoginID + ":" + APassword)))
Dim response As WebResponse = request.GetResponse() ' Get the response.
Console.WriteLine(CType(response, HttpWebResponse).StatusDescription) ' Display the status.
'Console.ReadLine()
Dim dataStream As Stream = response.GetResponseStream()
Dim reader As New StreamReader(dataStream)
Dim responseFromServer As String = reader.ReadToEnd()
Console.WriteLine(responseFromServer)
' Console.ReadLine()
reader.Close()
response.Close()