將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)