将curl命令转换为html或vb.net

Question

我试图访问smartsheet API。他们有一个用curl提供的示例代码来访问它。

要访问工作表列表，请使用您最喜欢的编程或脚本语言构建HTTPS请求。下面是一个使用来自linux命令行的curl的示例：

curl https://api.smartsheet.com/1.0/sheets \ 
-H "Authorization: Bearer 0da6cf0d-848c-4266-9b47-cd32a6151b1f" \ 
-H "Assume-User: john.doe%40smartsheet.com" 

如何在vb.net或html表单中执行此操作？

Answer 1

这是一个相当大的主题，但它是最简单的，你可以试试这个...

Imports System.Net 

然后......

Dim wHeader As WebHeaderCollection = New WebHeaderCollection() 

wHeader.Clear() 
wHeader.Add("Authorization: Bearer 0da6cf0d-848c-4266-9b47-cd32a6151b1f") 
wHeader.Add("Assume-User: john.doe%40smartsheet.com") 

Dim sUrl As String = "https://api.smartsheet.com/1.0/sheets" 

Dim wRequest As HttpWebRequest = DirectCast(System.Net.HttpWebRequest.Create(sUrl), HttpWebRequest) 

'wRequest.ContentType = "application/json" ' I don't know what your content type is 
wRequest.Headers = wHeader 
wRequest.Method = "GET" 

Dim wResponse As HttpWebResponse = DirectCast(wRequest.GetResponse(), HttpWebResponse) 

Dim sResponse As String = "" 

Using srRead As New StreamReader(wResponse.GetResponseStream()) 
    sResponse = srRead.ReadToEnd() 
End Using 

我不熟悉的smartsheet API，但你可以用它作为一个起点。

如果您使用的是代理，你将需要添加...

Dim wProxy As IWebProxy = WebRequest.GetSystemWebProxy() 
wProxy.Credentials = System.Net.CredentialCache.DefaultCredentials 

并指定代理时，你的请求......

wRequest.Proxy = wProxy 

Answer 2

要创建一个Web请求VB.Net，你可以使用HttpWebRequest类。

卷曲中的-H argument创建额外的标题。要将标题添加到HttpWebRequest，只需将它们添加到WebHeaderCollectionHeaders即可。

例子：

Dim myHttpWebRequest = CType(WebRequest.Create("https://api.smartsheet.com/1.0/sheets"), HttpWebRequest) 
myHttpWebRequest.Headers.Add("Authorization: Bearer 0da6cf0d-848c-4266-9b47-cd32a6151b1f") 
myHttpWebRequest.Headers.Add("Assume-User: john.doe%40smartsheet.com") 
Dim myHttpWebResponse = CType(myHttpWebRequest.GetResponse(), HttpWebResponse)